Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Macro para retornar dia da semana

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
santa.ars



Mensagens : 137
Data de inscrição : 07/09/2011

MensagemAssunto: Macro para retornar dia da semana   Sab Nov 03, 2012 2:36 pm

Preciso de uma macro para retornar o dia da semana (se é segunda-feira, terça-feira, etc, na coluna C) a partir da digitação da data pelo usuário. A planilha ficará assim:

A B C
Nome Dia Dia da Semana (esse é que eu quero que retorne)
x 03/11/2012 Sábado
y 10/10/2012 Quarta-feira
Z 11/10/2012 Quinta-feira
W 01/11/2012 Quinta-feira
......

Obrigado
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Patropi



Mensagens : 49
Data de inscrição : 14/06/2012
Localização : Campo Mourão - PR

MensagemAssunto: Re: Macro para retornar dia da semana   Sab Nov 03, 2012 6:46 pm

Boa tarde

Porque usar macro, basta vc usar na célula ao lado a fórmula:

=TEXTO(A2;"dddd")

e arrastar para as demais linhas.

Att.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
santa.ars



Mensagens : 137
Data de inscrição : 07/09/2011

MensagemAssunto: Macro para retornar dia da semana   Sab Nov 03, 2012 9:07 pm

Tem que ser macro, visto que a planilha tem que ser infinita, e não quero que o usuário fique copiando e colando a fórmula.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Macro para retornar dia da semana   Sab Nov 03, 2012 11:02 pm

Boa tarde!!!

Seria isso...?
Código:
Sub AleVBA_ArrastarTEXT()
Dim lrow As Long
    lrow = Range("A" & Rows.Count).End(xlUp).Row
    [D2].Formula = "=Text(C2, ""DDDD"")"
    Range("D2").AutoFill Destination:=Range("D2:D" & lrow)
End Sub
Voltar ao Topo Ir em baixo
Ver perfil do usuário
santa.ars



Mensagens : 137
Data de inscrição : 07/09/2011

MensagemAssunto: Re: Macro para retornar dia da semana   Seg Nov 05, 2012 1:51 am

Deu certo. Obrigado.
Mas e se eu colocasse mais 3 colunas, ficasse assim
A B C D E F
Nome Dia Dia da Semana Nome Dia Dia da Semana
x 03/11/2012 Sábado M 05/05/2012 Segunda-feira
y 10/10/2012 Quarta-feira K 10/06/2012 Terça-feira
Z 11/10/2012 Quinta-feira L 13/02/2012 Terça-Feira
W 01/11/2012 Quinta-feira B 14/07/2012 Quinta-feira


Como ficaria a macro?
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Macro para retornar dia da semana   Qui Nov 15, 2012 4:01 pm

Bom dia!!

Essa linha
Código:
[D2].Formula = "=Text(C2, ""DDDD"")"
coloca a formula em "D2" igual a a "C2" usando a função função Texto. é só adaptar.

Essa linha
Código:
Range("D2").AutoFill Destination:=Range("D2:D" & lrow)
pega formula colocda em D2 e arrasta para baixo, é só adaptar.

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
santa.ars



Mensagens : 137
Data de inscrição : 07/09/2011

MensagemAssunto: Retorno   Qui Nov 15, 2012 7:54 pm

Valeu!

Deu certo.
Obrigado mesmo.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Macro para retornar dia da semana   Hoje à(s) 5:44 pm

Voltar ao Topo Ir em baixo
 
Macro para retornar dia da semana
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Colocar no perfil do membro uma campo para "membro da semana"
» Como valido cpf e cnpj em vba no access?
» Macro para exportar para o word
» [Resolvido] Erro em conversão de macro para código
» Macro para Excel armazenar dados no Access.

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: