Haplox

Sí @Juan Pelfort , estate atento, porque me da que te vas a quedar así . Cuando Antoni está generoso...

Algo me sonaba... Mira a ver este aporte https://ayudaexcel.com/foro/files/file/108-registro-de-aserrío-entrada-de-madera/

¿has buscado en el foro? Porque me suena mucho que esto ya se trato en profundidad

Al entrar a un nuevo foro, lo mejor es hacer una búsqueda: Además recuerdo que @Antoni subio algo más completo. A ver si se pasa y te puede echar una mano

Si todo el código que ya tienes lo has hecho tú, esto debería haberte resultado fácil de resolver.... Utiliza el siguiente código en el botón del UserForm2 Private Sub CommandButton1_Click() Dim posidO$, posidD$ Dim cO As Range, cD As Range Dim fech As Date Dim uFA&, uFD& posidO = UserForm1.TextBox2 posidD = UserForm1.TextBox4 fech = CDate(UserForm1.TextBox7) uFA = Range("A" & Rows.Count).End(xlUp).Row Set cO = Range("B2:B" & uFA).Find(posidO, lookat:=xlWhole) cO = posidD With Sheets("POS ID Disponibles") uFD = .Range("B" & Rows.Count).End(xlUp).Row Set cD = .Range("B2:B" & uFD).Find(posidD, lookat:=xlWhole) cD = posidO cD.Offset(, 1) = fech End With UserForm2.Hide End Sub POS ID Control 1.xlsm

De verdad que intetnto ayudarte, pero no sigo tu logica. Si tu archivo es real, no lo entiendo: hay op con horas de inicio y fin, otras solo con inicio o fin, y no veo la relacion entre diferentes producciones. O subes un ejemplo real con el resultado que pretendes y que se vea la logica, o me siento incapaz de ayudarte 😔

Bueno, bueno... enseñalo ¿No?

Creo que te entendí, pero una cosa... en tu fuchero tienes 6 producciones ¿Cada una por separado o uniéndolas todas? POrque, por ejemplo, en la producción 6 no tienes "op"

@Romeo En tu archivo adjunto algún cálculo real de lo que necesitas y explica con qué celdas lo haces, porque viendo tu archivo no entiendo qué quieres hacer

O no he entendido lo que necesitas, o para lo que pides te sobra todo ese código . Lo que yo he entendido es esto: Sub copiar_consolidado() Dim nom$, fech$, hor$, fich$ Application.ScreenUpdating = False nom = Sheets("PLANILLA").Cells(2, "d") fech = Format(Date, "dd-mm-yy") hor = Format(Time, "hh-mm-ss") fich = ThisWorkbook.Path & "\" & nom & "_" & fech & "_" & hor & " HRS" & ".xlsx" Sheets("CONSOLIDADO").Copy ActiveWorkbook.SaveAs (fich) ActiveWorkbook.Close End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWindow.DisplayHeadings = True End Sub Private Sub Workbook_Open() ActiveWindow.DisplayHeadings = False End Sub Private Sub Workbook_SheetActivate(ByVal Sh As Object) ActiveWindow.DisplayHeadings = False End Sub

Me alegro, pero desde luego te falta el codigo para cargar la imagen... Image1.Picture=LoadPicture(Fotografia)

Tienes 2 opciones: - guardar las fotos en un directorio con el nombre del empleado, y al seleccionarlo que busque la foto en el directorio y la carge - tener la ruta en una celda de la linea del operario, y que al seleccionerlo carge la imagen del offset correspondiente al operario (la linea del operario y lla columna correspondiente)

Pero... ¿Porqué no explicas CUÁL es tu problema? Por que no alcanzo a verlo, ni cómo o dónde estriba en tu fichero lleno de formularios

Está muy bien subir el aqrchivo, pero si explicas algo sobre él y qué necesitas, pues a lo mejor se puede hacer algo . Por cierto, si piensas cobrar 40 pavos por programa y te solucionamos los problemas ¿Parte de las ventas serán para nosotros,no? 🤔