Anónimo
Como inseertar una instruccion de borrado de filas en vba excel
En dias pasados dante me ayudo con una macro para el copiado de unos datos de una hoja a otra, me funciona a la perfeccion, lo que sucede actualmente es que cada vez que la ejecuto me adiciona nuevamente todos los datos, intente crear una instruccion grabado una macro y extrayendo el codigo para anteponeerlo a la instruccion de dante pero no me funciona, quisiera saber como lo hago para que esto no me suceda, les comparto el codigo.
Gracias de antemano.
Sub CopiarProrrogaHojas()
'Por.Dante Amor
Application.ScreenUpdating = False
Set h2 = Sheets("Prorrogas") 'Hoja destino
col = "N" 'Columna de Incapacidad por Prorroga
'
For Each h1 In Sheets
If h1.Name <> h2.Name Then
For i = 1 To h1.Range(col & Rows.Count).End(xlUp).Row
If UCase(h1.Cells(i, col)) = "SI" Then
u2 = h2.Range(col & Rows.Count).End(xlUp).Row + 1
If u2 < 6 Then u2 = 6
h1.Rows(i).Copy
h2.Rows(u2).PasteSpecial Paste:=xlValues
End If
Next
End If
Next
MsgBox "Terminado"
End Sub
Respuesta de Dante Amor
3
Te anexo la macro actualizada
Sub CopiarProrrogaHojas()
'Por.Dante Amor
Application.ScreenUpdating = False
Set h2 = Sheets("Prorrogas") 'Hoja destino
col = "N" 'Columna de Incapacidad por Prorroga
'
u2 = h2.Range(col & Rows.Count).End(xlUp).Row
If u2 < 6 Then u2 = 6
h2.Range("A6:N" & u2).ClearContents
u2 = 6
For Each h1 In Sheets
If h1.Name <> h2.Name Then
For i = 1 To h1.Range(col & Rows.Count).End(xlUp).Row
If UCase(h1.Cells(i, col)) = "SI" Then
h1.Rows(i).Copy
h2.Rows(u2).PasteSpecial Paste:=xlValues
u2 = u2 + 1
End If
Next
End If
Next
MsgBox "Terminado"
End SubS a l u d o s . D a n t e A m o r
Recuerda valorar la respuesta.