Buscar datos en Hoja"Datos1" y mostarlo enUserForm
Hola,me encuentro haciendo un archivo en el que tengo la hoja "Datos1", con los datos ingresados con otras textbox, los cuales son los siguientes:
Columnas A a la F y Filas 1 a la 7, incluyendo la fila de descripción.
A.NoRbo. [] B.LetraRbo. [] C.Fecha [] D.Importe [] E.IVA [] F.Total
1001 A 01/10/2011 $100.00 $16.00 $116.00
1002 A 02/10/2011 $200.00 $32.00 $232.00
1003 A 03/10/2011 $150.00 $24.00 $174.00
1001 B 03/10/2011 $350.00 $32.00 $382.00
1002 B 04/10/2011 $150.00 $24.00 $174.00
1003 B 04/10/2011 $100.00 $16.00 $116.00
En el formulario BuscarRbo tengo el textbox1 y el textbox2, en los cuales quiero ingresar por ejemplo los valores "1002" y "B" y que al darle CommandButton1, este me busque esos valores en el cuadro que mostre anteriormente y me muestre los valores en el formulario Reimpresion con los textbox siguientes: NoRbo, LetraRbo, Fecha, Importe, IVA y Total
Hasta el momento llevo la siguiente macro, pero me atoro en la parte en que te indico, podrias ayudarme:
Application.Visible = True
Worksheets("Datos1").Visible = True
Sheets("Datos1").Select
Range("A1").Select 'selecciona el rango (en este caso la celda) "A1"
'
'Si existe algún error se brinca a la etiqueta Fin
On Error GoTo Fin
Cells.Find(What:=textbox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
textbox.SetFocus
ActiveCell.Offset(0, 1).Select 'muevete en la misma fila, una columna a la derecha
EN ESTA PARTE PENSABA INGRESAR UNA CONDICIONANTE if PARA COTEJAR EL VALOR QUE INGRESE EN EL textbox2 CON LA CELDA ACTIVA, PERO NO ME SALE, EN CASO DE QUE SEAN IGUALES, INGRESARIA OTRA FORMULA PARA MOVER LA CELDA ACTIVA Y PONER EL VALOR EN LOS textbox DEL FORMULARIO Reimpresion
'Cierra el formulario
' Unload Me
' Control1.Hide
'Sale del procedimiento sin necesidad de llegar a la etiqueta Fin
Exit Sub'
Fin:
'Si el dato escrito no está en la lista arroja el siguiente error
MsgBox "El Numero de Recibo '" & textbox & "' no se encuentro en la base de datos", vbInformation, "Excel e Info"
textbox = ""
textbox.SetFocus
TE AGRADESCO TU AYUDA DE ANTEMANO.
Columnas A a la F y Filas 1 a la 7, incluyendo la fila de descripción.
A.NoRbo. [] B.LetraRbo. [] C.Fecha [] D.Importe [] E.IVA [] F.Total
1001 A 01/10/2011 $100.00 $16.00 $116.00
1002 A 02/10/2011 $200.00 $32.00 $232.00
1003 A 03/10/2011 $150.00 $24.00 $174.00
1001 B 03/10/2011 $350.00 $32.00 $382.00
1002 B 04/10/2011 $150.00 $24.00 $174.00
1003 B 04/10/2011 $100.00 $16.00 $116.00
En el formulario BuscarRbo tengo el textbox1 y el textbox2, en los cuales quiero ingresar por ejemplo los valores "1002" y "B" y que al darle CommandButton1, este me busque esos valores en el cuadro que mostre anteriormente y me muestre los valores en el formulario Reimpresion con los textbox siguientes: NoRbo, LetraRbo, Fecha, Importe, IVA y Total
Hasta el momento llevo la siguiente macro, pero me atoro en la parte en que te indico, podrias ayudarme:
Application.Visible = True
Worksheets("Datos1").Visible = True
Sheets("Datos1").Select
Range("A1").Select 'selecciona el rango (en este caso la celda) "A1"
'
'Si existe algún error se brinca a la etiqueta Fin
On Error GoTo Fin
Cells.Find(What:=textbox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
textbox.SetFocus
ActiveCell.Offset(0, 1).Select 'muevete en la misma fila, una columna a la derecha
EN ESTA PARTE PENSABA INGRESAR UNA CONDICIONANTE if PARA COTEJAR EL VALOR QUE INGRESE EN EL textbox2 CON LA CELDA ACTIVA, PERO NO ME SALE, EN CASO DE QUE SEAN IGUALES, INGRESARIA OTRA FORMULA PARA MOVER LA CELDA ACTIVA Y PONER EL VALOR EN LOS textbox DEL FORMULARIO Reimpresion
'Cierra el formulario
' Unload Me
' Control1.Hide
'Sale del procedimiento sin necesidad de llegar a la etiqueta Fin
Exit Sub'
Fin:
'Si el dato escrito no está en la lista arroja el siguiente error
MsgBox "El Numero de Recibo '" & textbox & "' no se encuentro en la base de datos", vbInformation, "Excel e Info"
textbox = ""
textbox.SetFocus
TE AGRADESCO TU AYUDA DE ANTEMANO.
