Jump to content

Haplox

Members
  • Content Count

    2,555
  • Joined

  • Last visited

  • Days Won

    79

About Haplox

  • Rank
    José

Profile information

  • Gender Array
  • Localización: Array
  • Interests Array

Converted

  • Campos Array

Recent Profile Visitors

3,198 profile views
  1. Sí @Juan Pelfort , estate atento, porque me da que te vas a quedar así . Cuando Antoni está generoso...
  2. Algo me sonaba... Mira a ver este aporte https://ayudaexcel.com/foro/files/file/108-registro-de-aserrío-entrada-de-madera/
  3. ¿has buscado en el foro? Porque me suena mucho que esto ya se trato en profundidad
  4. 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
  5. 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
  6. 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 😔
  7. Bueno, bueno... enseñalo ¿No?
  8. 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"
  9. @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
  10. 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
  11. 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
  12. Me alegro, pero desde luego te falta el codigo para cargar la imagen... Image1.Picture=LoadPicture(Fotografia)
  13. 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)
  14. 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
  15. 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? 🤔
×
×
  • Create New...

Important Information

Privacy Policy

Ayuda Excel - Madrid, Madrid, ES - Valorada por 5112 personas - Aprender Excel - Total: 4.7 / 5