none
Macro para formula RRS feed

  • Pergunta

  • Pessoal, como mostra na figura abaixo, tenho uma coluna A e um coluna B com numeros.Qu

    ero que na coluna C eu coloque a função soma de Acom B para toda célula da couna B tenha algo escrito (nesse caso haveria função para as células C1, C2, C3 e C5).

    Eu preciso automatizar isso, pois eu precisaria uma macro que faça isso em uma planilha que diariamente altera os seus valores.

    Obrigado!
    Att

    terça-feira, 12 de junho de 2012 17:51

Respostas

  • Tenta assim:

    Private Sub CriarFormulas()
        Dim I As Long
        
        With ActiveSheet
            For I = 1 To .UsedRange.Rows.SpecialCells(xlCellTypeLastCell).Row
                If Not IsEmpty(.Range("B" & I).Value) And IsNumeric(.Range("B" & I).Value) Then
                    .Range("C" & I).Formula = "=A" & I & "+B" & I
                Else
                    .Range("C" & I).ClearContents
                End If
            Next I
        End With
    End Sub
    

    Deves ajustar este exemplo à tua planilha, pois foi baseado na imagem que mostras.

    Nota que eu fiz para que a formula apareça apenas quando a célula da coluna B contem valor númerico. Caso contrário a célula da coluna C é apagada.

    
    terça-feira, 12 de junho de 2012 21:04