none
DIA DA SEMANA VBA RRS feed

  • Pergunta

  • 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
    terça-feira, 31 de maio de 2016 12:20

Respostas

Todas as Respostas

  • 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

    • Sugerido como Resposta André Santo terça-feira, 31 de maio de 2016 13:07
    terça-feira, 31 de maio de 2016 12:40
  • 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!

    terça-feira, 31 de maio de 2016 17:04
  • 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

    terça-feira, 31 de maio de 2016 17:32
  • Esse era o detalhe, os dados estavam em A1.

    Agora funcionou. Muito obrigado Rafael!

    Abraços!

    Josenildo

    terça-feira, 31 de maio de 2016 18:19