Este fórum está sendo desativado

[Rabatini]

Boa noite amigos!

Preciso adicionar uma apostrofe quando ele acha um texto com uma.

Esse macro me atende bem.

Código: Selecionar todos

Sub FindApos2()
Dim c As Range
Dim RngToCheck As Range

Set RngToCheck = [b12]

For Each c In RngToCheck
If c.PrefixCharacter = "'" Then

Range("a12").Value = "''" & c.Value
 Dim x As String, z As String

    x = Range("A12")
    z = "''" & Mid(x, 2, Len(x) - 2) & ""
    Range("a12").Value = z



End If
Next c
End Sub

porém, gostaria fazer um loop dele seguindo as células até achar uma em branco, ai para.

Obrigado pela atenção.

[osvaldomp]

Olá, @Rabatini .
#
Experimente:

Código: Selecionar todos

Sub FindApos2V2()
 Dim c As Range
  For Each c In Range("B12:B" & Cells(Rows.Count, 2).End(3).Row)
   If c.PrefixCharacter = "'" Then
    c.Offset(, -1).Value = "''" & Left(c.Value, Len(c.Value) - 1)
   End If
  Next c
End Sub

[Rabatini]

Olá, @Rabatini .
#
Experimente:

Código: Selecionar todos

Sub FindApos2V2()
 Dim c As Range
  For Each c In Range("B12:B" & Cells(Rows.Count, 2).End(3).Row)
   If c.PrefixCharacter = "'" Then
    c.Offset(, -1).Value = "''" & Left(c.Value, Len(c.Value) - 1)
   End If
  Next c
End Sub

Obrigado Osvaldo, Me atendeu perfeitamente!!!!

Feliz natal pra vc!

[osvaldomp]

Que bom que atendeu.

Grato por retornar.

Feliz Natal também a você e sucesso no Ano Novo.