Dicas do Aplicativo Excel
Saberexcel – Informática
Para listar apenas os dias úteis no Excel
Você viu como fazer uma seqüência automática de datas. E se você quisesse listar somente os dias úteis, deixando de fora os fins de semana? Também é possível. Em vez de arrastar a alça da célula com o botão esquerdo, de uso mais comum, faça-o com o direito. No final, solte o botão do mouse. Na lista que surge, escolha a opção Preencher Dias da Semana. Observe: entre as datas da seqüência não constam nem sábados nem domingos.
Se pretender usar a macro abaixo para automatizar em uma folha de planilha poderá obter a macro a seguir.
Domine o conhecimento de como produzir suas próprias macros com o Curso Completo Microsoft Excel VBA - Saberexcel.
Voce aprenderá como desenvolver suas próprias macros e como depurá-las já na primeira lição do Curso Comprelto Microsoft Excel VBA - Saberexcel
copie a macro cole-a em um módulo comum do VBE(Visual Basic Editor) e execute-a para visualizar o resultado.
Sub dias_da_semana()
' verficando inconsistência.....
If [E4].Value = "" Then
MsgBox ("Insira uma data na célula(E4)"), vbCritical, "Saberexcel - site das macros"
Exit Sub
End If
Range("F4").FormulaR1C1 = "=RC[-1]"
Range("E4:F4").AutoFill Destination:=Range("E4:F34"), Type:=xlFillWeekdays
Range("F4:F34").NumberFormat = "dddd"
Range("G4").Select
End Sub
Sub limpar_teste()
Range("E4:F34").ClearContents
End Sub
Aprenda
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel
Domine o conhecimento de como produzir suas próprias macros com o Curso Completo Microsoft Excel VBA - Saberexcel.
Voce aprenderá como desenvolver suas próprias macros e como depurá-las já na primeira lição do Curso Comprelto Microsoft Excel VBA - Saberexcel
copie a macro cole-a em um módulo comum do VBE(Visual Basic Editor) e execute-a para visualizar o resultado.
Sub dias_da_semana()
' verficando inconsistência.....
If [E4].Value = "" Then
MsgBox ("Insira uma data na célula(E4)"), vbCritical, "Saberexcel - site das macros"
Exit Sub
End If
Range("F4").FormulaR1C1 = "=RC[-1]"
Range("E4:F4").AutoFill Destination:=Range("E4:F34"), Type:=xlFillWeekdays
Range("F4:F34").NumberFormat = "dddd"
Range("G4").Select
End Sub
Sub limpar_teste()
Range("E4:F34").ClearContents
End Sub
Aprenda
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel
Baixe o exemplo de planilha contendo procedimento acima
Excel inserir dias da semana sem sabados e domingos (21.18 kB)
Publicidade
Compre com segurança, garantia e ótimos preços 
