Copiar datos a la HOJA "INF TOTAL" a partir de la columna "B" en adelante.
Que tal amigos necesito un poco de ayuda. TENGO ÉSTE CÓDIGO que copia los valores de la hoja "08 SUSTITUTO " a la hoja "INF TOTAL", el único detalle es de DESEO QUE COPIE LOS DATOS A PARTIR DE LA COLUMNA "B" EN ADELANTE, seria todo lo que necesito. Todo lo demás esta bien así.
Sub CopiarValores()
'Esta macro copia los valores al informe total
Application.ScreenUpdating = False
Set h1 = Sheets("08 SUSTITUTO")
Set h2 = Sheets("INF TOTAL")
ori = Array("E1", "C2", "E2", "F2", "E3", "E4", "F4", "E5", "E6", "E7", "E8", "E9")
'
f = h2.Range("A" & Rows.Count).End(xlUp).Row + 1
If f < 4 Then f = 4
c = 1
For i = LBound(ori) To UBound(ori)
h1.Range(ori(i)).Copy
h2.Cells(f, c).PasteSpecial Paste:=xlPasteValues
c = c + 1
Next
' LimpiarCeldas Macro
' esta macro limpia las celdas despues de guardar la informacion
'
Selection.ClearContents
Range("E1").Select
Selection.ClearContents
Range("E4:F4").Select
Selection.ClearContents
Range("E5:E6").Select
Selection.ClearContents
Range("E9").Select
Selection.ClearContents
Range("E1").Select
MsgBox "LA ASIGNACIÓN DE 08 SUSTITUTCIÓN FUE UN ÉXITO"
End Sub
¡Gracias!
Gracias nuevamente Adriel..!!!
Adriel ya se corrigió que se pegue a partir de la columna "B", solo que ahora cada que se pega me elimina los datos de esa fila, es decir se pega la información y borra la existente, y yo quiero que se pegue de manera consecutiva para realizar el informe. Anexo el código nuevamente.
Sub CopiarValores()
'Esta macro copia los valores al informe total
Application.ScreenUpdating = False
Set h1 = Sheets("08 SUSTITUTO")
Set h2 = Sheets("INF TOTAL")
ori = Array("E1", "C2", "E2", "F2", "E3", "E4", "F4", "E5", "E6", "E7", "E8", "E9")
'
f = h2.Range("A" & Rows.Count).End(xlUp).Row + 1
If f < 7 Then f = 7
c = 2
For i = LBound(ori) To UBound(ori)
h1.Range(ori(i)).Copy
h2.Cells(f, c).PasteSpecial Paste:=xlPasteValues
c = c + 1
Next
' LimpiarCeldas Macro
' esta macro limpia las celdas despues de guardar la informacion
'
Selection.ClearContents
Range("E1").Select
Selection.ClearContents
Range("E4:F4").Select
Selection.ClearContents
Range("E5:E6").Select
Selection.ClearContents
Range("E9").Select
Selection.ClearContents
Range("E1").Select
MsgBox "LA ASIGNACIÓN DE 08 SUSTITUTCIÓN FUE UN ÉXITO"
End Sub
H o l a
en esta línea cambia A por B
f = h2.Range("A" & Rows.Count).End(xlUp).Row + 1así
f = h2.Range("B" & Rows.Count).End(xlUp).Row + 1
