Pedro Costa_757766

Veja se é isso.

Substitua os seus códigos pelos códigos abaixo.

Sub Macro1() Dim dtDia As Range  With Sheets("Caixa Diário")   Set dtDia = .[A:A].Find(Date)    If Not dtDia Is Nothing Then      dtDia.Offset(, 1).Value = dtDia.Offset(, 1).Value + [K21]    Else: MsgBox "data não encontrada": Exit Sub    End If  End With  Range("G5:G20,I5:I20") = ""End Sub

Resolveu...

Valeu Osvaldo

 

very tks

Resolveu...

Valeu Osvaldo

very tks

Ok, pelo o que eu entendi você terá várias mesas e o 'guardar' deve pegar o valor de cada mês e salvar no Caixa Diário para o dia em que a ação for realizada.

 

É isso @Pedro Costa_757766 ?

Basicamente é isso sim... o "guardar" além de "limpar a mesa" salva o valor no caixa diário de forma acumulativa, isto é, vai somando à medida que for servido 

Vemos ver se consigo...

o arquivo modelo está aqui:

https://www.sendspace.com/file/ux9ge7

Gente,

Preciso de uma ajuda:

Numa planilha excel criei um macro que limpa os valores das celulas que defini, mas queria que, em simultaneo ele somasse os valores de uma celula (que faz o somatorio da coluna) numa outra celula em outra sheet. Isto é, sempre que limpo os valores do somatórios estes serão adicionados a outra célula.

Alguém pode ajudar, por favor?