Contar filas copiadas a otra hoja
Quisiera que me ayuden a contar XDXDXD
El caso es el siguiente, tengo este código facilitado por el Experto Dante:, el cual me permite copiar columnas especificas a otra hoja, el caso es que quisiera saber como hago para contar las filas copiadas, dejo aquí la macro para que se pueda desarrollar, gracias.
Sub Copiar()
'Por.Dante Amor
Application.ScreenUpdating = False
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
h2.UsedRange.Offset(1, 0).ClearContents
j = 2
For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row
If h1.Cells(i, "Z") = Date Then
h1.Range("B" & i & ",D" & i & ",F" & i & ",I" & i & "," & _
"J" & i & ",K" & i & ":N" & i & ",T" & i & "," & _
"W" & i & ",Z" & i).Copy
h2.Cells(j, "A").PasteSpecial xlValues
j = j + 1
End If
Next
Application.ScreenUpdating = True
Application.CutCopyMode = False
MsgBox "Filas copiadas"
End Sub
1 respuesta
Respuesta de Adriel Ortiz Mangia
1
H o l a
Te paso la macro actualizada
Sub Copiar()
'Por.Dante Amor
Application.ScreenUpdating = False
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
h2.UsedRange.Offset(1, 0).ClearContents
j = 2
n = 0
For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row
If h1.Cells(i, "Z") = Date Then
h1.Range("B" & i & ",D" & i & ",F" & i & ",I" & i & "," & _
"J" & i & ",K" & i & ":N" & i & ",T" & i & "," & _
"W" & i & ",Z" & i).Copy
h2.Cells(j, "A").PasteSpecial xlValues
j = j + 1
n = n + 1
End If
Next
Application.ScreenUpdating = True
Application.CutCopyMode = False
MsgBox "Filas copiadas" & n
End SubValora para finalizar saludos!
¡Gracias!
Consulta cerrada.
