Por favor, que un EXPERTO audite mi proyecto
Hola comunidad de Expertos,
Tengo una rutina que en resumen debe tomar la información de cada fila que se encuentra en la hoja 5 y copiarlo a un formato de la hoja 11 donde se debe repetir 4 veces en diferentes celdas, después imrpime el formato y continua en la siguiente fila. En teoría debo alimentar la celda L4 de la hoja 11 para indicar la cantidad de filas que quiero imprimir sin embargo no me funciona, ¿Alguien me hace el favor de ayudarme a corregir y detectar el error?:
Private Sub CommandButton1_Click()
Dim t As Long
Dim i As Long
t = Application.WorksheetFunction.CountA(Sheets(5).Range("A1:A1048576"))
cancela = False
'4c7569735f50
For i = 1 To ([L4] + 1) Step 2
Sheets(11).Range("h2") = Sheets(5).Range("a" & i)
Sheets(11).Range("e4") = Sheets(5).Range("b" & i)
Sheets(11).Range("e5") = Sheets(5).Range("c" & i)
Sheets(11).Range("e6") = Sheets(5).Range("d" & i)
Sheets(11).Range("e7") = Sheets(5).Range("e" & i)
Sheets(11).Range("e8") = Sheets(5).Range("f" & i)
Sheets(11).Range("e9") = Sheets(5).Range("g" & i)
Sheets(11).Range("h2").Offset(11, 0) = Sheets(5).Range("a" & i + 0)
Sheets(11).Range("e4").Offset(11, 0) = Sheets(5).Range("b" & i + 0)
Sheets(11).Range("e5").Offset(11, 0) = Sheets(5).Range("c" & i + 0)
Sheets(11).Range("e6").Offset(11, 0) = Sheets(5).Range("d" & i + 0)
Sheets(11).Range("e7").Offset(11, 0) = Sheets(5).Range("e" & i + 0)
Sheets(11).Range("e8").Offset(11, 0) = Sheets(5).Range("f" & i + 0)
Sheets(11).Range("e9").Offset(11, 0) = Sheets(5).Range("g" & i + 0)
Sheets(11).Range("h2").Offset(26, 0) = Sheets(5).Range("a" & i + 0)
Sheets(11).Range("e4").Offset(26, 0) = Sheets(5).Range("b" & i + 0)
Sheets(11).Range("e5").Offset(26, 0) = Sheets(5).Range("c" & i + 0)
Sheets(11).Range("e6").Offset(26, 0) = Sheets(5).Range("d" & i + 0)
Sheets(11).Range("e7").Offset(26, 0) = Sheets(5).Range("e" & i + 0)
Sheets(11).Range("e8").Offset(26, 0) = Sheets(5).Range("f" & i + 0)
Sheets(11).Range("e9").Offset(26, 0) = Sheets(5).Range("g" & i + 0)
Sheets(11).Range("h2").Offset(41, 0) = Sheets(5).Range("a" & i + 0)
Sheets(11).Range("e4").Offset(41, 0) = Sheets(5).Range("b" & i + 0)
Sheets(11).Range("e5").Offset(41, 0) = Sheets(5).Range("c" & i + 0)
Sheets(11).Range("e6").Offset(41, 0) = Sheets(5).Range("d" & i + 0)
Sheets(11).Range("e7").Offset(41, 0) = Sheets(5).Range("e" & i + 0)
Sheets(11).Range("e8").Offset(41, 0) = Sheets(5).Range("f" & i + 0)
Sheets(11).Range("e9").Offset(41, 0) = Sheets(5).Range("g" & i + 0)
If cancela = True Then MsgBox "Cancelado - se imprimio hasta el registro :" & i, vbInformation: Exit Sub
imprime
DoEvents
Next
End Sub
Muchas gracias COMUNIDAD DE EXPERTOS
saludos,
Edgar Ureña
