Macro doble click para ir pasando filas a otra hoja
Quisiera su apoyo con el siguiente:
Tengo un macro que al darle doble click en la primera celda (A1), me seleccione el rango completo de información (A:A) de esa fila y la corte y pegue en otra hoja (RESERVA) alimentándola hacia abajo con la información de la primera hoja. Cada vez que se pase la información de la 2da hoja (RESERVA), debe ir eliminándose esa fila de la primera hoja.
Muy agradecido.
Marcelo
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
rr = ActiveSheet.Name
Sheets("RESERVA").Select
Sheets("RESERVA").Activate
Application.SendKeys ("{DOWN}")
Sheets(rr).Select
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
Cells(Target.Row, "T") = Date
Selection.EntireRow.Select
Selection.Interior.ColorIndex = 6
Selection.EntireRow.Copy
Sheets("RESERVA").Select
Selection.PasteSpecial
'Application.SendKeys ("{DOWN}")
Sheets(rr).Select
Selection.EntireRow.Delete
End Sub
1 respuesta
Te anexo la macro actualizada
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Act.Por.Dante Amor
If Not Intersect(Target, Columns("A")) Is Nothing Then
If Target.Value = "" Then Exit Sub
Set h1 = ActiveSheet
Set h2 = Sheets("RESERVA")
h1.Cells(Target.Row, "T") = Date
u2 = h2.Range("A" & Rows.Count).End(xlUp).Row + 1
h1.Rows(Target.Row).Copy h2.Rows(u2)
h2.Rows(u2).Interior.ColorIndex = 6
h1.Rows(Target.Row).Delete
Application.SendKeys ("{ESC}")
End If
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
