LOOP INFINITO

[DANYY]

Boa tarde, estou criando uma macro para que ao ler a letra C nas celulas da coluna G, deve deslocar a celula ativa para direita pegar o valor de duas celulas a esquerda e transformar em valor negativo. Até ai esta funcionando corretamente, porem o loop esta infinito.. Segue o codigo:

Columns("G:G").Select

Do While ActiveCell.Offset(1, 0).Value <> ""


    Selection.Find(What:="C", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate

ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=+RC[-2]*-1"
    ActiveCell.Offset(0, -1).Select
Range(Selection, Selection.End(xlDown)).Select
   
Loop

Como proceder?

Edited August 5, 2011 by kuroi
Adicionar tag CODE

[kuroi]

danyy, tente assim:

Columns("G:G").Select

Dim ultimo As Range
Set ultimo = ActiveCell

Do While ActiveCell.Offset(1, 0).Value <> ""
    Set ultimo = Columns("G:G").Find(What:="C", After:=ultimo, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False)
        
    If IsNull(ultimo) Then Exit Do
    
    ultimo.Activate

    ActiveCell.Offset(0, 1).Select
        ActiveCell.FormulaR1C1 = "=+RC[-2]*-1"
        ActiveCell.Offset(1, -1).Select
    Range(Selection, Selection.End(xlDown)).Select
Loop[/code]