Notifications
Clear all

Dia pesrsonalizado atraves de macro

8 Posts
4 Usuários
0 Reactions
1,828 Visualizações
(@marciobin)
Posts: 204
Estimable Member
Topic starter
 

Boa noite ,
Senhores ,
Alguém sabe alguma maneira de achar o dia , tipo: Coluna A , tenho a data .Na coluna E , coloco = a A1 . Dai ela mim retorna o dia da data.Té ai blz ....
Gostaria de fazer isso com macro , pois as fórmulas , que por sinal não são poucas , esta pesando muito a planilha .
Se alguém puder ajudar fico grato .
Vlew ....

 
Postado : 01/09/2018 5:41 pm
(@mprudencio)
Posts: 2749
Famed Member
 

Vc tinha que ter mostrado o resultado esperado.

E eu exemplo nao tem nada na coluna E

Vc colocou dados na coluna G e H qual informação vc quer em A1?

A maior data ?

A data do dia ?
De que maneira ? Por extenso ou data numerica?

Enfim!!

Explica ai pq ta dificil!!

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 : 01/09/2018 5:58 pm
(@marciobin)
Posts: 204
Estimable Member
Topic starter
 

Boa noite Sr .Prudencio ....
Reescrevo o texto .....

Alguém sabe alguma maneira de achar o dia , tipo: Coluna H7 , tenho a data .Na coluna G7 , coloco = H7 . Dai ela mim retorna o dia da data.Té ai blz , PODES VER QUE ATE AI TA PRONTO , JA TA MIM RETORNADO O DIA , (JA COLOQUEI A FORMULA E FORMATEI COMO PERSONALIZADO .dddd...
o porem é que :

Gostaria de fazer isso com macro , pois as fórmulas , que por sinal não são poucas , esta pesando muito a planilha .
Se alguém puder ajudar fico grato .
Vlew ....

Desculpa qualquer coisa . Da proxima coloco do jeito certo...

 
Postado : 01/09/2018 6:27 pm
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

marciobin,

Boa noite!

Fiz da seguinte forma:

Basta digitar uma data em qualquer célula da coluna H, a partir da linha 7, teclar ENTER que automaticamente o dia correspondente será inserido na coluna G, respectiva linha aonde foi inserida a data, sem a necessidade de fórmulas ou de qualquer tipo de formatação personalizada na coluna G.

Veja se é assim.

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 : 01/09/2018 7:17 pm
(@marciobin)
Posts: 204
Estimable Member
Topic starter
 

Wagner , exatamente isso .

Seu raciocinio é veloz .
vlew .

 
Postado : 01/09/2018 7:21 pm
(@mprudencio)
Posts: 2749
Famed Member
 

Abra o editor de VBA na planilha que deseja o codigo e cole este codigo no modulo da planilha.

Private Sub Worksheet_Change(ByVal Target As Range)


If Target.Column = 8 Then Target.Cells.Offset(0, -1).Value = UCase(Format(Date, "DDDD"))


End Sub

Em tempo nao ha pq pedir desculpas eu apenas nao havia entendido.

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 : 01/09/2018 7:22 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

.
Só para apimentar o assunto kk ...
.
Usando o arquivo do Wagner, fiz um teste aqui com 100 mil linhas e a diferença entre o código e a formula (=TEXTO(DIA.DA.SEMANA(H7);"dddd")) realmente é significativa com o arquivo salvo ... código 1,1mb, fórmula 1,8mb ... mas o código não assimila a data arrastada, já a fórmula assimila!!
.

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

 
Postado : 01/09/2018 8:08 pm
(@mprudencio)
Posts: 2749
Famed Member
 

Copa nao vi o codigo dele e deve ser parecido com o meu.

O codigo deve ser executado qdo vc digitar a data na coluna H

E arrastando a data ja preenchida vai copiar o valor de cima ja que nao é formula.

A titulo de informação vc nao precisa da função dia da semana qdo usa a função texto

Pode ser assim:

=TEXTO(H7;"dddd")

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 : 02/09/2018 8:11 am