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

[GENECIOFICIAL]

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

[RafaVillani]

@GENECIOFICIAL Seja bem vindo ao fórum. Veja se lhe atende.

 

RafaVillani

Limp-cont-ter-qui-sab.rar

[Muca Costa]

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

 

[Edson Luiz Branco]

Private Sub Workbook_Open()
  If Weekday(Date) Like "[357]" Then Worksheets("Planilha1").Range("B3:F17").Value = "-x-"
End Sub

 

[Edson Luiz Branco]

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!

[GENECIOFICIAL]

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.

[Edson Luiz Branco]

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)

[GENECIOFICIAL]

Ótima explicação, como alterar o código visando outros dias, problema resolvido.

Tópico encerrado.

 

Grato - Geneci.