En el método range de objeto_worksheet

[jguedez99]

Tengo una Rutina para colocar el día de la semana en una Etiqueta cuando se coloca una fecha en un trío de ComboBox (dia, mes y año). Al seleccionar el año me da el siguiente error:

Se ha producido el error "1004" en tiempo de ejecución:

Error en el método Range de Objeto_Worksheet

Código (vb) [Seleccionar] Expandir


Private Sub Escribe_DiaSem() ' Coloca el Nombre del Día de la Semana de la Fecha de Ocurrencia
Dim fecha As Date
Dim Nombre_dia As String
Dim Variable As Integer
fecha = Me.ComboBox108.Text & "/" & Me.ComboBox107.Text & "/" & Me.ComboBox109.Text
Variable = Weekday(fecha)
Select Case Variable
Case 1
Nombre_dia = "DOMINGO"
Label257.Caption = Nombre_dia
Celda = "F" & Fila
Hoja3.Range(Celda).Value = Nombre_dia
Case 2
Nombre_dia = "LUNES"
Label257.Caption = Nombre_dia
Celda = "F" & Fila
Hoja3.Range(Celda).Value = Nombre_dia
Case 3
Nombre_dia = "MARTES"
Label257.Caption = Nombre_dia
Celda = "F" & Fila
Hoja3.Range(Celda).Value = Nombre_dia
Case 4
Nombre_dia = "MIERCOLES"
Label257.Caption = Nombre_dia
Celda = "F" & Fila
Hoja3.Range(Celda).Value = Nombre_dia
Case 5
Nombre_dia = "JUEVES"
Label257.Caption = Nombre_dia
Celda = "F" & Fila
Hoja3.Range(Celda).Value = Nombre_dia
Case 6
Nombre_dia = "VIERNES"
Label257.Caption = Nombre_dia
Celda = "F" & Fila
Hoja3.Range(Celda).Value = Nombre_dia
Case 7
Nombre_dia = "SABADO"
Label257.Caption = Nombre_dia
Celda = "F" & Fila
Hoja3.Range(Celda).Value = Nombre_dia
End Select
End Sub