Transferir valores

2024 - VBA & Macros

Post Recente por zanni 8 anos atrás

3 Posts

2 Usuários

0 Reactions

1,123 Visualizações

RSS

zanni

(@zanni)

Posts: 27

Eminent Member

Topic starter

Boa noite, pessoal.

Estou com um problema, preciso transferir valores de uma planilha para outra.

Estes valores são acumulativos e usei o comando Do until (" ") = Empty
Só que não lembro qual é o comando para colar os valores, após achar a linha vazia, da planilha anterior.

Espero ter sido claro, preciso colar os valores de uma planilha pra outra sem afetar os dados existentes na planilha que eu colo, apenas acumulando os mesmo.

Se alguem puder ajudar deixei o modelo das duas planilhas. A pasta1 é o que contem os códigos e a macro, a "dados" é onde irei transferir os valores.

I'd rather attempt to do something great and fail than to attempt to do nothing and succeed. -Robert H. Schuller

Postado : 28/05/2016 4:45 pm

Osvaldomp

(@osvaldomp)

Posts: 857

Prominent Member

Experimente:

Sub TransferirValores()
    
    Workbooks.Open ("C:UsersUserDesktopDados.xlsx")
    
    Cells(Rows.Count, 2).End(3)(2).Resize(17, 3).Value = _
    ThisWorkbook.Sheets("Plan1").Range("B4:D20").Value
    
    
    Workbooks("Dados").Save
    Workbooks("Dados").Close
    
End Sub

Osvaldo

Postado : 28/05/2016 7:12 pm