Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

AYUDA CON CICLO FOR

30/11/2005 - 06:25 por DANILO ARANGO | Informe spam
Ayuda Hacer una pregunta
HOLA FORO
Alguien me puede ayudar con el siguiente ciclo, lo que necesito es que me
lea los primeros 7 caracteres y si dice - *Excel*-, en la columana 3 me ponga
- Excel -.

-lo estaba pensando hacer con la formula izquierda pero no supe como
adaptarsela al ciclo.

Sub marcar()
For rwIndex = 1 To 1000
If (Cells(rwIndex, 2).Value) = "*Excel* aqui va otros textos" Then

Cells(rwIndex, 3).Value = "Excel"


End If
Next rwIndex

End Sub

Gracias de antemano
saludos
Danilo A.
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Héctor Miguel
30/11/2005 - 06:57 | Informe spam
hola, DANILO !

... necesito... que me lea los primeros 7 caracteres y si dice - *Excel*-, en la columana 3 me ponga - Excel -.
Sub marcar()
For rwIndex = 1 To 1000
If (Cells(rwIndex, 2).Value) = "*Excel* aqui va otros textos" Then
Cells(rwIndex, 3).Value = "Excel"
End If
Next rwIndex
End Sub



prueba con...
If Left(Cells(rwIndex, 2), 7) = "*Excel*" _
Then Cells(rwIndex, 3) = "Excel"

saludos,
hector.

Preguntas similares

 

Busqueda sugerida :