DIA DA SEMANA VBA

Question

Prezados, bom dia!

Gostaria de solicitar uma ajuda para a seguinte situação:

Em uma planilha, tenho uma coluna com datas e preciso que na coluna ao lado seja informado o dia da semana.

Estou tentando o código abaixo mas não está trazendo todos os dias, somente Domingo.

Alguém pode me orientar sugerindo, se necessário, outro código?

Muito grato.

Josenildo Almeida

 Sub InserirDiaSemana()
  Dim isem, ul As Integer
  ul = Cells(Rows.Count, 2).End(xlUp).Row
   For isem = 1 To ul
    Cells(isem, 2) = WeekdayName(1, False, vbSunday)
   Next isem
  End Sub

Answer 1

Uma sugestão:

Sub InserirDiaSemana()
  Dim isem As Long
  Dim ul As Integer
  ul = Cells(Rows.Count, 2).End(xlUp).Row
   For isem = 2 To ul
    Cells(isem, 3).Value = Format(Cells(isem, 2).Value, "dddd")
   Next isem
  End Sub

---

Rafael Kamimura - http://excelmaniacos.com

Answer 2

Rafael, 

Obrigado pelo retorno.

Sua sugestão converte a data em dias da semana (o que foi muito bom também), mas o que eu preciso, é o nome da semana ao lado da data.

Pode me orientar?

Grato!

Answer 3

Olá Josenildo!

O código coloca o dia da semana como texto ao lado direito da data, supondo que a data esteja na coluna B, iniciando na 2ª linha. Se sua planilha não tiver esta configuração, precisa alterar os argumentos nas funções do código.

Abs.

---

Rafael Kamimura - http://excelmaniacos.com

Answer 4

Esse era o detalhe, os dados estavam em A1.

Agora funcionou. Muito obrigado Rafael!

Abraços!

Josenildo