Ir ao conteúdo
  • Cadastre-se
Davi Ferreira

RESOLVIDO Transferir dados de uma aba para outra vba

Recommended Posts

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

Editado por Davi Ferreira

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

@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.

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

 

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

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×