Este fórum está sendo desativado

[flaviasilva]

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á

[LeonardoFelipeLeao]

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?

[flaviasilva]

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

[LeonardoFelipeLeao]

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 !

[osvaldomp]

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

[SandroLima]

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.

[osvaldomp]

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

[SandroLima]

Obrigado, osvaldomp.

Parece que funcionou perfeitamente... Farei mais testes.

Muito obrigado pela ajuda.