Excel Macro de copia de dados para certas celulas

[Alan Ferreira Costa]

Bom dia galera, 

Seguinte, to precisando de copiar dados para uma planilha diferente, Consegui um macro para copiar os dados selecionados, porém, depois de copiar, preciso de uma condição de que caso os dados tenham sido copiados para uma linha, ele seja copiado para a proxima parte da planilha. Por exemplo, copiou os dados para a linha C9, quando for inserir novos dados, a linha onde os dados copiados sera a linha C13. Valeu

 

Sub sessao16()
'
' sessao16 Macro
'

'
    Range("D5:AA5").Select
    Selection.Copy
    Sheets("Ficha Periodização A").Select
    Range("C9").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("FICHA COM PERIODO").Select
End Sub

 

[Charley Rocha]

Boa tarde, bem-vindo ao Fórum.

 

Ao invés de usar a propriedade ".Range", utilize ".Cells(linha, coluna)".

 

Ex: .Range("C9")  é a mesma coisa que .Cells(9,3)

 

Assim, fica fácil pra você manipular os índices das linhas e das colunas, inclusive até colocando expressões matemáticas inteiras dentro dos parênteses.

 

No seu caso, você pode declarar uma variável "linha" como inteiro e atribuir a ela o valor de uma célula qualquer escondida na sua planilha. Essa célula conterá o valor do índice da linha que você quer editar, no exemplo de querer editar a célula "C9", esse valor seria 9.

 

Assim, após o comando de "colar" do seu código você adiciona um comando que pega o valor daquela célula e soma um valor que você quiser, fazendo com que na próxima vez que for colar ele cole em uma célula diferente.

 

Ex: colar em C9 e depois colar em C13: inicialmente o valor do índice da linha era 9. Após a execução do código você faz

 

linha = linha + 4 (9 + 4 = 13). Na próxima vez que executar a macro ela vai colar em C13.

 

Fica assim:

 

Sub sessao16()
'
' sessao16 Macro
'

'
Dim linha as Integer
linha = Range("A1").value 'substitua A1 pela célula que você quiser
    Range("D5:AA5").Select
    Selection.Copy
    Sheets("Ficha Periodização A").Select
    Cells(linha, 3).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
	linha = linha + 4
	Range("A1") = linha 'substitua A1 pela célula que você quiser
    Sheets("FICHA COM PERIODO").Select
End Sub

 

[Visitante]

Sub sessao16V2()
 Sheets("Ficha Periodização A").Cells(Rows.Count, 3).End(3)(5).Resize(, 24).Value = [D5:AA5].Value
End Sub