none
Macro para formula RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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
    |