Macro para buscar cadena de texto

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

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 C:

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 ejemplo.

Saludos

David

El sábado, 7 de octubre de 2017, 19:39:55 (UTC+2), David_erh escribió:

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 C:

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 ejemplo.

Saludos

David

Buenas tardes David, antes que nada muy agradecido por tu interés.

Te explico, la opción de validar datos no es lo que más se ajusta mi necesidad, ya que tengo la misma lista en pestaña anexa.

La otra opción que me das, hasta donde he podido ver, tiene que ser el texto exacto, ¿no?. Es decir, si busco un vino cuyo nombre es : "Protos Ribera del Duero", debo empezar escribiendo "Protos Ri", ¿no?. Mi idea sería que escribiese por ejemplo "Ribera" y ya las opciones que me salieran fueran todas las que llevaran esa cadena de texto.

No sé si a lo mejor he hecho algo mal.
Gracias y un saludo

Hola Nacho, de acuerdo a lo que planteas, una solución que se me ocurre es en la HOJA1 en la parte superior insertar un TEXTBOX y un BOTON, crear una macro de manera tal que a medida que se vaya escribiendo llamar al evento Change o al evento KeyUp (luego de presionar una tecla)y que se ejecute un "filtro avanzado", de manera que se muestre en la lista las cadenas de texto que contengan el valor escrito, luego haces hacer un click sobre la celda deseada y luego con el BOTON copiar el contenido de la celda a al HOJA2.

Si ese procedimiento te parece bien, se podría hacer las macros necesarias.

Saludos

David

El jueves, 12 de octubre de 2017, 21:35:06 (UTC+2), David_erh escribió:

Hola Nacho, de acuerdo a lo que planteas, una solución que se me ocurre es en la HOJA1 en la parte superior insertar un TEXTBOX y un BOTON, crear una macro de manera tal que a medida que se vaya escribiendo llamar al evento Change o al evento KeyUp (luego de presionar una tecla)y que se ejecute un "filtro avanzado", de manera que se muestre en la lista las cadenas de texto que contengan el valor escrito, luego haces hacer un click sobre la celda deseada y luego con el BOTON copiar el contenido de la celda a al HOJA2.

Si ese procedimiento te parece bien, se podría hacer las macros necesarias.

Saludos

David

Hola David, por lo que explicas creo que si, que me solucionaria el objetivo que busco, pero mi nivel es más escaso que lo que requiere tu explicación.