Página 1 de 1

VBA - Macro copiar até ultima celula preenchida e calcular

Enviado: 30 Jul 2017 às 17:19
por AndersonM
Boa tarde pessoal!

Preciso da ajuda de vocês, que são feras no assunto... Estou a horas procurando esse código VBA na internet e não encontro.

É o seguinte:

Na ABA "Base" tenho uma coluna A preenchida com diversos valores nas celulas, que pode variar de tamanho, dependendo da base essa coluna pode ter, 15, 20, 30 ou mais celulas preenchidas.

O que eu preciso pode ser bem simples aos Senhores:
Preciso de uma macro que copie apenas a celula que está preenchida da coluna A da aba "Base" e cole na celula A3 da aba "Resumo" calcule, depois ela volta na aba "Base" copia a proxima celula preenchida copia novamente na A3 da aba "Resumo" e calcula novamente, e assim por diante até os valores da coluna A da aba "Base" acabar.

Em anexo planilha.

Re: VBA - Macro copiar até ultima celula preenchida e calcul

Enviado: 31 Jul 2017 às 10:13
por alexandrevba
Bom dia!!

Seria algo assim?
Código: Selecionar todos
Sub Tente_5077()
Dim LR As Long
    With Sheets("Base")
        LR = .Range("A" & Rows.Count).End(xlUp).Row
        Sheets("Resumo").Range("B2").Value = WorksheetFunction.Sum(.Range("A3:A" & LR)) + Range("B1").Value
    End With
    Range("A2").Value = Range("B2").Value
    Range("B2").Value = ""
End Sub
Att