Macro excel: buscar column
Buenas.
A pesar que he buscado y mirado por el foro ... No soy capaz de encontrar la forma de hacer una macro muy sencilla : buscar unicamente en una columna alguna celda que contenga algún caracer que pondré en un textbox1 de un formulario : ese carácter puede ser un numero, o una letra etc ... Y cuando le encuentr pues que me indique en otro text box 2 el valor de la celda contigua ( columna c) encontrado ... El problema o encuentro en me busca en todas las celdas y yo solo quiero que me busque en una columna uso
Private Sub CommandButton1_Click()
Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell.Offset(0, 1).Select
TextBox2 = ActiveCell
end sub
Pero me busca en todas las celdas pero si pongo [B:B] me da error, o range("b1:¿b507") también
alguien me ayuda por favor?
A pesar que he buscado y mirado por el foro ... No soy capaz de encontrar la forma de hacer una macro muy sencilla : buscar unicamente en una columna alguna celda que contenga algún caracer que pondré en un textbox1 de un formulario : ese carácter puede ser un numero, o una letra etc ... Y cuando le encuentr pues que me indique en otro text box 2 el valor de la celda contigua ( columna c) encontrado ... El problema o encuentro en me busca en todas las celdas y yo solo quiero que me busque en una columna uso
Private Sub CommandButton1_Click()
Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell.Offset(0, 1).Select
TextBox2 = ActiveCell
end sub
Pero me busca en todas las celdas pero si pongo [B:B] me da error, o range("b1:¿b507") también
alguien me ayuda por favor?
1 Respuesta
Respuesta de Cadipas spain
1
Prueba a modificar esto:
Private Sub CommandButton1_Click()
Worksheets("hoja1").Activate
Set mycell = Application.InputBox( _
prompt:="Seleciona el rango donde buscar", Type:=8)
Range(mycell.Address).Select
Selection.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell.Offset(0, 1).Select
TextBox2 = ActiveCell
End Sub
Private Sub CommandButton1_Click()
Worksheets("hoja1").Activate
Set mycell = Application.InputBox( _
prompt:="Seleciona el rango donde buscar", Type:=8)
Range(mycell.Address).Select
Selection.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell.Offset(0, 1).Select
TextBox2 = ActiveCell
End Sub
