Visual Basic Foro

Programación => Visual Basic 6 => Mensaje iniciado por: nico_hitman en Julio 06, 2016, 11:48:06 am

Título: Buscar datos en archivo excel
Publicado por: nico_hitman en Julio 06, 2016, 11:48:06 am

estimados, quisiera saber si me pueden ayudar con lo siguiente: hace un tiempo hice un buscador con el editor de VB en una planilla excel para buscar datos (al ingresar el dato de la columna Ax, mostraba el dato de la columna Bx), el codigo quedó asi:

Código: (VB) [Seleccionar]

Private Sub CommandButton1_Click()

On Error Resume Next
Valor2 = Application.WorksheetFunction.VLookup(Me.ComboBox2.Value, Sheets("Hoja1").Range("E:F"), 2, 0)
Me.Label2.Caption = Valor2
End Sub

Private Sub CommandButton2_Click()

On Error Resume Next
Valor = Application.WorksheetFunction.VLookup(Me.ComboBox1.Value, Sheets("Hoja1").Range("A:B"), 2, 0)
Me.Label1.Caption = Valor
End Sub

Private Sub UserForm_Initialize()

Application.Visible = False

End Sub
ahora, el problema es que cuando lo ejecuto no puedo abrir otras planillas excel, por lo que quisiera hacer este programa directo en VB  para hacerlo ejecutable y que vaya a buscar los datos a una planilla excel en mi PC, lo cual no se hacer :(

espero me ayuden, gracias

Título: Re:Buscar datos en archivo excel
Publicado por: AxioUK en Julio 13, 2016, 01:09:42 am

Hola nico_hitman:

Para que puedas abrir otras planillas mientras ejecutas el buscador solo cambia la forma en que se muestra el UserForm VBA:
- En las Propiedades del UserForm cambia ShowModal a FALSE


(https://s32.postimg.org/oyim69s8h/2016_07_13_00_06_12_Microsoft_Visual_Basic_para.png) (https://postimg.org/image/oyim69s8h/)

Saludos Cordiales