Jump to content


  • Posts

    • Efectivamente. Lo único que quiero plantear es que yo, por lo que sea, un día decido quitar una fila en naranja, esa ya no se tiene que generar más veces
    • Ahora si que "mas matao", no lo entiendo.  Vamos a intentar definir en palabras lo que hay que hacer. En una hoja, con un número indeterminado de semanas, hay un número indeterminado de códigos resaltados en naranja. Por cada fila resaltada, deben generarse tantas filas como días falten para llegar al fin de la semana corriente y generarse 7 filas en las semanas siguientes. O sea, si tengo 4 semanas y tengo una fila en naranja que es miércoles, se generan las filas de jueves a domingo de esa semana (Jueves,viernes, sábado y domingo) y de lunes a domingo en las siguientes semanas. Si o no.
    • Excelente Gerson, si funciona muchas gracias
    • Hola @Dani2020  Lo que pasa que estas confundiendo las variables, y eso hace que falle Prueba esto, a ver como te va Sub Modificar() Set H1 = Sheets("CERTIFICACION") Set H2 = Sheets("BD") Set BD = H2.Columns("A").Find(H1.[C4], lookat:=xlWhole) If H1.[C4] <> "" Then If Not BD Is Nothing Then Application.ScreenUpdating = False fi = BD.Row H2.Cells(fi, "B") = H1.[C6] H2.Cells(fi, "C") = H1.[C8] H2.Cells(fi, "D") = H1.[C10] H2.Cells(fi, "E") = H1.[C12] H1.Range("C4,C8,C10,C12").ClearContents Application.ScreenUpdating = True Else VBA.MsgBox "Nombre no encontrado", vbCritical, "AyudaExcel" End If End If Set H1 = Nothing Set H2 = Nothing Set BD = Nothing End Sub Supongo que mi código es similar al @tierra_pampa   Saludos a ambos!
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy