una consulta tengo unos datos que quiero buscar y mortrar en otra tabla, pero al momento de seleccionar el numero a buscar me sale descuadrado , si pueden ayudarme a ver el error , se los agradecería y si se puede cargar una imagen ,tambien introducir el código aquí Sub Buscador() Dim valor_Buscado As Integer Dim celda As String Dim celda1 As String Dim celda2 As String Dim celda3 As String Dim celda4 As String valor_Buscado = Range("a3").Value celda = Application.VLookup(valor_Buscado, Sheets("BD").Range("B2:G16"), 2, 0) Range("B3") = celda celda1 = Application.VLookup(valor_Buscado, Sheets("BD").Range("B2:G16"), 3, 0) Range("B4") = celda1 celda2 = Application.VLookup(valor_Buscado, Sheets("BD").Range("B2:G16"), 4, 0) Range("B5") = celda2 celda3 = Application.VLookup(valor_Buscado, Sheets("BD").Range("B2:G16"), 2, 0) Range("B6") = celda3 celda4 = Application.VLookup(valor_Buscado, Sheets("BD").Range("B2:G16"), 6, 0) Range("B7") = celda4 End Sub [![introducir la descripción de la imagen aquí][1]][1] quiero que aparesca en esta hoja y estos campos [![introducir la descripción de la imagen aquí][2]][2] [1]: https://i.sstatic.net/KfWL0.png [2]: https://i.sstatic.net/5v5If.png pero como pueden ver no me sale correctamente