Jump to content
Andrey Fernández

Búsqueda de caracteres especiales [ , ] , / , \ , * , ?

Recommended Posts

Buen día, verán debo hacer una búsqueda sencilla de un caracter especial "[" en un rango de celdas pero no logro hacerla por ningún método, el código que utilizo es el siguiente

 

    Range("B4").Select
    For i = 0 To Range("B4").CurrentRegion.Rows.Count
        If ActiveCell.Offset(i, 0).Value Like "*~[*" Then MsgBox "No puede usar ese caracter especial"
        End If   
    Next i

 

Pero dicho código me genera error, agradezco de antemano la ayuda

Share this post


Link to post
Share on other sites

Prueba:

Sub Buscar()
Dim Rango As Range, Celda As Range, Largo&, n&
    Set Rango = Range("A2:A10")
    For Each Celda In Rango
        Largo = Len(Celda.Value)
        For n = 1 To Largo
            If Mid(Celda.Value, n, 1) = "[" Then
                MsgBox "Esta en la fila " & Celda.Address
            End If
        Next n
    Next Celda
End Sub

 

Saludos

Share this post


Link to post
Share on other sites
Guest Cacho R

Intenta con:

With Range("B4")
  If Not .Resize(.CurrentRegion.Rows.Count).Find(What:="[", LookIn:=xlValues, LookAt:=xlPart) Is Nothing Then MsgBox "No puede usar ese caracter especial."
End With

Saludos, Cacho R.

Share this post


Link to post
Share on other sites
Guest Cacho R

Dos buenas ayudas "por el precio de una"... ¡No está mal!, y gracias por tu devolución.

Saludos, Cacho R.

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png