Como llamar los datos
Mi pregunta es la siguiente, si tengo una base de datos con los clientes de la empresa la cual incluye nombre, teléfono, dirección, ciudad en la hoja 2 por ejemplo como hago un campo en la hoja 1 que al escribir en un celda predeterminada me traiga todoa los datos del cliente y cada vez que quiera llamarlos lo pueda hacer.
1 Respuesta
Respuesta de dayvitt
1
Dime en que celdas quieres los datos y en que celdas de la hoja2 tienes los datos
los datos estan en a1, a2, a3,a4 donde a1 es el numero de referencia, y quiero que salga en la hoja 1 de la siguiente maner
Referencia:
Articulo:
Precio:
Descuento:
Referencia:
Articulo:
Precio:
Descuento:
Ok, entiendo pues que los datos los quieres en la columna B de la Hoja 1. Y en la Hoja 2 tienes los registros horizontalmente.
Creamos un código VB, Herramientas->Macro->editor VB Insertar->Modulo
Pegamos esto:
Sub encuentra()
Dim x As Integer
x = 1
Do Until Hoja2.Cells(x, "A") = ""
If Hoja2.Cells(x, "A") = Hoja1.Cells(1, "B") Then
Hoja1.Cells(2, "B") = Hoja2.Cells(x, "B")
Hoja1.Cells(3, "B") = Hoja2.Cells(x, "C")
Hoja1.Cells(4, "B") = Hoja2.Cells(x, "D")
End If
x = x + 1
Loop
End Sub
Cerramos el editor de VB. Ahora después de escribir la referencia en la celda B1, vamos a Herramientas->Macros->Macro y ejecutamos encuentra.
Creamos un código VB, Herramientas->Macro->editor VB Insertar->Modulo
Pegamos esto:
Sub encuentra()
Dim x As Integer
x = 1
Do Until Hoja2.Cells(x, "A") = ""
If Hoja2.Cells(x, "A") = Hoja1.Cells(1, "B") Then
Hoja1.Cells(2, "B") = Hoja2.Cells(x, "B")
Hoja1.Cells(3, "B") = Hoja2.Cells(x, "C")
Hoja1.Cells(4, "B") = Hoja2.Cells(x, "D")
End If
x = x + 1
Loop
End Sub
Cerramos el editor de VB. Ahora después de escribir la referencia en la celda B1, vamos a Herramientas->Macros->Macro y ejecutamos encuentra.
