UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo


No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

Poolrimbaud


Hola buenas tardes, me pueden ayudar con la sig. linea de codigo lo que estoy buscando hacer es Buscar registros en vase a 2 o mas criterios actualmente tengo este codigo con el que busco en base a un criterio pero no se como modificarlo para que pueda buscar con mas criterios espero puedan ayudarme gracias........

Private Sub B_Buscar_Click()
On Error Resume Next

Text_Denominaciondistintiva.Text = WorksheetFunction.VLookup(Val((Text_Codigo.Text) And (C_Estatus.Text)), Sheets("Productos").Range("B6:T1505"), 3, False)
C_Laboratorio.Text = WorksheetFunction.VLookup(Val(Text_Codigo.Text And C_Estatus.Text), Sheets("Productos").Range("B6:T1505"), 4, False)
Text_RegistroSanitario.Text = WorksheetFunction.VLookup(Val(Text_Codigo.Text), Sheets("Productos").Range("B6:T1505"), 5, False)
C_Forma.Text = WorksheetFunction.VLookup(Val(Text_Codigo.Text), Sheets("Productos").Range("B6:T1505"), 6, False)
C_Administracion.Text = WorksheetFunction.VLookup(Val(Text_Codigo.Text), Sheets("Productos").Range("B6:T1505"), 7, False)
Text_Presentacion.Text = WorksheetFunction.VLookup(Val(Text_Codigo.Text), Sheets("Productos").Range("B6:T1505"), 8, False)
Text_Precio.Text = WorksheetFunction.VLookup(Val(Text_Codigo.Text), Sheets("Productos").Range("B6:T1505"), 9, False)
Text_cualitativa.Text = WorksheetFunction.VLookup(Val(Text_Codigo.Text), Sheets("Productos").Range("B6:T1505"), 10, False)
Text_Cuantitativa.Text = WorksheetFunction.VLookup(Val(Text_Codigo.Text), Sheets("Productos").Range("B6:T1505"), 11, False)
Text_Excipiente.Text = WorksheetFunction.VLookup(Val(Text_Codigo.Text), Sheets("Productos").Range("B6:T1505"), 12, False)
C_Temperatura.Text = WorksheetFunction.VLookup(Val(Text_Codigo.Text), Sheets("Productos").Range("B6:T1505"), 13, False)
C_Humedad.Text = WorksheetFunction.VLookup(Val(Text_Codigo.Text), Sheets("Productos").Range("B6:T1505"), 14, False)
C_Luz.Text = WorksheetFunction.VLookup(Val(Text_Codigo.Text), Sheets("Productos").Range("B6:T1505"), 15, False)
C_Clasificacion.Text = WorksheetFunction.VLookup(Val(Text_Codigo.Text), Sheets("Productos").Range("B6:T1505"), 16, False)
C_Controles.Text = WorksheetFunction.VLookup(Val(Text_Codigo.Text), Sheets("Productos").Range("B6:T1505"), 17, False)
C_Grupo.Text = WorksheetFunction.VLookup(Val(Text_Codigo.Text), Sheets("Productos").Range("B6:T1505"), 18, False)
C_Subgrupo.Text = WorksheetFunction.VLookup(Val(Text_Codigo.Text), Sheets("Productos").Range("B6:T1505"), 19, False)

B_Editar.Enabled = True

End Sub

jhon1904

avatar
Hola 
lea las normas del foros, siempre sube un archivo de ejemplo

saludos


_________________
Jhon Mayorquin
https://www.facebook.com/groups/1908894496046888/

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.