Formulario - buscar dato en una columna
Buenos días, por favor me colaboran con algo, es que tengo una planilla con formularios, tengo este código pero me hace una búsqueda en todos los datos, necesito es que me busque solo en una columna especifica.
Num = Cells.Find(What:=TextBox1.Text, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False).Value
Me colaboran por favor con esta rutina ya que no he podido.
Mil Gracias,
Alexcy Jiménez
Num = Cells.Find(What:=TextBox1.Text, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False).Value
Me colaboran por favor con esta rutina ya que no he podido.
Mil Gracias,
Alexcy Jiménez
1 Respuesta
Respuesta de Elsa Matilde
1
Hola Elsa, como siempre excelentes respuestas.
Tengo el siguiente Código, que lo hice con su colaboración, pero para que funcione tendría que estar situado en la columna B, porque si se encuentra en otra columna no lo reconoce.
Me colabora por favor, para saber donde tengo el error, ya que si reemplazo ActiveSheet.Range("B2:B12") por Cells como lo estaba haciendo si reconoce el valor todo el documento, y como lo que necesito es que me funcione en una columna predeterminada.
Mil Gracias,
Alexcy
Private Sub CommandButton1_Click()
On Error GoTo NoEncontro
Num = ActiveSheet.Range("b2:b12").Find(What:=TextBox1.Text, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False).Value
NoEncontro:
If Num = Empty Then
MsgBox "No se encuentra"
Else
ActiveSheet.Range("b2:b12").Find(What:=TextBox1.Text, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False).Select
With ActiveCell
Label1 = .Offset(0, 1).Value
Label2 = .Offset(0, 2).Value
End With
End If
End Sub
Tengo el siguiente Código, que lo hice con su colaboración, pero para que funcione tendría que estar situado en la columna B, porque si se encuentra en otra columna no lo reconoce.
Me colabora por favor, para saber donde tengo el error, ya que si reemplazo ActiveSheet.Range("B2:B12") por Cells como lo estaba haciendo si reconoce el valor todo el documento, y como lo que necesito es que me funcione en una columna predeterminada.
Mil Gracias,
Alexcy
Private Sub CommandButton1_Click()
On Error GoTo NoEncontro
Num = ActiveSheet.Range("b2:b12").Find(What:=TextBox1.Text, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False).Value
NoEncontro:
If Num = Empty Then
MsgBox "No se encuentra"
Else
ActiveSheet.Range("b2:b12").Find(What:=TextBox1.Text, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False).Select
With ActiveCell
Label1 = .Offset(0, 1).Value
Label2 = .Offset(0, 2).Value
End With
End If
End Sub
Te la dejo ajustada. Pruébala y comentame si es lo que estás necesitando.
Private Sub CommandButton1_Click()
On Error GoTo NoEncontro
ActiveSheet.Range("b2:b12").Find(What:=TextBox1.Text, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False).Select
With ActiveCell
Label1 = .Offset(0, 1).Value
Label2 = .Offset(0, 2).Value
End With
'si no hay mas nada para hacer, finaliza el proceso
Exit Sub
NoEncontro:
MsgBox "No se encuentra"
End Sub
Sdos
Elsa
Promoción en manuales durante este mes:
http://aplicaexcel.galeon.com/manuales.htm
Private Sub CommandButton1_Click()
On Error GoTo NoEncontro
ActiveSheet.Range("b2:b12").Find(What:=TextBox1.Text, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False).Select
With ActiveCell
Label1 = .Offset(0, 1).Value
Label2 = .Offset(0, 2).Value
End With
'si no hay mas nada para hacer, finaliza el proceso
Exit Sub
NoEncontro:
MsgBox "No se encuentra"
End Sub
Sdos
Elsa
Promoción en manuales durante este mes:
http://aplicaexcel.galeon.com/manuales.htm
