Interrelación entre dos hojas, necesito ayuda...
Buenos días, quiero realizar una operación en excel entre dos hojas distintas. Voy a intentar explicar lo que quiero hacer y si se puede hacer, porque la verdad llevo 3 días intentándolo y no lo consigo...
Quiero que en una hoja, digamos hoja 1, al rellenar una serie de datos, por ejemplo, en la celda b1, el nombre de pepe, en la celda c1, nombre de Jesús, en la d1, luis y en la e1, antonio. Cuando en la celda a1, le ponga un numero del 1 al 30, automáticamente coloque esos nombres en otra hoja, por ejemplo, hoja 2, en un cuadro que he diseñado. Es decir si al grupo de Pepe, Jesús, Luis, y Antonio, le saliera el nº 3, por ejemplo, los coloque en la hoja 2 en las celdas, que correspondan al nº 3, y si les saliera el nº 6 pues los colocara en las celdas de la hoja 2 correspondiente al grupo 6.
Hoja 1
a b c d e
Fila 1 1 o 3, o lo que salga Pepe Jesús Luis antonio
Hoja 2
a b c d
1 1 pepe jesús
2 Luis antonio
Esto es más o menos el resultado que quiero que salga...
¿Se puede hacer? Alguien caritativo, ¿qué me pueda ayudar?, es muy importante para mi,... Os lo agradezco,... Gracias,...
Quiero que en una hoja, digamos hoja 1, al rellenar una serie de datos, por ejemplo, en la celda b1, el nombre de pepe, en la celda c1, nombre de Jesús, en la d1, luis y en la e1, antonio. Cuando en la celda a1, le ponga un numero del 1 al 30, automáticamente coloque esos nombres en otra hoja, por ejemplo, hoja 2, en un cuadro que he diseñado. Es decir si al grupo de Pepe, Jesús, Luis, y Antonio, le saliera el nº 3, por ejemplo, los coloque en la hoja 2 en las celdas, que correspondan al nº 3, y si les saliera el nº 6 pues los colocara en las celdas de la hoja 2 correspondiente al grupo 6.
Hoja 1
a b c d e
Fila 1 1 o 3, o lo que salga Pepe Jesús Luis antonio
Hoja 2
a b c d
1 1 pepe jesús
2 Luis antonio
Esto es más o menos el resultado que quiero que salga...
¿Se puede hacer? Alguien caritativo, ¿qué me pueda ayudar?, es muy importante para mi,... Os lo agradezco,... Gracias,...
1 Respuesta
Respuesta de Elsa Matilde
1
Te dejo una rutina para esto. Lo que hará es que cada vez que modifiques la celda de col E se pase ese rango de datos a la Hoja2
Estoy considerando que las col A tienen los mismos datos a partir de fila 2.
Entrá al Editor, seleccioná con doble clic el objeto HOJA1 del panel a tu izquierda y allí copiá esto (ajustá tu rango final que dejé en A100)
Private Sub Worksheet_Change(ByVal Target As Range)
'x Elsamatilde
'solo se controla lo ingresado en col E
If Target.Column <> 5 Then Exit Sub
'busco en hoja2 el dato ingresado en col A
dato = Target.Offset(0, -4).Value
Set busco = Sheets("Hoja2").Range("A2:A100").Find(dato, LookIn:=xlValues, lookat:=xlWhole)
If busco Is Nothing Then Exit Sub
'si encontró el dato pasa el resto de la fila
fila = busco.Row
Range(Target.Offset(0, -3), Target).Copy Destination:=busco.Offset(0, 1)
End Sub
Estoy considerando que las col A tienen los mismos datos a partir de fila 2.
Entrá al Editor, seleccioná con doble clic el objeto HOJA1 del panel a tu izquierda y allí copiá esto (ajustá tu rango final que dejé en A100)
Private Sub Worksheet_Change(ByVal Target As Range)
'x Elsamatilde
'solo se controla lo ingresado en col E
If Target.Column <> 5 Then Exit Sub
'busco en hoja2 el dato ingresado en col A
dato = Target.Offset(0, -4).Value
Set busco = Sheets("Hoja2").Range("A2:A100").Find(dato, LookIn:=xlValues, lookat:=xlWhole)
If busco Is Nothing Then Exit Sub
'si encontró el dato pasa el resto de la fila
fila = busco.Row
Range(Target.Offset(0, -3), Target).Copy Destination:=busco.Offset(0, 1)
End Sub
