Se ha producido el error "1004" en tiempo de ejecución:
Error en el método Range de Objeto_Worksheet
Código
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