Erro ao trazer o di...
 
Notifications
Clear all

[Resolvido] Erro ao trazer o dia da semana e inversão de data


Edson Sodre de Faria
Posts: 1
Registered
Topic starter
(@edson-sodre-de-faria)
New Member
Entrou: 2 dias atrás

Colegas, boa tarde.

Sou novo na realização de formulários em VBA, e estou encontrando dificuldades em sanar erros que retornam quando tento carregar o dia da semana em textbox após a inserção da data na caixa dia trabalhado, pois quando tenho cadastrar e salvar na planilha da erro. Além do que algumas datas são invertidas ao carregar na planilha. As matrículas dos funcionários estão na planilha apoio.

Vejam os códigos:

Private Sub CommandButton1_Click()
linha_vazia = Sheets("Arquivo").Range("A1000000").End(xlUp).Row + 1

Sheets("Arquivo").Cells(linha_vazia, 1).Value = CAIXA_MATRÍCULA.Value
Sheets("Arquivo").Cells(linha_vazia, 2).Value = CAIXA_NOME.Value
Sheets("Arquivo").Cells(linha_vazia, 3).Value = CAIXA_LOTAÇÃO.Value
Sheets("Arquivo").Cells(linha_vazia, 4).Value = CDate(CAIXA_DIA_TRABALHADO.Value)
Sheets("Arquivo").Cells(linha_vazia, 5).Value = CAIXA_DIA_SEMANA.Value
Sheets("Arquivo").Cells(linha_vazia, 6).Value = CAIXA_SITUAÇÃO.Value
Sheets("Arquivo").Cells(linha_vazia, 7).Value = CAIXA_QTDE_DIAS.Value
Sheets("Arquivo").Cells(linha_vazia, 8).Value = CDate(CAIXA_FOLGA1.Value)
Sheets("Arquivo").Cells(linha_vazia, 9).Value = CDate(CAIXA_FOLGA2.Value)
Sheets("Arquivo").Cells(linha_vazia, 10).Value = CAIXA_OBS.Value

Private Sub CAIXA_DIA_TRABALHADO_Change()

Dim Dia As Double

Dia = VBA.Weekday(CAIXA_DIA_TRABALHADO, VBA.vbSunday)

If Dia = "1" Then
CAIXA_DIA_SEMANA = "DOMINGO"
End If

If Dia = "2" Then
CAIXA_DIA_SEMANA = "SEGUNDA FEIRA"
End If

If Dia = "3" Then
CAIXA_DIA_SEMANA = "TERÇA FEIRA"
End If

If Dia = "4" Then
CAIXA_DIA_SEMANA = "QUARTA FEIRA"
End If

If Dia = "5" Then
CAIXA_DIA_SEMANA = "QUINTA FEIRA"
End If

If Dia = "6" Then
CAIXA_DIA_SEMANA = "SEXTA FEIRA"
End If

If Dia = "7" Then
CAIXA_DIA_SEMANA = "SÁBADO"
End If

End Sub

Responder
1 Reply
Anderson
Posts: 188
Registered
(@anderson)
Estimable Member
Entrou: 2 anos atrás

Basta tirar as aspas dos números.

 

Quanto à data invertida, assista a este vídeo:

https://youtu.be/19Mylyd785I

 

 

Responder