Necesito ayuda verán intento que de una hoja llamada Rentas los equipos que ya se regresaron es decir marcan "SI" se copien y se peguen en la hoja Historicos y una vez pegados se eliminen de la hoja rentas con el fin de que me queden solo los equipos que siguen rentados e intentado con la siguiente macro, no soy buena lo he hecho con lo que e podido encontrar por eso muchos les agradecería su ayuda
Private Sub transferir_Click()
Application.ScreenUpdating = False
Set h1 = Sheets("hoja3")
Set h2 = Sheets("hoja11")
j = h2.Range("K" & Rows.Count).End(xlUp).Row + 1
For i = h1.Range("k" & Rows.Count).End(xlUp).Row To 2 Step -1
If h1.Cells(i, "K") = "SI" Then
h1.Rows(i).Copy
h2.Range("A" & j).PasteSpecial xlValues
h1.Rows(i).Delete
j = j + 1
End If
Next
Application.ScreenUpdating = True
Application.CutCopyMode = False
MsgBox "Se transfirio"
End Sub
esta la puse en un botón para correr la macro no se si se pudiera hacer automatico sin usar el boton
con solo ponerle si se elimine de esa hoja y se pase a historicos
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Hola buenas tardes..
Necesito ayuda verán intento que de una hoja llamada Rentas los equipos que ya se regresaron es decir marcan "SI" se copien y se peguen en la hoja Historicos y una vez pegados se eliminen de la hoja rentas con el fin de que me queden solo los equipos que siguen rentados e intentado con la siguiente macro, no soy buena lo he hecho con lo que e podido encontrar por eso muchos les agradecería su ayuda
Application.ScreenUpdating = False
Set h1 = Sheets("hoja3")
Set h2 = Sheets("hoja11")
j = h2.Range("K" & Rows.Count).End(xlUp).Row + 1
For i = h1.Range("k" & Rows.Count).End(xlUp).Row To 2 Step -1
If h1.Cells(i, "K") = "SI" Then
h1.Rows(i).Copy
h2.Range("A" & j).PasteSpecial xlValues
h1.Rows(i).Delete
j = j + 1
End If
Next
Application.ScreenUpdating = True
Application.CutCopyMode = False
MsgBox "Se transfirio"
End Sub
esta la puse en un botón para correr la macro no se si se pudiera hacer automatico sin usar el boton