Auxilio com Macro no Excel

FourOfaKind · 26 de outubro de 2015

Boa Tarde Pessoal!

Estou com dúvidas em uma macro que eu não consigo resolver.

O problemo é o seguinte, eu preciso copiar o conteúdo de determinadas células para algumas linhas mais abaixo, porém quando eu clicar no botão gostaria que ele somasse uma linha, ou seja, adicionasse o conteúdo para copiar, na linha de baixo à que eu colei anteriormente.

A macro que eu gravei é mais ou menos essa:

Sub Botão5_Clique()

Range("A21:F21").Select

Selection.Copy

Range ("A24")

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Application.CutCopyMode = False

Range("E21").Select

Selection.ClearContents

Range("A18").Select

Selection.ClearContents

End Sub

Segue uma imagem exemplificando essa confusão.

Obrigado desde já.

Wendell Menezes · 26 de outubro de 2015

Sub Botão5_Clique()

Range("A21:F21").Copy

Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Range("A18,E21").ClearContents

End Sub

FourOfaKind · 26 de outubro de 2015

Obrigado pela resposta Wendell, mas desculpe minha ignorância, eu não entendi. Eu colei no lugar do meu código e não funcionou.

Desculpe, Entendi. Só que como eu faço para zerar toda vez que eu abro a planilha ou sei lá, colocar um botão para zerar o contador e iniciar novamente na linha 19.

Wendell Menezes · 26 de outubro de 2015

Esse código copia a linha 21 e cola na primeira linha vazia. Se você quer voltar para a linha 19 é só garantir que as linhas abaixo dela estejvam vazias.