Ir ao conteúdo

Excel Substituir o conteúdo das células nos dias de terças, quintas e sábados.


Ir à solução Resolvido por Edson Luiz Branco,

Posts recomendados

Postado

Bom dia.

Solicito a sua ajuda.

Postei a pergunta em outro fórum, ainda não obtive a resposta.

Por favor elaborar no VBA, um código para substituir o conteúdo das células B3:F17  por   -x-   nos dias de terças, quintas e sábados.

Quando abrir o arquivo efetuar o procedimento.

Grato - Geneci.

Limp-cont-ter-qui-sab.xlsx

Postado

Veja se ajuda:

 

Sub macro_x()
Dim Ul As String, i As Integer, Hj As String
    Hj = Format(Date, "dddd")
    Ul = Planilha1.Cells(Rows.Count, "B").End(xlUp).Row
    For i = 3 To Ul
        If Hj = "terça" Or Hj = "quinta" Or Hj = "sábado" Then
        Planilha1.Cells(i, 2) = "-x-"
        Planilha1.Cells(i, 3) = "-x-"
        Planilha1.Cells(i, 4) = "-x-"
        Planilha1.Cells(i, 5) = "-x-"
        Planilha1.Cells(i, 6) = "-x-"
        End If
    Next
End Sub

 

  • Curtir 1
Postado

Boa tarde, @GENECIOFICIAL

 

Percebi que você agradeceu com o Like (obrigado por isso tb!) mas não encerrou o tópico e continua dando andamento à sua dúvida no outro fórum. Imagino então que sua dúvida não esteja sanada ainda. O que faltou?

Se alguma das respostas está satisfatória e atendeu plenamente sua demanda, por gentileza encerre os tópicos neste e em outros fóruns, pois evita que os membros se debrucem desnecessariamente sobre problemas já resolvidos, ok?

Obrigado!

Postado

Bom dia, Edson Luiz Branco.

 

Agradeço a mensagem alertando o tópico aberto.

 

Não fechei o tópico anteriormente, porque quando resgatei o código VBA não foi um dia de terça, quinta ou sábado para verificar o resultado.

Assim que constatar o resultado, o tópico será fechado.

 

Grato - Geneci.

  • Solução
Postado

Sem problemas, @GENECIOFICIAL

 

Para efeito apenas de teste, você também pode fazê-lo um ou mais dias antes ou depois da data atual, acrescentando ou subtraindo um número de dias (inteiro) ao argumento da função Weekday.

Por exemplo, para anteontem:  Weekday(Date - 2)

Para amanhã:                                Weekday(Date + 1)

  • Curtir 1

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!