Este fórum está sendo desativado

[sousabts]

Boa noite,

Em anexo, envio uma planilha que preciso de uma ajuda para resolver um problema.

Tenho uma guia chamada "lista", nela tem matrícula, nome e meses.... em cada célula na coluna dos meses tem uma lista suspensa que apresenta uma situação: Edição, Pendência e Baixa.

Quando for marcado a opção baixa, será necessário que a matrícula e o nome seja copiado para a guia do mês correspondente.

Por exemplo: Na guia lista,se for selecionado "baixa" na lista suspensa na coluna C, a matrícula "123" e nome "Maria", deverá ser copiado para o mês correspondente, neste exemplo, copiado para a guia "janeiro", se o for desmarcado a situação o nome é excluído novamente da guia do mês correspondente..


Não sei se consegui explicar direito, mas, desde já agradeço se puderem me ajudar.

[Strogonoff]

da uma verificada, era isso?
Abraço

[sousabts]

Excelente!!
@Strogonoff,
Vc poderia me explicar como eu faço isso??

[Deciog]

sousabts , Bom Dia.

Por formula

Para a versão Excel antes de 2019, feche com CTRL + SHIFT + ENTER, são formula matricial

Confere se é desta forma que desejas

Se minha resposta foi útil, clique em obrigado é uma forma de agradecimento da ajuda

Decio

[sousabts]

da uma verificada, era isso?
Abraço

Ah, eu estava olhando uma situação que aconteceu.... qndo eu tiro a opção baixa e coloco outra situação ele não some do mês correspondente, ele só sai qndo eu removo toda a informação.... se não tiver como resolver não tem problema....

[sousabts]

sousabts , Bom Dia.

Por formula

Para a versão Excel antes de 2019, feche com CTRL + SHIFT + ENTER, são formula matricial

Confere se é desta forma que desejas

Se minha resposta foi útil, clique em obrigado é uma forma de agradecimento da ajuda

Decio

Oi amigo, tudo bem??

fiz o teste na planilha, mas, quando coloco baixa não esta sendo copiada para o mês correspondente não... Sera q tenho q fazer algum procedimento antes???

[sousabts]

Excelente!!
@Strogonoff,
Vc poderia me explicar como eu faço isso??

E outra coisa engraçada que percebi é que quando chego no mês de dezembro, e marco a situação baixa ele trava que preciso forçar o reinicio do programa excel.... pq será???

[Strogonoff]

Bom dia!!
clique em <ALT + F11> e abre a tela do VBA.
a esquerda da tela tem o VBA project
clique em planilha1 que é da sua lista
lá está a automatizaçao da planilha..

[Strogonoff]

@sousabts
Em relação a sair do mês corresponsdente, somente vinculei isso na retirada do baixa para " " como você havia mencionado..
Como não entendo a lógica dos comandos, somente limitei ao que foi pedido...
Ateração feita...
Veja agora.

[Strogonoff]

Excelente!!
@Strogonoff,
Vc poderia me explicar como eu faço isso??

E outra coisa engraçada que percebi é que quando chego no mês de dezembro, e marco a situação baixa ele trava que preciso forçar o reinicio do programa excel.... pq será???

ops... isso é bug...
espera um pouco que já atualizo

[Strogonoff]

E relação a Dezembro, o nome da planilha está errado (Dezemebro), por isso que dá o BUG, acerte a grafia da planilha que já está resolvido, como a rotina faz a busca pelo mês da coluna, ele busca a planilha com o mesmo nome e não acha... Viu como uma letra faz diferença...
Abraço

[Strogonoff]

Bom dia!!
clique em <ALT + F11> e abre a tela do VBA.
a esquerda da tela tem o VBA project
clique em planilha1 que é da sua lista
lá está a automatizaçao da planilha..

Se tiver algum problema, me avisa, combinado???

[Deciog]

sousabts

Como eu escrevi se sua versão for dizente tem que teclar CTRL+SHIFT+ENTER

Olha agora o anexo com CTRL+SHIFT+ENTER

Confere se é desta forma que desejas

Se minha resposta foi útil, clique em obrigado é uma forma de agradecimento da ajuda

Decio

[sousabts]

Bom dia!!
clique em <ALT + F11> e abre a tela do VBA.
a esquerda da tela tem o VBA project
clique em planilha1 que é da sua lista
lá está a automatizaçao da planilha..

Se tiver algum problema, me avisa, combinado???

Excelente,

Me desculpe, mas, como eu faço para incluir mais pessoas na guia lista??

[osvaldomp]

Instale uma cópia do código abaixo no módulo da planilha Lista. Para acessar o módulo clique com o direito sobre a guia daquela planilha e escolha Exibir Código.

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim m As Range
  If Target.Column < 3 Or Target.Column > 14 Then Exit Sub
  If Target.Value = "Baixa" Then
   Sheets(Cells(1, ActiveCell.Column).Text).Cells(Rows.Count, 1).End(3)(2).Resize(, 2).Value = Cells(ActiveCell.Row, 1).Resize(, 2).Value
  Else: Set m = Sheets(Cells(1, ActiveCell.Column).Text).[A:A].Find(Cells(ActiveCell.Row, 1))
   If Not m Is Nothing Then Sheets(Cells(1, ActiveCell.Column).Text).Rows(m.Row).Delete
  End If
End Sub

dica - não utilize Select nos seus códigos

[sousabts]

sousabts

Como eu escrevi se sua versão for dizente tem que teclar CTRL+SHIFT+ENTER

Olha agora o anexo com CTRL+SHIFT+ENTER

Confere se é desta forma que desejas

Se minha resposta foi útil, clique em obrigado é uma forma de agradecimento da ajuda

Decio

Desta forma ficou mais compreensivo para mim, pois consigo entender melhor as formulas....
Mas, eu estava tentando incluir mais pessoas, mas, tem ocorrido erro, veja so:
Na sua formula é: =SEERRO(ÍNDICE(Lista!$A$2:$A$4;MENOR(SE(SE(ÉNÚM(PROCURAR("Baixa";Lista!$C$2:$N$4;1));Lista!$C$1:$N$1)=$R$1;LIN(Lista!$A$2:$A$4)-1;FALSO);LIN(A1)));"")

então quero incluir mais pessoas, tentei editar, da seguinte forma abaixo, mas, parece que não funciona, será pq???

=SEERRO(ÍNDICE(Lista!$A$2:$A$1600;MENOR(SE(SE(ÉNÚM(PROCURAR("Baixa";Lista!$C$2:$N$1600;1));Lista!$C$1:$N$1)=$R$1;LIN(Lista!$A$2:$A$1600)-1;FALSO);LIN(A1)));"")

[Deciog]

sousabts, Boa Tarde

A formula voce alterou corretamente porem!

Voce precisa encerrar com as teclas juntas CTRL+SHIFT+ENTER assim a formula fica com essas chaves no inicio { e fim } isso significa forma matricial

Como fazer selecione todas as abas de Janeiro a Dezembro, depois coloca a formula na célula A2 ai tecla F2 ai encere com as teclas juntas CTRL+SHIF+ENTER depois copia as formula para baixo até onde quer o resultado

Se minha resposta foi útil, clique em obrigado é uma forma de agradecimento da ajuda

Decio

[sousabts]

sousabts, Boa Tarde

A formula voce alterou corretamente porem!

Voce precisa encerrar com as teclas juntas CTRL+SHIFT+ENTER assim a formula fica com essas chaves no inicio { e fim } isso significa forma matricial

Como fazer selecione todas as abas de Janeiro a Dezembro, depois coloca a formula na célula A2 ai tecla F2 ai encere com as teclas juntas CTRL+SHIF+ENTER depois copia as formula para baixo até onde quer o resultado

Se minha resposta foi útil, clique em obrigado é uma forma de agradecimento da ajuda

Decio

Perfeito.... Agora sim deu certo!

Muito Obrigado.

[Strogonoff]

Como você viu , tem várias recitas de bolo de chocolate, e todas funcionam e se adaptam a sua necessidade...

If Not Intersect(Target, Range("C2:N100" )) Is Nothing Then ' esse numero 100 após a letra N aumentará para as 100 linhas, na planilha enviada estava 4, nesse fórum gosto de trabalhar codigos simples e explicar passo a passo para que as pessoas tenham condições de criar em cima do codigo enviado, que foi exatamente como comecei. o cplicado...odigo acima enviado pelo colega, é o ideal, porém para o iniciante, poderá ser complicado, e um detalhesinho o codigo estará perdido...
Precisando estamos a disposição

[osvaldomp]

... o cplicado...odigo acima enviado pelo colega, é o ideal, porém para o iniciante, poderá ser complicado,
O código foi elaborado com base na boa técnica, notadamente sem o uso de Select, que certamente não é uma técnica recomendável para iniciantes e muito menos para iniciados. Ainda, códigos enxutos são de fácil elaboração, fácil leitura e interpretação e de rápida execução.

e um detalhesinho o codigo estará perdido...
Esse comentário não faz sentido