Transferir dados de uma aba para outra vba

Davi Ferreira · 19 de julho de 2016

Pessoa, boa noite!!

É o seguinte: Fiquei 2 anos sem usar excel e literalmente desaprendi a criar macros, estou precisando da ajuda de vocês em algo simples, mas essencial pra mim atualmente:

Na planilha em anexo eu pretendo que os valores das celulas c1, c2, b2, q1 e l1 sejam transferidas para colunas da plan2, na seguinte ordem:

c1= Coluna A

C2= Coluna B

b2= Coluna C

Q1= Coluna D

L1= Coluna E

O Q1 está ali grifado, mas deixarei-o escondido, é um "tapa buraco" pois como vocês poderão ver no "histórico" teremos históricos padrões, mas precisaremos digitar mais coisas, aí o histórico será retornado na C3, digitaremos na C4 e a somas dos textos eu joguei lá pra Q1

Fiquem livres para fazer alterações que possam melhorar a forma de realizar a macro.

Desde já agradeço a toda equipe do melhor fórum do Brasil!!

esboço fama jr contabilidade.xlsx

Eloize Teixeira · 20 de julho de 2016

Sub Botão1_Clique()
Dim LR As Long

LR = Sheets("Plan2").Cells(Rows.Count, 1).End(xlUp).Row + 1

Sheets("Plan2").Cells(LR, 1).Value = Sheets("Plan1").Range("C1").Value
Sheets("Plan2").Cells(LR, 2).Value = Sheets("Plan1").Range("C2").Value
Sheets("Plan2").Cells(LR, 3).Value = Sheets("Plan1").Range("B2").Value
Sheets("Plan2").Cells(LR, 4).Value = Sheets("Plan1").Range("Q1").Value
Sheets("Plan2").Cells(LR, 5).Value = Sheets("Plan1").Range("L1").Value

End Sub

Davi Ferreira · 20 de julho de 2016

@Eloize Teixeira Mutíssimo obrigado Eloize!!!!!

Veja, eu esqueci de por mais 2 observações no post, caso tu possa me ajudar eu agradeço:

1- Eu lembro que há uma forma do macro, antes de dar realizar os lançamentos, ele verifique se alguma das células em questão estão vazias, caso esteja, retornar a mensagem "Existem dados a serem digitados, verifique o lançamento".

2- Ao fim do lançamento, limpar as células em questão

Caso não possa, tudo bem, me viro por aqui, até porque n solicitei no post original, mas caso possa me ajudar fico grato.

20 de julho de 2016

@Eloize Teixeira Segue abaixo um código plagiado do seu...

Sub ReplicaDados()
 Dim LR As Long
 If Application.CountA([B1:B4,D3]) < 5 Then
  MsgBox "Existem dados a serem digitados, verifique o lançamento"
  Exit Sub
 End If
 With Sheets("Plan2")
  LR = .Cells(Rows.Count, 1).End(3).Row
  .Cells(LR + 1, 1) = [C1]
  .Cells(LR + 1, 2) = [C2]
  .Cells(LR + 1, 3) = [B2]
  .Cells(LR + 1, 4) = [Q1]
  .Cells(LR + 1, 5) = [I1]
 End With
 [B1:B4,D3] = ""
End Sub

obs. @Davi Ferreira Me parece que no lugar de L1= Coluna E, seria I1= Coluna E