Últimos mensajes - Powered by IBM

Palabras claves

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

21/10/2008 - 16:20 por Pregunton | Informe spam

Buenos Días a los participantes de este ayuda!

Hoy y como siempre preguntando...
La incognita de hoy es 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 código
como ejemplo"

Les agradezco de antemano cualquier ayuda que me puedan brindar.

Atentamente;

OSWALDO GAITAN ARAQUE
Que Dios los bendiga!

Siga el debate

7 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Héctor Miguel

21/10/2008 - 23:27 | Informe spam

hola, Oswaldo !

... 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...

puedes usar las funciones de hoja de calculo desde vba (p.e. un buscarv)

Ciudad = Application.WorksheetFunction.Vlookup(Codigo, Worksheets("codigos").Range(..???..), <#_col_ciudad>)

(probablemente habria que asegurar primero que el codigo buscado exista en el listado ?)

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Responder a este mensaje

#2 Pregunton

27/10/2008 - 16:58 | Informe spam

Hola Héctor Miguel:

Gracias por su ayuda. Pero al revisar la solución usted tiene razon en su
comentario, como hago para evaluar que el codigo existe en la tabla de
codigos en este caso la hoja de excel.

Nuevamente gracias por su ayuda.

Atentamente;

OSWALDO GAITAN ARAQUE
Bendiciones!

Responder a este mensaje

#3 Héctor Miguel

27/10/2008 - 18:46 | Informe spam

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.

Responder a este mensaje

#4 Pregunton

28/10/2008 - 00:13 | Informe spam

Hola Héctor Miguel:

Una pregunta más, como hago para llamar esta función desde una macro se puede?

Lo que sucede es que este paso va dentro de una macro, que ya tengo diseñada
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".

Gracias nuevamente por su ayuda y perdone tanta molestia.

Atentamente;

OSWALDO GAITAN ARAQUE
Bendiciones!

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.

Responder a este mensaje

#5 Héctor Miguel

28/10/2008 - 01:01 | Informe spam

hola, Oswaldo !

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

la propuesta es (precisamente) "parte"... de algun codigo en alguna macro -???-

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".

en este caso, solo encuentra en que parte de la macro que ya usas es donde "cabe" la propuesta
(o... podrias expones el codigo ?)

saludos,
hector.

__ OP __

... 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

Responder a este mensaje

Ads by Google

Hacer una preguntaSiguiente

Tengo una respuesta

Busqueda sugerida