Notifications

Clear all

Substituir um valor usando como RANGE todo o arquivo

2024 - VBA & Macros

Post Recente por Fernando Fernandes 10 anos atrás

4 Posts

2 Usuários

0 Reactions

1,084 Visualizações

RSS

victorapda

(@victorapda)

Posts: 27

Eminent Member

Topic starter

Olá pessoal!

Estou com a seguinte dúvida: Eu preciso substituir labels de dólar para real sempre que o combobox for alterado, porém usando a macro que criei apenas consigo substituir o que está na abaativa e não em todas as outras abas. Alguém conhece uma forma para que eu possa localizar e substituir por todo o arquivo?

Segue o código que fiz:

ThisWorkbook.Replace What:="USD/t", Replacement:="R$/t", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False

Postado : 21/07/2014 9:04 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Boa tarde!!

tente um loop

Option Explicit
 
Sub AleVBA_12604()
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
         'Seu Código Aqui
        On Error Resume Next
                     
    Next ws
End Sub

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 21/07/2014 9:36 am