Ir ao conteúdo
  • Cadastre-se
Eletronic Zero

Excel Incluir dados automaticamente em abas de data.

Recommended Posts

Bom Dia,

 

Gostaria de saber se tem como toda vez que Inserir dados e ao clicar no botão(VBA) incluir os dados na aba tal(data 01) e todos o dados que forem incluídos nesse dia irão para esta aba, e no dia seguinte ao incluir dados, irão para aba dia 02.. e assim por diante, até fechar o mês.

 

Desde já agradeço..

Compartilhar este post


Link para o post
Compartilhar em outros sites
1 hora atrás, Eletronic Zero disse:

Gostaria de saber se tem como toda vez que Inserir dados

Inserir dados em qual intervalo ?

 

e ao clicar no botão(VBA) incluir os dados na aba tal(data 01)

Em qual célula estará indicada a data ? Qual o nome da planilha destino ? 01, 02, ... ?

 

e todos o dados que forem incluídos nesse dia irão para esta aba,

Qual o intervalo a ser replicado na planilha destino ?

 

 

Sugestão: disponibilize uma amostra do seu arquivo Excel com 4 a 5 linhas com dados e com o resultado desejado.

Para anexar arquivo aqui no fórum clique em escolha os arquivos ...

Compartilhar este post


Link para o post
Compartilhar em outros sites
11 horas atrás, osvaldomp disse:

 

Sugestão: disponibilize uma amostra do seu arquivo Excel com 4 a 5 linhas com dados e com o resultado desejado.

Para anexar arquivo aqui no fórum clique em escolha os arquivos ...

Gostaria de saber se tem como toda vez que Inserir dados

Inserir dados em qual intervalo ?

Como na planilha eu criei um botão que inclui algumas informações, na aba banco de dados.

 

e ao clicar no botão(VBA) incluir os dados na aba tal(data 01)

Em qual célula estará indicada a data ? Qual o nome da planilha destino ? 01, 02, ... ?

A célula da data esta na c12, contudo as abas somente teriam os números dos dias... 01 - 02 -03 - ....

 

e todos o dados que forem incluídos nesse dia irão para esta aba,

Qual o intervalo a ser replicado na planilha destino ?

Eu criei uma aba Incluir... e toda vez que clica no botão os dados vão diretamente para a aba banco de dados.

Só que o que eu queria é que no dia 01 as informações fossem para a aba 01 e no dia 02 as informações fossem para a aba dia 02 e assim sucessivamente. Porque somente seria usado a aba incluir, e se fosse preciso ver os dados ai iria nas abas dos dias..

 

Desde já agradeço..

Incluir.rar

Compartilhar este post


Link para o post
Compartilhar em outros sites

 

Experimente:

Sub ReplicaDados()
 Dim rngCel As Range, k As Long, LR As Long
  LR = Sheets("Dia " & Format(Day([C12]), "00")).Cells(Rows.Count, 1).End(3).Row
  For Each rngCel In Range("C4,G4,H4,I4,J4,D8,E8,F8,G8,H8,J8,I8,E12,F12,G12,H12,I12,J12,C12")
   Sheets("Dia " & Format(Day([C12]), "00")).Cells(LR + 1, k + 1) = rngCel: k = k + 1
  Next
  'Range("C4, G4, H4, I4, D8, E8, F8, G8, H8, I8, E12, F12").ClearContents
End Sub

Se o resultado for o desejado e você quiser limpar os dados de origem após replicar, remova o apóstrofo inicial da penúltima linha do código.

Compartilhar este post


Link para o post
Compartilhar em outros sites
Em 10/10/2018 às 23:13, osvaldomp disse:

 

Experimente:


Sub ReplicaDados()
 Dim rngCel As Range, k As Long, LR As Long
  LR = Sheets("Dia " & Format(Day([C12]), "00")).Cells(Rows.Count, 1).End(3).Row
  For Each rngCel In Range("C4,G4,H4,I4,J4,D8,E8,F8,G8,H8,J8,I8,E12,F12,G12,H12,I12,J12,C12")
   Sheets("Dia " & Format(Day([C12]), "00")).Cells(LR + 1, k + 1) = rngCel: k = k + 1
  Next
  'Range("C4, G4, H4, I4, D8, E8, F8, G8, H8, I8, E12, F12").ClearContents
End Sub

Se o resultado for o desejado e você quiser limpar os dados de origem após replicar, remova o apóstrofo inicial da penúltima linha do código.

Bom dia,

 

Apareceu o erro em tempo de execução "9"

 

image.thumb.png.c72cb58d816effee64b87e189d440a85.png

Erro.png

Compartilhar este post


Link para o post
Compartilhar em outros sites
52 minutos atrás, Eletronic Zero disse:

Apareceu o erro em tempo de execução "9"

 

E qual a mensagem de erro que aparece?

 

Verifique se no arquivo existe uma planilha em cujo nome tenha o número igual ao dia da data em C12 ;)

Compartilhar este post


Link para o post
Compartilhar em outros sites
11 minutos atrás, osvaldomp disse:

 

E qual a mensagem de erro que aparece?

 

Verifique se no arquivo existe uma planilha em cujo nome tenha o número igual ao dia da data em C12 ;)

Prezado,

 

Agradeço as dicas e informações prestadas.

 

Realmente só faltava incluir a aba da data.

 

Desde já agradeço,

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites
Em 12/10/2018 às 16:27, Eletronic Zero disse:

Prezado,

 

Agradeço as dicas e informações prestadas.

 

Realmente só faltava incluir a aba da data.

 

Desde já agradeço,

Ahhh esqueci de perguntar...

 

Tem como os dados que foram inseridos na aba sempre irem para o mesmo nome escolhido.

 

Por exemplo quando incluir os dados no nome de monica, ele ir sempre somando, para que apareça somente uma vez o nome?

Compartilhar este post


Link para o post
Compartilhar em outros sites
Sub ReplicaDados()
 Dim rngCel As Range, k As Long, LR As Long, c As Range
  With Sheets("Dia " & Format(Day([C12]), "00"))
   LR = .Cells(Rows.Count, 1).End(3).Row
   Set c = .[A:A].Find([C4], lookat:=xlWhole)
    If Not c Is Nothing Then
     For Each rngCel In Range("C4,G4,H4,I4,J4,D8,E8,F8,G8,H8,J8,I8,E12,F12,G12,H12,I12,J12,C12")
      If rngCel.Address(0, 0) <> "C4" Then
       .Cells(c.Row, k + 2) = .Cells(c.Row, k + 2) + rngCel: k = k + 1
      End If
     Next rngCel
     .Cells(c.Row, 19) = [C12]
    Else:
     For Each rngCel In Range("C4,G4,H4,I4,J4,D8,E8,F8,G8,H8,J8,I8,E12,F12,G12,H12,I12,J12,C12")
      .Cells(LR + 1, k + 1) = rngCel: k = k + 1
     Next rngCel
    End If
  End With
  'Range("C4, G4, H4, I4, D8, E8, F8, G8, H8, I8, E12, F12").ClearContents
End Sub

dica - para responder clique na caixa Responder, abaixo da última postagem, só clique em Citar se necessário

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

×