Mensajes

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


Buenas noches a Tod@s.

Soy nuevo en el Foro, gracias por recibirme en esta preciada comunidad virtual.

Solicito su valiosa ayuda en lo siguiente: Estoy haciendo un programa en Visual Basic y en el formulario 1 inserte varios OptioButton para programar opciones de elegir "SI" o "NO". Sin embargo, al colocar varios pares de OptionButton al marcar los segundos se me desmarcan los primeros. En una oportunidad resolví este problema pero tenia tiempo sin programar y ahora mismo no recuerdo cómo hacerlo.

Agradezco las orientaciones que me puedan ofrecer.

Gracias de antemano.

jguedez99