Busqueda de un string en un texto

Hola, acabo de descubrir este sitio ylo encuentro buenísimo, pues hasta ahora me haservido de mucho.
Ojala me puedan responderesta pregunta
Mi problema es el siguiente hice una macro en VB para que recorra una columna con nombres de ciudades(ej Viña, Santiago, etc) y en la columna de al lado ponga un código asociado a estas. Esto lo hice a través de un loop y unos if. Mi problema es que aveces en la columna que recorro no sale VIÑA sino RECETEL VIÑA por ejemplo o VIÑA QUINTA. ¿Cómo lo puedo hacer para poner una condición a la macro para que busque en la celda y si encuentra en alguna parte el string "viña" me inserte igual el código?
Espero haberme explicado .Les agradecería si pudiesen responderme.
De antemano gracias y felicitaciones por su sitio!

1 respuesta

Respuesta
1
La condición que tú buscas para la celda A1 es:
If InStr(1, Range("A1").Text, "viña") Then ...
No olvides colocar en la primera línea del módulo:
Option Compare Text
Para no distinguir entre mayúsculas y minúsculas.
Muchas gracias por tu respuesta, quesin duda me ayuda. Pero tengo otra pequeña pregunta, comolo hago para referenciar enla fórmula el rango de la celda activada de ese mimnuto (activecell). No se si me explico pero lo que sucede es que esto funciona dentro de un ciclo y por lo tanto el rango no lo conozco, entonces en vez de ser Range("A1") en la fórmula tiene que ser algo así como activeCell.range. Pero no se con exactitud como referenciar el rango de la celda activa
(No es activecell.range) ¿Tu sabes cómo?
Ojala me puedas responder esto último, gracias por la respuesta anterior de todos modos
Me estoy yendo ya de vacaciones unos días y apenas te puedo contestar. Donde dice
Range("A1").Text
Colocas
ActiveCell.Text
O bien
ActiveCell.Value
Suerte

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

EXCEL Condicional SI con la función Y y MAX o MIN

Se que sois unos genios y solo vosotros me podéis ayudar. Tengo hecha en Excel una hoja para rellenar el importe de las comidas y cenas que tiene que solicitar los compañeros cuando trabajan fuera. A B C D E F G 1 TIPO MAXIMO DIA FACT. IMPORTE FACT....
2 respuestas

Como realizar un control de parqueo, en Excel si para una moto se pagan 3 diarios, para carro 5 diarios

Quiero realizar un control de parqueo por día en Excel, para el cliente que tenga moto la tarifa seria de 3 diarios y para carro 5 diarios, para camión 15. Como puedo llevar el control para cada cliente si en la celda p6 inician los clientes. Si los...
2 respuestas

¿Cómo hacer una función SI() anidada, haciendo comprobaciones en cascada?

He creado una función para hacer comprobaciones en cascada, pero algo está mal y me da un aviso que la fórmula es incoherente, Me explico: Tengo una base de datos de pagos los cuales son a crédito, así que tengo los diferentes pagos en diferentes...
2 respuestas

Calculo de unidades por superficies

Necesitaría una fórmula que me calculara la cantidad mínima de piezas que necesito para cubrir 0.5 m2. (50anchox100alto cm) Tengo los siguientes descripciones: - Placa metálica de acero al carbono 60x60 cm. Me tendría que dar el valor 2, ya que con...
1 respuesta

Traspaso de valores con decimales en formulario de Escell

Tengo un formulario en el que tengo un capo de moneda, el primer problema es que tengo que utilizar la coma y no el punto y el segundo es que me traspasa los datos como texto y no como numero os adjunto el código Private Sub CommandButton1_Click()...
2 respuestas

Alguien sabe cómo copiar un rango discontinuo y pegar solo valores en ese mismo rango y mismas celdas

Lo que pretende es que Alguien me explique cómo copiar un rango discontinuo y pegar solo valores en ese mismo rango y mismas celdas. Me gustaría sin macros, pero si no hay otra solución, pues con macros.
1 respuesta

Fórmula para poner en celda que haga la concatenación de celdas visibles en un rango dado.

NECesito una fórmula para poner en K1, según el cuadro que adjunto, para que en K1, me haga, de forma automática, la concatenación de las celdas que queden visibles en el rango k4:K11, YA que al filtrar se pueden mostrar todas o solo parte de ellas....
2 respuestas

Como pegar solamente valores de una celda a otra hoja

Sub CopiarImprimir() ' ' CopiarImprimir Macro ' Application.ScreenUpdating = False Sheets("Imprimir").Select Worksheets("Imprimir"). Range("A4:C50"). Clear Range("E4:J49"). Clear Sheets("Planillas").Select Sheets("Planillas"). Range("G4").Copy...
3 respuestas

Mantener el color de un botón al salir de un módulo

Quisiera por favor me ayuden, estoy haciendo una aplicación en vba para un restaurante y necesito lo siguiente: tengo 20 mesas que al momento de abrir el modulo de venta selecciono la mesa y cambia de color y su estado pasa a ocupada la idea es...
3 respuestas

Redondear decimales en números arábigos

Sres. T.E. La consulta es la siguiente, necesito una fórmula en excel para llevar los decimales a .00 y .50, ejemplo en una celda tengo el valor 45.12 levarlo a 45.00 en otra tengo 45.42 levarlo a 45.00.
2 respuestas