Anónimo
Ayuda con una macro de excel
Que tal mi macro es para que cuando suceda un cambio en una hoja, me copie los datos que cambiaron en otra hoja, y no tengo problema en que se ejecute una macro cuando se realize un cambio lo que pasa es que los datos que se van a copiar son un rango de varias celdas por así decirlo de la a2:d10, entonces la macro que va a copiar los datos necesito que busque el siguiente espacio en blanco. Tengo algo así:
Sub UFAGREGA()
Sheets("ACTUALIZACION").Select
Range("a2:d11").Copy
Dim iFila As Long
Dim ws As Worksheet
Set ws = Worksheets("INFORMACION")
Dim Datos As Variant
Datos = Range("a2:d11")
'Encuentra la siguiente fila vacia
Sheets("INFORMACION").Select
iFila = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
ws.Cells(iFila, 1).Value = Datos
End Sub
Lo que pasa es que no copia todo el rango de celdas, y unicamente copia una celda.
Espero tu respuesta gracias
Sub UFAGREGA()
Sheets("ACTUALIZACION").Select
Range("a2:d11").Copy
Dim iFila As Long
Dim ws As Worksheet
Set ws = Worksheets("INFORMACION")
Dim Datos As Variant
Datos = Range("a2:d11")
'Encuentra la siguiente fila vacia
Sheets("INFORMACION").Select
iFila = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
ws.Cells(iFila, 1).Value = Datos
End Sub
Lo que pasa es que no copia todo el rango de celdas, y unicamente copia una celda.
Espero tu respuesta gracias
