Macro para ver datos de una fila de otra hoja
Muchas gracias de antemano quisiera me ayudes por favor
Mira tengo un registro de 8 hojas, en cada hoja tengo unas 40 filas de 20 columnas; quisiera que me ayuden con una macro que me permita ver en la hoja 9 dos filas de una determinada hoja, por decir quisiera ver las filas 4 y 8 de la hoja 3; filas 4 y 9 de la misma hoja y que esto lo pueda hacer escribiendo el número de fila que quiero ver, les quedare agradecido
Saludos Phisis
Mira tengo un registro de 8 hojas, en cada hoja tengo unas 40 filas de 20 columnas; quisiera que me ayuden con una macro que me permita ver en la hoja 9 dos filas de una determinada hoja, por decir quisiera ver las filas 4 y 8 de la hoja 3; filas 4 y 9 de la misma hoja y que esto lo pueda hacer escribiendo el número de fila que quiero ver, les quedare agradecido
Saludos Phisis
1 Respuesta
Respuesta de calvuch
1
Bien. Abre el editor de Visual basic (ALT +F11)
Desde la barra de proyecto dale doble click al objeto Hoja9.
En la ventana de edición que e abrió pegas esto
Private Sub Worksheet_Change(ByVal Target As Range)
Dim fila As Integer
Dim hojas As Integer
If Target.Column = 2 Then
Application.ScreenUpdating = False
If Range("A" & Target.Row) = Empty Then
MsgBox "Falta indicar la hoja", vbCritical
Target.Offset(0, -1).Select
Exit Sub
End If
fila = Range("B" & Target.Row)
hoja = Range("A" & Target.Row)
Sheets(hoja).Select
Sheets(hoja).Range("A" & fila).EntireRow.Copy
Sheets(9).Select
Range("A" & Target.Row).Select
ActiveSheet.Paste
Range("A" & Target.Row).Select
Application.CutCopyMode = False
Application.ScreenUpdating = True
End If
End Sub
Ahora graba la hoja.
Esto funciona de la siguiente forma:
Para columna A debes poner sencillamente el numero de la hoja que deseas consultar
para columna B el numero de fila ( solo uno)
Entonces si deseas ver la fila 9 desde la hoja 2
Entonces en la hoja 9 pondrías:
columna A=2
columna B=9
No olvides CERRAR la pregunta
Desde la barra de proyecto dale doble click al objeto Hoja9.
En la ventana de edición que e abrió pegas esto
Private Sub Worksheet_Change(ByVal Target As Range)
Dim fila As Integer
Dim hojas As Integer
If Target.Column = 2 Then
Application.ScreenUpdating = False
If Range("A" & Target.Row) = Empty Then
MsgBox "Falta indicar la hoja", vbCritical
Target.Offset(0, -1).Select
Exit Sub
End If
fila = Range("B" & Target.Row)
hoja = Range("A" & Target.Row)
Sheets(hoja).Select
Sheets(hoja).Range("A" & fila).EntireRow.Copy
Sheets(9).Select
Range("A" & Target.Row).Select
ActiveSheet.Paste
Range("A" & Target.Row).Select
Application.CutCopyMode = False
Application.ScreenUpdating = True
End If
End Sub
Ahora graba la hoja.
Esto funciona de la siguiente forma:
Para columna A debes poner sencillamente el numero de la hoja que deseas consultar
para columna B el numero de fila ( solo uno)
Entonces si deseas ver la fila 9 desde la hoja 2
Entonces en la hoja 9 pondrías:
columna A=2
columna B=9
No olvides CERRAR la pregunta
Muchísimas gracias experto; sin ustedes nois pasaríamos toda una vida tratando de realizar estas cosas prácticas; excelente hasta otra oportunidad
