Pasar datos de excel de una hoja a otra
Buenas, mi nombre es Dayana
Tengo un problema para ejecutar una macro, necesito que al momento de seleccionar un dato de una columna me copie los datos de esa fila automáticamente a otra hoja ej:
Hoja 1 Hoja 2 (1) Hoja 3 (2)
Clmna A B C A B A B
23 32 1 23 32 42 45
42 45 2 56 22 43 85
43 85 2
56 22 1
No sé si me hice explicar,
Muchas gracias por su atención.
Versión de excel 2007
1 respuesta
Espero estés realmente bien.
Te paso un linck a un archivo de descarga que tiene una solución que podría funcionarte.
https://www.dropbox.com/s/0qec28a9kjhyi9x/Comprobar%20y%20Copiar.xlsm
Ademas, pego en el presente mensaje el código utilizado.
Sub ComprobaryCopiar()
If ActiveCell = "2" Then
ActiveCell.Offset(0, -1).Select
Range(Selection, Selection.End(xlToLeft)).Select
Selection.Copy
Sheets("Hoja2").Select
Range("A2800").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
Sheets("Hoja1").Select
Application.CutCopyMode = False
ActiveCell.Offset(0, 2).Select
End If
If ActiveCell = "3" Then
ActiveCell.Offset(0, -1).Select
Range(Selection, Selection.End(xlToLeft)).Select
Selection.Copy
Sheets("Hoja3").Select
Range("A2800").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
Sheets("Hoja1").Select
Application.CutCopyMode = False
ActiveCell.Offset(0, 2).Select
End If
End Sub
Sub EstadoCelda()
Range("C1").Activate
Do While Not IsEmpty(ActiveCell)
MsgBox ("Esta CELDA tiene algo, PROCEDER")
Call ComprobaryCopiar
ActiveCell.Offset(1, 0).Activate
Loop
MsgBox ("Esta CELDA NO tiene algo, FINALIZAR")
End Sub
Espero sea de tu utilidad.
Bendiciones!
Lucas.
