Como consultar con una variable de visual en una hoja de excel.

... si tengo una variable llamada "codigo", quiero que me la busque en una hoja de excel llamada codigos
y en donde encuentre el "codigo" me traiga de esa fila los campos ciudad y departamento.
Esto lo quiero hacer con visual por ejemplo:
Dim Codigo as string
Ciudad = Dbusq("Codigo", sheets("Codigos"), ciudad) "Es la idea del codigo como ejemplo"
Les agradezco de antemano cualquier ayuda que me puedan brindar...

... como hago para evaluar que el codigo existe en la tabla de codigos en este caso la hoja de excel...

hola, Oswaldo !

> ... como hago para evaluar que el codigo existe en la tabla de codigos en este caso la hoja de excel...

con algo +/- como lo siguiente:

With Application.WorksheetFunction
If .CountIf(Worksheets("codigos").Range(<primer columna de la tabla>), Codigo) Then
Ciudad = .Vlookup(Codigo, Worksheets("codigos").Range(<rango de la tabla>), <#_col_ciudad>)
Else
MsgBox "No existe el codigo: " & Codigo
End If
End With

saludos,
hector.

Una pregunta mas, como hago para llamar esta funcion desde una macro se puede?

Lo que sucede es que este paso va dentro de una macro, que ya tengo disenada
y que hace otras cosas antes de verificar si el codigo existe o no
la idea es que cuando llegue a este paso me vote el mensaje de que no existe el codigo
y que lo revise nuevamente, y me saque de la macro que se puede llamar "Paso_4".

Mostrar la cita

Mostrar la cita

... como hago para evaluar que el codigo existe en la tabla de codigos en este caso la hoja de excel...

con algo +/- como lo siguiente:

With Application.WorksheetFunction
If .CountIf(Worksheets("codigos").Range(<primer columna de la tabla>), Codigo) Then
Ciudad = .Vlookup(Codigo, Worksheets("codigos").Range(<rango de la tabla>), <#_col_ciudad>)
Else
MsgBox "No existe el codigo: " & Codigo
End If
End With