Página 1 de 1
Unificação de planilhas (AJUDA)
Enviado: 26 Mar 2019 às 09:01
por Adilia
Oi Galera, tudo bem? Preciso de um help
Vamos la
Eu tenho 3 planilhas dentro de uma mesma pasta:
Planilha de agendamento
Planilha com uma lista de espera
Planilha com as agendadas
Quando eu agendo alguém na planilha de agendamento a intenção é que a pessoa saia da lista de espera e automaticamente vai para a lista de agendados... to meio perdida em como proceder, alguém poderia me ajudar?
obg
Re: Unificação de planilhas (AJUDA)
Enviado: 26 Mar 2019 às 11:51
por osvaldomp
Sugestão: disponibilize uma amostra do seu arquivo Excel somente com 4 ou 5 linhas com dados na planilha que contém a lista de espera e informe para qual planilha você passa os nomes (agendadas, agendados ou agendamento

).
Unificação de planilhas (AJUDA)
Enviado: 26 Mar 2019 às 14:05
por Adilia
Posso utilizar somente duas planilhas, a lista de espera e agendados
Quando a pessoa for agendada sair dessa lista e ir para outra
Re: Unificação de planilhas (AJUDA)
Enviado: 26 Mar 2019 às 14:06
por Adilia
osvaldomp escreveu:Sugestão: disponibilize uma amostra do seu arquivo Excel somente com 4 ou 5 linhas com dados na planilha que contém a lista de espera e informe para qual planilha você passa os nomes (agendadas, agendados ou agendamento
).
Att
Re: Unificação de planilhas (AJUDA)
Enviado: 26 Mar 2019 às 15:38
por osvaldomp
Carregue uma cópia do arquivo diretamente no fórum.
Abaixo da última postagem:
+ Resposta / Adicionar um anexo / Selecione o arquivo
Re: Unificação de planilhas (AJUDA)
Enviado: 26 Mar 2019 às 16:02
por Adilia
Oi, desculpa... Segue o anexo
Re: Unificação de planilhas (AJUDA)
Enviado: 26 Mar 2019 às 18:12
por osvaldomp
Instale uma cópia do código abaixo no módulo da planilha
Lista de Espera, 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 todosPrivate Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column <> 9 Or Target.Value <> 1 Then Exit Sub
Cells(Target.Row, 2).Resize(, 7).Copy Sheets("Agendado").Cells(Rows.Count, 1).End(3)(2)
Rows(Target.Row).Delete
End Sub
obs. se funcionar conforme desejado salve o arquivo como
Pasta de Trabalho Habilitada para Macro.
Re: Unificação de planilhas (AJUDA)
Enviado: 26 Mar 2019 às 19:51
por Adilia
Oi, então...
Quando finalizo e vou testar aparece o seguinte erro
"Erro em tempo de execução '9':
Subscrito fora do intervalo
Re: Unificação de planilhas (AJUDA)
Enviado: 26 Mar 2019 às 22:23
por osvaldomp
Oi, então ... disponibilize o seu arquivo com o código instalado e informe em que momento ou após qual ação sua o erro aparece.
Re: Unificação de planilhas (AJUDA)
Enviado: 27 Mar 2019 às 07:17
por Adilia
Essa é a planilha no modelo que utilizo, a ideia continua a mesma, com o código. Ao selecionar a opção "agendado" não muda nada
Muitíssimo obrigada
Segue
Re: Unificação de planilhas (AJUDA)
Enviado: 27 Mar 2019 às 08:53
por osvaldomp
Re: Unificação de planilhas (AJUDA)
Enviado: 27 Mar 2019 às 08:59
por Adilia
Sim eu me lembro, peço desculpas por isso.
O esquema continua o mesmo, os nomes que estão na planilha "Lista de Espera" sairão dessa lista quando marcados agendados e irão para a planilha "Agendados"
Segue a planilha com os nomes devidamente identificados
Att
Re: Unificação de planilhas (AJUDA)
Enviado: 27 Mar 2019 às 11:04
por osvaldomp
1. no código que passei substitua "Agendado" por "Agendados"
2. na sua planilha "Agendados " remova o espaço existente no final do nome
3. antes de testar coloque as datas na coluna A da planilha "Lista de Espera"
Re: Unificação de planilhas (AJUDA)
Enviado: 27 Mar 2019 às 13:21
por Adilia
OPA!!! Deu super certo!
Muito muito obrigada!!!!
Desculpa a confusão com as planilhas rsrsrs
Bjs
