Excel Incluir dados automaticamente em abas de data.

[Eletronic Zero]

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

[Visitante]

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

[Eletronic Zero]

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

[Visitante]

 

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.

[Eletronic Zero]

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"

 

[Visitante]

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

[Eletronic Zero]

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,

[Eletronic Zero]

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?

[Visitante]

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

[Eletronic Zero]

Osvaldo,

 

Quando eu tento incluir da o erro de tempo de execução 13.

 

Será  que é por causa dos valores "zero"?

Indicadores CWB.rar

[Visitante]

Disponibilize um arquivo em que o Projeto VBA não esteja bloqueado