Duvida selection.replace

[beltrao]

Boa noite,

Sou novo no forum então saudações a todos! :ninja:

Estou com uma duvida,

preciso retornar na coluna D o valor que está na coluna B quando a célula em D for igual a 0 (deu pra entender?)

só que usando replace da erro de sintaxe quando peço range.offser(0,-2)....

como deveria escrever este código para retornar o que eu quero?

segue o código abaixo para vocês terem uma idéia

Sub Teste_Jabuticaba()

'

Columns("D:D").Select

Selection.Replace What:="0", Replacement:=Range.Offset(0, -2), LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False

End Sub

Eu consegui resolver este problema uisando " for each...in....next", só que dai demora muito pra executar a macro.

Sei que deve ser algo bem básico mas eu estou estudando vba a apenas dois dias.

Desde já obrigado.

[João.Neto]

Da forma que você está tentando fazer não é possível.

Segue sugestão:

Sub Teste_Jabuticaba()
    
    Dim rng As Range
    
    For Each rng In Columns("D:D").Rows
    
        If rng.Cells(1, 1) = "0" Then
            rng.Cells(1, 1) = rng.Cells(1, 1).Offset(0, -2)
        End If
    
    Next rng

End Sub

[João.Neto]

Ou, você pode complicar um pouco mais:

Sub Teste_Jabuticaba()

Dim RngResultado As Range

With Columns("D:D")
    Set RngResultado = .Find(What:="0", LookAt:=xlPart, MatchCase:=False, SearchFormat:=False)
    If Not RngResultado Is Nothing Then
        Do
        RngResultado.Cells(1, 1) = RngResultado.Cells(1, 1).Offset(0, -2)
        Set RngResultado = .FindNext(RngResultado)
        Loop While Not RngResultado Is Nothing
    End If
End With

End Sub