EXCEL - Copiar rango de celdas a otra hoja

patogonza · #1 (**permalink**) 19/12/2007, 15:30

Hola, tengo un problema. Tengo una hoja (hoja1) con una serie de datos, y quiero copiar un rango de celdas para esa info se copia tal cual en la siguiente hoja (hoja2)

El problemas es que quiero que se copie la info al ingresar datos en una celda especifica. Espero que me puedan ayudar.

Pablus00 · #2 (**permalink**) 19/12/2007, 21:38

Hola Patogonza, tenes noviones de vb como para crear un macro? asi te doy una mano

patogonza · #3 (**permalink**) 19/12/2007, 22:05

Si, no soy experto ni mucho menos pero me las puedo arreglar, gracias!!!

yenay · #4 (**permalink**) 20/12/2007, 02:03

Tienes que usar el evento de hoja:

sub Worksheet_SelectionChange(ByVal Target As Range)

end sub.

Espero que te ayude

patogonza · #5 (**permalink**) 20/12/2007, 07:37

Pero entre los Sub, que pongo? como le digo a excel que al escribir una palabra en una celda, me copie el contenido de la hoja en la hoja siguiente?

yenay · #6 (**permalink**) 20/12/2007, 09:45

Como pusiste que sí tenias nociones....

Bueno, el caso es que una macro muy simple es esta:

Suponiendo que la celda que tiene que cambiar es la A22

Tienes que escribir esto en el código de la hoja1:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$22" Then
Cells.Select
Selection.Copy
Sheets("Hoja2").Select
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
Sheets("Hoja1").Select
Range("A1").Select
Application.CutCopyMode = False
End If
End Sub

Sólo te copia el contenido de la hoja 1 en la hoja 2 nada más, y además lo hace con cualquier cambio en la celda a22 (poner cualquier letra...), pero igual el código te sirve para hacer la tuya a medida.

Suerte

patogonza · #7 (**permalink**) 20/12/2007, 11:07

El codigo esta muy bien y es claro (es una situacion sencilla) pero me tira error en el primer Range("A1").Select, no entiendo!!!
Gracias

yenay · #8 (**permalink**) 20/12/2007, 11:15

Lo siento, esto me pasa por escribir código de memoria.

prueba así:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$22" Then
Cells.Select
Selection.Copy
Sheets("Hoja2").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
ActiveSheet.Range("A1").Select
Sheets("Hoja1").Select
Range("A1").Select
Application.CutCopyMode = False
End If
End Sub

patogonza · #9 (**permalink**) 20/12/2007, 11:19

Gracias!! Funciona barbaro, debe ser facil para vos, pero para mi no!!

yenay · #10 (**permalink**) 20/12/2007, 11:20

Denada hombre, para eso estamos.

lop64 · #11 (**permalink**) 07/03/2008, 18:50

me puedes explicar bien como introducir el codigo, por favooor