Este fórum está sendo desativado

[ragealgu]

Pessoal,
Por gentileza, gostaria de criar um botão, para transportar apenas os dados/valores das colunas apontadas (com seta laranja) para a "Planilha Controle", acima esbocei o que preciso.
Diariamente preencho a planilha de dados e preciso que vá inserindo na linha seguinte da "Planilha Controle"

MELHOR ENTENDIMENTO NO ANEXO.

Controle Valor Aquisição.xlsx

Obrigado.

[osvaldomp]

Experimente:

Código: Selecionar todos

Sub ReplicaDados()
 Dim LR As Long
  Application.ScreenUpdating = False
  LR = Cells(Rows.Count, 6).End(3).Row
  If LR > 2 Then
   Range("B3:F" & LR).Copy
   Sheets("Controle").Cells(Rows.Count, 1).End(3)(2).PasteSpecial xlValues
   Range("J3:J" & LR).Copy
   Sheets("Controle").Cells(Rows.Count, 6).End(3)(2).PasteSpecial xlValues
  End If
End Sub

[ragealgu]

Osvaldo,
Consigo usar essa macro na mesma planilha que estao os dados iniciais?? Ou seja, trabalharei apenas com 1 aba.

[osvaldomp]

O que você escreveu antes ~~~> Transferencia de dados para outra planilha ~~~>é diferente do que você escreveu por último ~~~> Ou seja, trabalharei apenas com 1 (aba) planilha.

substitua as duas linhas abaixo
Sheets("Controle").Cells(Rows.Count, 1).End(3)(2).PasteSpecial xlValues
Sheets("Controle").Cells(Rows.Count, 6).End(3)(2).PasteSpecial xlValues


por estas
Cells(Rows.Count, 12).End(3)(2).PasteSpecial xlValues
Cells(Rows.Count, 17).End(3)(2).PasteSpecial xlValues