Base de datos en dos hojas.
Consulta:
Tengo dos hojas en uso.
En la Hoja1 tengo datos en las primeras 4 columnas y yo quisiera que en la Hoja2 cuando ingrese sobre la columna A un dato igual al de la columna A de la Hoja1 automáticamente me ponga los datos que faltan de las otros 3 columnas.
Como lo hago?
Saludos.-
1 respuesta
Respuesta de Luis Mondelo
-1
Te mando mi solución sigue mis instrucciones:
-Copia esta macro dentro del objeto hoja2.
-Ahora cuando escribas algo en la columna A de la hoja2 te pondrá el resto de datos que faltan automáticamente.
Private Sub Worksheet_Change(ByVal Target As Range)
'por luismondelo
If Target.Column = 1 Then
valor = Target.Value
Set busca = Sheets("hoja1").Range("a1:a1000").Find(valor, LookIn:=xlValues, lookat:=xlWhole)
If Not busca Is Nothing Then
Target.Offset(0, 1).Value = busca.Offset(0, 1)
Target.Offset(0, 2).Value = busca.Offset(0, 2)
Target.Offset(0, 3).Value = busca.Offset(0, 3)
Else
MsgBox "ese dato no está en la hoja1"
End If
End If
End Subno olvides finalizar la consulta
Como hago para copiarlo al macro dentro de la hoja2?
En el siguiente enlace te dejo un vídeo en el que te explico como hacerlo
No olvides finalizar la consulta
