AYUDA CON CICLO FOR

30/11/2005 - 06:25 por DANILO ARANGO | Informe spam

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.

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

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.

Responder a este mensaje

#2 DANILO ARANGO

01/12/2005 - 02:56 | Informe spam

hola HM

Gracias me funciono perfectamente.

Saludos

"Héctor Miguel" escribió:

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.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida