joselica

Buenas tardes tierra_pampa, Gracias por conestarme. Si es diferente el documento ya que no lo voy a utilizar solo yo. Ahora si, me di cuenta del error que habia. Datos guardados 2 veces. Que tengas un buen día y suerte en el trabajo. Nos mantendremos en contacto. Saludos,

Buenas tardes tierra_pampa, Hoy he puesto en practica el listado y creo que he cantado demasiado pronto vICTORIA. Pues da erorers en el listado ORDENAR. Algunas habitaciones se repiten incluso algunas cojen otro nombre del cliente.. Igual me pasa con los totales de la hoja "INSERT". Preciso de tu revision en cuanto má pronto. Muchisimas gracias. Adjunto el documento, adonde he señalado en rojo las habitacione que repiten. Saludos, DESAYUNOS 06.07.2020 - PRUEBA HOTEL da errores.xlsm

Hola tierra_pampa, Creo que nos confundimos. El documento que te adjunte, el anterior a tu modificación estaba muy bien. Quiero decir que en la hoja "LISTADO" no hay que hacer nada más. Lo unico que busco es que en la hoja "INSERT" en cuando pongo la fecha deseada, me traiga los datos para la fecha indicada del rango "B6;H" que estan en la hoja "LISTADO" de forma instantanea y en cuando introduzco los datos de otro cliente los totales se actualize de forma automatica tambien. Reitero, la hoja "LISTADO" esta muy bien tal como esta. Para que entiendas mejor la forma de trabajar sera la siguiente: En la hoja "INSERT" en la celda "C14" pondre la fecha de mañana. Con los totales que me dara en las celdas "C15; C16 y C17" podre controlar al instante la disponibilidad de personas por turnos de los servicios de desayunos que sera de 50 personas por turno y de esta manera antes de introducir los nuevos datos puedo informar al cliente de los turnos disponibles y evitar un OVERBOOKING de plazas disponibles para este servicio, En cambio en la hoja "LISTADOS" tal como esta ahora podre consultar de ante mano las plazas disponibles para la fecha que sea y comprobar si hay un error. No pocas veces en cuanto un cliente esta alojado se me acerca y me pide que le cambie el turno del servicio. Antes de confirmar algo comprobare en la hoja "LISTADO" como esta la disponibilida para una fecha en concredo y contestar con una respuesta favorable o proponerle un turno alternativo. Con todo lo que te he explicado anteriormente creo hasta hacer las pruebas de que no haya más problemas deberia de funcionar a la perfección. Una vez mas debo darte las gracias por tu paciencia y ayuda. Saludos, P.S. - Ta djunto de nuevo el documento CORRECTO hasta ahora. LISTADO DESAYUNOS 03.07.2020 - OK - falta totales.xlsm

Hola tierra-pampa, Muchas gracias. Va perfecto. Te tengo que pedir perdon, me equivocado en una questión. Este documento no lo manejare yo solo, seremos unos cuantos, en cuanto te he pedido ayuda para reflejar los totales en la hoja "INSERT". No me di cuenta que no seran en tiempo real, quiero decir que en cuanto introduzco un nuevo cliente me salga los totales instanteamente, ya que por cada turno y dia el aforo es de 50 PAX. Por esto tantas molestias y correcciones. No todos entienden lo mismo que nosotros y por esto necesito que sea simple, util e intuitivo sin andar de ir. hacer tal y cual. He añadido la fecha a la hoja "INSERT" e ire probando suerte hasta que le heches un vistazo esta noche. Agradeciendote enormemente tu ayuda te deseo suerte en el trabajo. Yo hare turno de tarde dentro de un rato. PS. - no veo como has conseguido los resultados. Gracias y saludos, LISTADO DESAYUNOS 03.07.2020 - OK - DETALLE SOBRE LOS TOTALES.xlsm

Hola tierra_pampa, he descubierto los errores: Estava: SetRange Range("N10:N" & rrw) Lo correcto: SetRange Range("N10:P" & rrw). Una ultima ayuda. Como puedo tener los totales de la ficha "LISTADO" en la ficha "INSERT". Con tu ayuda me ahoraria mucho tiempo. Adjunto el documento correcto con los detalels de los totales a ver si en breve me puedes conetstar. Saludos desde España LISTADO DESAYUNOS 03.07.2020 - OK - falta totales.xlsm

Hola, tierra_pampa, Te mereces más de un corazón. A primera vista, va bien. Ire haciendo pruebas y te comentare.. Me pregunto si hay alguna posibilidad de hacer que las filas desde "K" hasta "M" las que enseña los totales se colorean de color gris abierto.. He conseguido algo, pero cuando voy eliminado la fecha el color de la celda donde me enseño los totales se me queda coloreada en vez de eliminarse como los calculos. Lo que he encontrado es esto: 'ThisWorkbook.Sheets("LISTADO").Range("M" & rrw + 1).Interior.Color = vbYellow Ya lelvo 2 dias buscando una solución sobre el tema Interior.Color y no lo acierto. Muchas gracias. 😀 Saludos, Jose

Buenas tardes, Estoy a punto de finalizar el proyecto y tengo 2 pequeñas problemas que nos soy capaz de resolverlos. Os comento: 1ª - No consigo de evitar el parpadeo en la hoja "LISTADO" aun que para evitar el parpadeo debo de poner: Application.ScreenUpdating = False y al final Application.ScreenUpdating = True. 2º - Al ejecutar la macro introduciendo la fecha en la celda "K3" me tien que devolver los totale en la ultima fila como en la imagen adjunta. Adjunto el documento Muchas gracias por vuestra ayuda y perdonarme por ser pesado.. Saludios, Jose BREAKFAST LIST - evitar parpadeo y alinear suma total en fila unica - copia.rar

Hola Antoni, Agradezco mucho tu ayuda hasta ahora. Al tema que tenia quiero dar por cerrado el tema. La solución es esta, lo dejo por si a alguien le sea util: Sub Guardar() Dim Fila As Long Dim H1 As Worksheet Dim H2 As Worksheet Dim x As Integer '-- Application.ScreenUpdating = Falso 'Evita el parpadeo Set H1 = Sheets("INSERT") Set H2 = Sheets("DATOS") 'PARA GUARDAR LOS DATOS EN LA FICHA DATOS-- For x = 1 To H1.Range("D6").Value - esto es lo que buscaba Fila = H2.Range("B" & Rows.Count).End(xlUp).Row + 1 H2.Range("B" & Fila) = H1.Range("D3") 'Hab. H2.Range("C" & Fila) = H1.Range("D4") 'Nombre H2.Range("D" & Fila) = H1.Range("D5") 'Entra H2.Range("E" & Fila) = H1.Range("D6") 'Dias H2.Range("F" & Fila) = H1.Range("D5") + x 'Salida H2.Range("G" & Fila) = H1.Range("D8") 'Turno H2.Range("h" & Fila) = H1.Range("D9") 'Pax Next 'Limpiar FICHA UNA VEZ SE HAYA GRABADO LOS DATOS H1.Activate ' H1.Range("D3").ClearContents 'Hab. H1.Range("D4").ClearContents 'Nombre H1.Range("D5").ClearContents 'Entra H1.Range("D6").ClearContents 'Dias 'H1.Range("D7").ClearContents 'Salida H1.Range("D8").ClearContents 'Turno H1.Range("D9").ClearContents 'Pax H1.Range("D3").Select Application.ScreenUpdating = True End Sub

Hola Antoni, Gracias por tu ayuda. Falta unos detalles. En las celdas corespondientes a la salida de la hoja "DATOS" que es la (F4:F15), me pone la misma fecha de salida en todas las celdas que es el 04.07.2020. Lo que pretendo es que me ponga los dias de estancia como "salida" tal como aparece en el listado TITULO 2. El primer servicio sera el día 2 el siguiente servicio el día 3 y el ultimo servicio el día 4 (en total 3 servicios de desayunos). Ademas: For x = 1 To 3 me pone solo los dias de servicios (en este caso es 3 que es correcto, pero si son más días no va. He hecho una prueba de: For x = 1 To 7 con entrada el 1 y salida el 5 y me guarda 7 dias en vez de 4. Saludos,

Buenos dias, He creado una macro que me guarda los datos de la hoja "INSERT" a la hoja "DATOS" y va muy bien. Me pregunto, si al guardar los datos, la macro me puede guarde los datos según lo que pretendo en el "TITULO 2 - LO QUE PRETENDO QUE HAGA" Adjunto el documento para ayudarme solucionar este tema. Gracias. Saludos, Jose DESAYUNOS VBA.xlsm

Buenos días, He creado una plantilla con ayuda de videos para enviar correos mediante excel, con lo cual pretendo enviar correos uno por uno o todos juntos (aun no se como lo prefiero o cual sera la mejor solución). Lo que no logro de hacer, es poner el nombre en el cuerpo del mensaje al lado de "Estimado/a Sr. / Sra." y si es posible que me aparezca un "chivato/mensaje" que me indique que el correo ha sido enviado tal como lo indico en las columnas indicadas . Me pregunto si esto sera posible de lograr sin utilizar macros y de que las celdas que llevan los HYPERLINK's (que en este caso son la C12; C13 y C14) se pueden proteger y ocultar para ser utilizadas solo para enviar los correos con hacer un solo click. Gracias de antemano. Jose enviar varios mails.xlsx

Muchas gracias. Que tengas una buena tarde. Saludos,

Hola JSDJSD, Te comento. Tu solución va muy bien. Sobre el tema de que se me borra los datos en cuanto me muevo entre las hojas, lo he solucionado anulando los : 'Private Sub Worksheet_Activate() 'Sheet1.Range("K2") = "" 'End Sub y: 'Private Sub Worksheet_Deactivate() 'Sheet1.Range("A7:A68").Rows.Hidden = True End Sub Agredeceria tu opinión si lo he hecho bien o tengo que hacerlo de otra manera. Muchas gracias. Saludos,

Va perfecto. Iré estudiando tu solución para entenderlo mejor. Una cosa te quería comentar, no entiendo porque si me muevo entre las hojas, se me borra los datos de la hoja "TIMMING FICHA". ¿Se podía evitar el hecho de borrarse los datos? Muchas gracias,.