Macro para buscar cadena de texto

03/10/2017 - 19:08 por Nacho | Informe spam
Buenas tardes,
Esto no sé si se podrá hacer.
En HOJA1 y en el rango a1:b200, tendría un listado de artículos. En la columna A el código y en la columna B el texto.

En HOJA2, columna c y desde la fila 2, necesitaría que fuera escribiendo una cadena de texto y me fuera localizando el dato en HOJA1 columna B y una vez vea que tengo lo que busco, pinchar y se me quede escrito. Y así en todas las filas.

Uf creo que lo estoy explicando muy mal, espero que vuestras mentes brillantes me hayáis entendido.

Muchas gracias de antemano.
 

Leer las respuestas

#1 David_erh
07/10/2017 - 19:36 | Informe spam
Hola, creo que hacer lo que pides directamente sobre una celda no se puede, una opción sería en la HOJA2 marcar la columna C y con la herramienta validación de datos, utilizar la opción "Lista" y seleccionar el rango de la HOJA1, la desventaja es que no podrás ir escribiendo, si no, elegir la cadena dentro de la lista.

Otra Opción un poco mas avanzada, sería en la HOJA2, al inicio de la hoja, insertar un LISTBOX y un BOTÓN, la ventaja del LISTBOX es que a medida que vas escribiendo dentro de el, va buscando y auto complentando; al LISTBOX asignar en su propiedad "ListFillRange" el rango de valores la HOJA1 ( Hoja1!B1:B200 ) y en el BOTON asignar una macro que inserte el valor buscado en la ultima fila vacía de la columna B:

Private Sub CommandButton1_Click()

Dim FilaVacia As Long
FilaVacia = (ActiveSheet.Cells(Rows.Count, "C").End(xlUp).Row)+1
Cells(FilaVacia, 3).Value = Combobox1.value

End Sub

Espero que te sirva de ayuda, si deseas me puedes dar tu correo para hacerte llegar una copia del archivo.

Saludos

Preguntas similares