Este fórum está sendo desativado

[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

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

[Adilia]

Posso utilizar somente duas planilhas, a lista de espera e agendados

Quando a pessoa for agendada sair dessa lista e ir para outra

[Adilia]

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

[osvaldomp]

Carregue uma cópia do arquivo diretamente no fórum.

Abaixo da última postagem: + Resposta / Adicionar um anexo / Selecione o arquivo

[Adilia]

Oi, desculpa... Segue o anexo

[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 todos

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

[Adilia]

Oi, então...

Quando finalizo e vou testar aparece o seguinte erro

"Erro em tempo de execução '9':
Subscrito fora do intervalo

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

[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

[osvaldomp]

Essa é a planilha no modelo que utilizo,
E é totalmente diferente do modelo que você postou antes

Ao selecionar a opção "agendado" não muda nada
Selecionar a opção "agendado" em qual coluna de qual planilha ? Este assunto é novo

"Erro em tempo de execução '9': Subscrito fora do intervalo ~~~> esse erro ocorre porque no primeiro modelo o nome da planilha que recebe os dados é "Agendado" e no segundo modelo você colocou "Agenda" (a propósito, esse já é o quinto nome que você atribuiu a essa planilha ~~~> "... informe para qual planilha você passa os nomes (agendadas, agendados ou agendamento )" ~~~> lembra disso ?; além desses três nomes, depois ainda surgiram os dois que citei acima

Ainda, como a estrutura da planilha "Agenda" é totalmente diferente da estrutura da planilha "Agendado", você precisa informar em quais colunas da planilha "Agenda" serão replicados os dados das colunas da planilha "Lista de Espera". Indique com exatidão coluna por coluna.

[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

[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"

[Adilia]

OPA!!! Deu super certo!

Muito muito obrigada!!!!

Desculpa a confusão com as planilhas rsrsrs

Bjs