Notifications

Clear all

Celula não altera

2024 - VBA & Macros

Post Recente por vonzuben 7 anos atrás

12 Posts

4 Usuários

0 Reactions

2,064 Visualizações

RSS

vonzuben

(@vonzuben)

Posts: 549

Honorable Member

Topic starter

A Celula da coluna D não altera quando abro a planilha no dia do vencimento

Ex: SE C6 for =< a celula B3, então é Vencido

Obrigado !

vencimento.xlsm

Postado : 02/06/2018 2:19 pm

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

vonzuben,

Boa tarde!

Veja se é assim.

vencimento.zip

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 02/06/2018 2:39 pm

xlarruda

(@xlarruda)

Posts: 732

Honorable Member

Segue minha contribuição:

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

Postado : 02/06/2018 2:39 pm

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

vonzuben,

Com VBA, aproveitando o exemplo e código do xlarruda, fiz pequena modificação. Segue minha versão.

vencimento.zip

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 02/06/2018 2:51 pm

vonzuben

(@vonzuben)

Posts: 549

Honorable Member

Topic starter

Pq o excel não tem o recurso de atualizar sem o Workbook_Open(), sendo que abrir a planilha a celula data foi alterada ?

Postado : 03/06/2018 6:49 am

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

vonzuben,

Bom dia!

Não entendi a sua pergunta...

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 03/06/2018 7:04 am

MPrudencio

(@mprudencio)

Posts: 2749

Famed Member

Juro que eu tb nao entendi!!!!

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

Postado : 03/06/2018 7:06 am

xlarruda

(@xlarruda)

Posts: 732

Honorable Member

Se me lembro bem, sua planilha nao possuia nenhuma formula para tal ação

Att.

André Arruda

Postado : 03/06/2018 8:32 am

vonzuben

(@vonzuben)

Posts: 549

Honorable Member

Topic starter

Se tem uma Data Ex: 03/06/2018 e no outro dia eu abrir a planilha, essa celula teve uma alteração de 03/06 para 04/06 e pq não funcionou sem open ?

Alteração só válido somente quando coloco o cursor e dou Enter ( No meu código coloquei o cursor apenas sem alterar o valor e dei Enter e apareceu o Vencido )

Postado : 03/06/2018 1:22 pm

vonzuben

(@vonzuben)

Posts: 549

Honorable Member

Topic starter

Mas tem como colocar a formula junto com validação (Lista Suspensa escrito DELETE ) ?

Postado : 03/06/2018 1:27 pm

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

Acho que entendi.

Veja se é assim.

vencimento.zip

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 03/06/2018 2:03 pm

vonzuben

(@vonzuben)

Posts: 549

Honorable Member

Topic starter

O código tem que ser na linha 1(D1), pq é dinâmico !
Veja que tem um botão + que copia A1:D1 para linha 6 ( A6:D6)

Pq fiz a validação List1 e List2 ?
Pq List2 tem o Delete e List1 não tem !
Se caso B1 for o número 1 coloca a List1( sem o delete ), se for 2,3,4.... entra a List2 ( com o delete ). Conclusão : A Linha 6 não pode ter o Delete, pois é linha principal de preencher, assim não pode ser deletado.

Acredito que só da certo mesmo pelo VBA usando open, achava que com formula também daria certo, mas formula e linha suspensa juntos não tem como.

OBS: Coloquei =SE(C1="";"" depois coloquei o restante da sua formula, se não ele já copia com o valor Vencido

Postado : 03/06/2018 5:28 pm