Notifications
Clear all

DIA DA SEMANA DE ACORDO COM MÊS ATIVO

11 Posts
3 Usuários
0 Reactions
1,736 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Povo, boa noite!!
.
O QUE GOSTARIA ....
.
QUE NA COLUNA B MOSTRASSE O DIA DA SEMANA (seg, ter, qua, qui, sex, sáb, dom) .... mas de acordo com o mês ATIVO!!
.
Ou seja, os dias serão sempre A3:A33, o ano será o A1 ... e o mês seria de acordo com a célula/coluna ativa!!!
.
Ex: célula ativa na coluna H3 a H33 ... a coluna B mostraria o dia da semana de acordo com o dd/06/2016 !!
.
PS: tentei fazer com fórmula mas não encontrei solução!! ..................... Alguém faz um vbazinho por favor?!! .... Obrigado!!
.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 26/05/2016 6:03 pm
(@edcronos2)
Posts: 346
Reputable Member
 

a unica coisa em vba que vai precisar é para verificar a celula ativa
se tivesse uma celula para marcar o mes que se quer seria mais facil

 
Postado : 26/05/2016 6:10 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

.
edcronos, essa foi minha ideia inicial ... mas não existe uma formula que verifica célula ativa ... tipo: se(h3:h33=celula ativa, faça isto, "") !!!

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 26/05/2016 6:14 pm
(@edcronos2)
Posts: 346
Reputable Member
 

por isso que falei que o vba somente para verificar celula ativa
e evento de celula vai jogar para uma celula expecifica o valor da coluna
entõ a formula vai concatenar o dia, o mes que a celula selecionada marcar, e o ano

 
Postado : 26/05/2016 6:19 pm
(@edcronos2)
Posts: 346
Reputable Member
 

bem, a macro é super simples

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Not Intersect(Target, Range("C1:N33")) Is Nothing Then
  Range("o1").Value2 = Selection.Column - 2
    End If
End Sub

e a formula seria algo como
=DATA.VALOR(A3&"/"&$O$1&"/"&$A$1)

aí é só formatar a coluna como personalizado e colocar ddd

 
Postado : 26/05/2016 6:31 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

.
Colei o código no módulo, mas ele só mostra 4 em O1, independente da coluna ATIVA!!!!!!!!!!!!!!!!!!!!
.
PS: eu fiz com fórmula, mas precisa ficar mudando o mês em C1 ..... o ideal seria o reconhecimento da coluna ativa!!!

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 26/05/2016 6:41 pm
(@edcronos2)
Posts: 346
Reputable Member
 

coloque o codigo no modulo da aba
não é em um modulo comum não

de 2 cliques na aba plan1 no VBE e cole o codigo ali

 
Postado : 26/05/2016 6:45 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

.
Aaaaa, tá!!
.
Show!! ... Valeu edcronos2 !!!

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 26/05/2016 6:50 pm
(@osvaldomp)
Posts: 858
Prominent Member
 

Solução alternativa:

a fórmula abaixo em 'B3' e arraste para baixo; formate o intervalo para "ddd"

=SE(LIN()=CÉL("lin");DATA($A$1;CÉL("col")-2;CÉL("lin")-2);"")

e o código abaixo no módulo da planilha

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 ActiveSheet.Calculate
End Sub

Osvaldo

 
Postado : 26/05/2016 8:35 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

.
Osvaldomp, valeu pela contribuição, mas já montei a Agenda 2016-2020 !!
.
A quem se interessar, tá aí .......... (se alguém melhorá-la, por favor k, compartilhe também!!
.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 26/05/2016 9:15 pm
(@edcronos2)
Posts: 346
Reputable Member
 

tem varia maneiras de melhorar
mas um ponto que acho importante é mudar a fomatação de finais de semanas e feriados
isso pq quando se seleciona a coluna do mes os feriados e finais de semana se baseam naquele mes e a formatação marca todos eles
tbm tem o fator sabado, para a maioria é um dia util portando teria que ter uma formatação diferenciada da de domigo

 
Postado : 26/05/2016 9:28 pm