Macro - Copiar datos de celdas a otra hoja en celdas consecutivas
Me gustaría saber de una macro que sirva para copiar datos de celdas en la Hoja1 a celdas distintas (de una fila) en la Hoja2 y que cada vez que se ejecute dicha macro esta coloque los datos en las celdas de la Hoja2 en filas consecutivas y que la misma macro limpie las celdas de la Hoja1, para que quede lista para una nueva captura.
Ejemplo:
. Hoja1 .
.........A................B.............C..........
1 NOMBRE:... LUIS
2 ... COLOR: ROJO
3 PUNTOS:... 78
Segunda Captura despues de ejecutar la macro
. Hoja1 .
.........A................B.............C..........
1 NOMBRE:... MARIA
2 ... COLOR: AZUL
3 PUNTOS:... 99
Como me gustaría que se copiaran los datos a Hoja2, de forma consecutiva cada vez que se ejecute la macro
. Hoja2 .
.........A................B.............C..........
1 NOMBRE:... COLOR... PUNTOS
2 LUIS... ROJO... 78
3 MARIA... AZUL... 99
Todo esto lo ocupo porque voy a hacer una pequeña base de datos, con su formato de captura en excel y necesito hacerla estrictamente en excel.
1 Respuesta
Te mando mi solución. Con esta macro todo resuelto:
Sub ejemplo()'por luismondeloSheets("hoja1").SelectRange("b1").CopySheets("hoja2").Range("a65000").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValuesRange("c2").CopySheets("hoja2").Range("b65000").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValuesRange("b3").CopySheets("hoja2").Range("c65000").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValuesRange("b1, c2, b3").ClearContentsEnd SubPor favor recuerda finalizar la consulta, esto es importante
