Guru do Excel e Power BI

Enviado: **20 Jul 2018 às 08:07**

Olá pessoal,
gostaria de saber se tem a possibilidade de conforme planilha em anexo:
Enquanto eu alimento uma planilha com todas as datas e produção do mês, eu consiga e outras abas colocar somente as informações do dia, ex: tenho abas com os dias do mês e a planilha principal que vou alimentando diariamente consiga alimentar essas abas diárias.
agradeço desde já

Enviado: **20 Jul 2018 às 08:45**

Oi Flavia bom dia, eu olhei sua planilha mas não entendi bem o intuito, ter como até tem mas tem formas melhores de se fazer isso, com o tempo essa planilha vai ficar gigante, qual o motivo te leva a querer preencher em uma aba isolada as informações do dia?Porque as informações das abas são bem parecidas com a sua planilha geral! talvez você aumente colunas nessa planilha principal e gere planilhas dinâmicas para ter os relatórios seja mais produtivo não?

Enviado: **20 Jul 2018 às 09:35**

Bom dia,
entendi o seu posicionamento, na verdade eu tenho que enviar diariamente a os dados referente ao dia por email, mas queria preencher apenas em uma planilha e as informações diárias fossem geradas e outro local apenas para envio

Enviado: **20 Jul 2018 às 09:43**

Certo, nesse caso eu utilizo a opção filtro mesmo, seleciono só os itens do dia copio e envio

eu uso uma planilha parecida e já habituei a fazer assim, espero que alguém te ajude de uma forma melhor !

Enviado: **20 Jul 2018 às 10:03**

Instale o código abaixo no módulo da planilha 2018, assim:
1. copie o código daqui
2. clique com o direito na guia daquela planilha e escolha 'Exibir código'
3. cole o código na janela em branco que vai se abrir
4. feito! 'Alt+Q' para retornar para a planilha e testar

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column > 5 Then Exit Sub
 If Application.CountA(Cells(Target.Row, 1).Resize(, 5)) < 5 Then Exit Sub
  On Error GoTo fim
  With Sheets(Format(Cells(Target.Row, 1), "dd.mm"))
   .Cells(Rows.Count, 3).End(3)(2) = Cells(Target.Row, 3)
   .Cells(Rows.Count, 3).End(3)(1, 3) = Cells(Target.Row, 4)
   .Cells(Rows.Count, 3).End(3)(1, 4) = Cells(Target.Row, 1)
   .Cells(Rows.Count, 3).End(3)(1, 6) = Cells(Target.Row, 5)
  End With
 Exit Sub
fim: MsgBox "PLANILHA DESTINO NÃO ENCONTRADA"
End Sub

funcionamento - ao inserir um novo registro na planilha 2018, preenchidas as colunas A:E, em qualquer ordem, o registro inserido será replicado na planilha correspondente à data da coluna A

obs. o código acima vale para a estrutura da planilha 05.06, que está diferente da planilha 04.06

Enviado: **20 Jul 2018 às 19:00**

Boa noite, colegas forumeiros...

Boa noite osvaldomp.

Não sei se deveria abrir novo tópico ou posso aproveitar o tópico da colega.
Me desculpem se não for a maneira correta de pedir ajuda usando o mesmo tópico...
Mas preciso muito de algo semelhante e gostaria de saber o que eu deveria modificar nesse código para a situação da minha planilha em anexo.
A diferença seria que ao inserir novo registro na planilha principal ela replicasse o registro na planilha mensal correspondente à data de registro.
Planilha em anexo.
Obrigado se puder me ajudar.

Enviado: **20 Jul 2018 às 20:52**

Olá, Sandro.
Instale o código abaixo no módulo da planilha ATIVIDADE DIÁRIA.
Considerei que ao preencher um registro, nas células de preenchimento não obrigatório haverá ao menos um hífen (-).

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column > 22 Or Target.Column = 1 Or Target.Row < 14 Then Exit Sub
 If Application.CountA(Cells(Target.Row, 2).Resize(, 21)) < 21 Then Exit Sub
  On Error GoTo fim
  Sheets(Format(Cells(Target.Row, 2), "mmmm")).Cells(Rows.Count, 2).End(3)(2).Resize(, 21).Value = Cells(Target.Row, 2).Resize(, 21).Value
 Exit Sub
fim: MsgBox "PLANILHA DESTINO NÃO ENCONTRADA"
End Sub

Enviado: **22 Jul 2018 às 18:23**

Obrigado, osvaldomp.

Parece que funcionou perfeitamente... Farei mais testes.

Muito obrigado pela ajuda.

Guru do Excel e Power BI

Planilha que alimenta outras abas diariamente

Planilha que alimenta outras abas diariamente

Planilha que alimenta outras abas diariamente

Planilha que alimenta outras abas diariamente

Planilha que alimenta outras abas diariamente

Re: Planilha que alimenta outras abas diariamente

Planilha que alimenta outras abas diariamente

Re: Planilha que alimenta outras abas diariamente

Planilha que alimenta outras abas diariamente