Saltar al contenido

AYUDA CON MACROS

publicado

Saludos, necesito ayuda con una macros que funciona bien,  pero ahora que ingreso datos en la columna "P", no lo muestra en la columna "Z".

adjunto archivo, agradezco su ayuda.

macros.xlsm

Featured Replies

publicado

Pega esto en un módulo:

Sub genera_cuadro()
    Range("r6:z18").ClearContents
    rd = 6
    rs = 6
    Do While Cells(rd, 1) <> ""
        For i = 11 To 14
            Cells(rs, "r") = Cells(rd, "a")
            Cells(rs, "s") = Cells(rd, "b")
            Cells(rs, "t") = Cells(rd, "c")
            Cells(rs, "u") = Cells(rd, "d")
            Cells(rs, "v") = i - 10
            Cells(rs, "w") = Cells(rd, "i")
            Cells(rs, "y") = Cells(rd, i)
            If i = 13 Then
                Cells(rs, "z") = Cells(rd, "p")
            End If
            rs = rs + 1
        Next
        rd = rd + 1
    Loop
End Sub
 

publicado
  • Autor

Gracias Janlui, por tu ayuda me fue muy util.

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.