Buenas,

Nunca he sabido muy bien cómo programar el buscarv para que busque en un rango dinámico y no en uno fijo, normalmente si más o menos sé que donde tiene que buscar nunca va a pasar de las 2000 filas pues pongo que busque de 1 a 2000, pero me gustaría saber cómo hacerlo para que fuese dinámico y buscase en la totalidad de filas que tenga la hoja en ese momento.

Muchas gracias.

Os paso el ejemplo de cómo lo hago hasta ahora.

 

Ej_BuscarV.xlsm

Sub Buscaenhoja2(): On Error Resume Next
Application.ScreenUpdating = False
Sheets("Hoja1").Activate
For x = 2 To Range("A" & Rows.Count).End(xlUp).Row
   Cells(x, "B").Value = _
      WorksheetFunction.VLookup((Cells(x, "A").Value), _
         Sheets("Hoja2").Range("A1").CurrentRegion, 2, 0)
Next
Application.ScreenUpdating = True
End Sub

 

hace 2 minutos , Antoni dijo:

Sub Buscaenhoja2(): On Error Resume Next
Application.ScreenUpdating = False
Sheets("Hoja1").Activate
For x = 2 To Range("A" & Rows.Count).End(xlUp).Row
   Cells(x, "B").Value = _
      WorksheetFunction.VLookup((Cells(x, "A").Value), _
         Sheets("Hoja2").Range("A1").CurrentRegion, 2, 0)
Next
Application.ScreenUpdating = True
End Sub

 

También valdría:

Sub Buscaenhoja2(): On Error Resume Next
Application.ScreenUpdating = False
Sheets("Hoja1").Activate
For x = 1 To Range("A" & Rows.Count).End(xlUp).Row
   Cells(x, "B").Value = _
      WorksheetFunction.VLookup((Cells(x, "A").Value), Sheets("Hoja2").UsedRange, 2, 0)
Next
Application.ScreenUpdating = True
End Sub

 

hace 31 minutos , Antoni dijo:

También valdría:

Sub Buscaenhoja2(): On Error Resume Next
Application.ScreenUpdating = False
Sheets("Hoja1").Activate
For x = 1 To Range("A" & Rows.Count).End(xlUp).Row
   Cells(x, "B").Value = _
      WorksheetFunction.VLookup((Cells(x, "A").Value), Sheets("Hoja2").UsedRange, 2, 0)
Next
Application.ScreenUpdating = True
End Sub

 

graciasss!!