Excel vba com dias uteis

[Fabianne Alves]

Bom dia

 

tenho uma planilha para fazer emissão de ordens de serviço, na qual consegui cadastrar para emissão "diário", "semanal", quinzenal" e "mensal"

 

porém queria inserir um que cadastrasse por exemplo "segunda, quarta e sexta" 

o problema que tenho é que se eu coloco pra repetir a cada 2 dias, acaba pegando sábado e domingo.

 

código que possuo:

If Combo_Periodicidade.Text = "Diário" Then
   Qtde_OS = 365
   Prox_Prev = 1
   ElseIf Combo_Periodicidade.Text = "Semanal" Then
   Qtde_OS = 48
   Prox_Prev = 7
   ElseIf Combo_Periodicidade.Text = "Quinzenal" Then
   Qtde_OS = 24
   Prox_Prev = 15
   ElseIf Combo_Periodicidade.Text = "Mensal" Then
   Qtde_OS = 12
   Prox_Prev = 30

alguém tem ideia de como posso fazer?

[Visitante]

 

Veja se aproveita.

 

If Weekday(CDate(Combo_Periodicidade.Text)) = 2 Then

 

2 ~~~> segunda
4 ~~~> quarta
6 ~~~> sexta

[Fabianne Alves]

@osvaldomp

 

Não consegui utilizar dessa forma

[Visitante]

Disponibilize uma amostra do seu arquivo Excel e indique com exatidão qual o resultado desejado.