Macro que copie una celda a la vez
Saludos, ojala me puedas ayudar con esto.
Espero poder darme a entender
Tengo en una hoja de excel una lista de registros por ejemplo 100 registros de la cedla A1 a la A100.
1. Comienzo copiando el primer registro (A1) y voy al neodata y pego ese registro
2. Regreso al archivo de excel y copio el segundo registro y voy al neodata y lo pego y así sucesivamente
Lo que me gustaría que la macro hiciera es lo siguiente:
1. Que cada vez que regrese al archivo de excel, con tan solo regresar al archivo ya me copie el registro siguiente
2. Que una vez copiado el dato me ponga de un color diferente esa celda o dato para indicar que ya ha sido copiado
Espero poder haberme dado a entender
Gracias de antemano
Espero poder darme a entender
Tengo en una hoja de excel una lista de registros por ejemplo 100 registros de la cedla A1 a la A100.
1. Comienzo copiando el primer registro (A1) y voy al neodata y pego ese registro
2. Regreso al archivo de excel y copio el segundo registro y voy al neodata y lo pego y así sucesivamente
Lo que me gustaría que la macro hiciera es lo siguiente:
1. Que cada vez que regrese al archivo de excel, con tan solo regresar al archivo ya me copie el registro siguiente
2. Que una vez copiado el dato me ponga de un color diferente esa celda o dato para indicar que ya ha sido copiado
Espero poder haberme dado a entender
Gracias de antemano
1 Respuesta
Respuesta de v_344
1
Que onda lobo:
Entendí... mira es muy sencillo lo único que tienes que hacer es en la ventana de vba (de la ficha programador, icono visual basic) encontraras a la izquierda el libro con el que trabajas y abajo una carpeta que se llama micosoft excel objetos, ahí aparecerán las hojas del libro con el que trabajas, das doble cilck en la hoja donde se encuentran los datos que quieres copiar y en la ventana que aparecerá insertas este código:
Private Sub Worksheet_Activate()
ActiveCell.Offset(1, 0).Select
Selection.Copy
With Selection.Interior
.Pattern = xlSolid
.Color = 65535
End With
End Sub
La primera celda la copiaras manual ("a1") y las siguientes cuando regreses al archivo ya estará copiada la celda "a2" y en color amarillo... y así sucesivamente cada que regreses al archivo.
Espero te sirva... sino me echas un grito...
Entendí... mira es muy sencillo lo único que tienes que hacer es en la ventana de vba (de la ficha programador, icono visual basic) encontraras a la izquierda el libro con el que trabajas y abajo una carpeta que se llama micosoft excel objetos, ahí aparecerán las hojas del libro con el que trabajas, das doble cilck en la hoja donde se encuentran los datos que quieres copiar y en la ventana que aparecerá insertas este código:
Private Sub Worksheet_Activate()
ActiveCell.Offset(1, 0).Select
Selection.Copy
With Selection.Interior
.Pattern = xlSolid
.Color = 65535
End With
End Sub
La primera celda la copiaras manual ("a1") y las siguientes cuando regreses al archivo ya estará copiada la celda "a2" y en color amarillo... y así sucesivamente cada que regreses al archivo.
Espero te sirva... sino me echas un grito...
Perdón lobo lo que te pase es en el cambio de una hoja activa... para que se produzca cuando se activa el libro es:
Private Sub Workbook_Activate()
ActiveCell.Offset(1, 0).Select
Selection.Copy
With Selection.Interior
.Pattern = xlSolid
.Color = 65535
End With
End Sub
Y se tiene que poner en micosoft excel objetos, thisworkbook
Private Sub Workbook_Activate()
ActiveCell.Offset(1, 0).Select
Selection.Copy
With Selection.Interior
.Pattern = xlSolid
.Color = 65535
End With
End Sub
Y se tiene que poner en micosoft excel objetos, thisworkbook
