Visual Basic - En el método range de objeto_worksheet

Life is soft - evento anual de software empresarial
   
Vista:

En el método range de objeto_worksheet

Publicado por jguedez99 jguedez99@hotmail.com (2 intervenciones) el 01/11/2013 02:48:50
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

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

En el método range de objeto_worksheet

Publicado por leon_gitano dy_palomo@hotmail.com (2 intervenciones) el 02/11/2013 22:54:31
Celda = "F" & Fila
Hoja3.Range(Celda).Value = Nombre_dia

Estas usando la variable "Celda" para el método "range", sin embargo a "Celda" le esta asignando un valor que no existe, le estas asignado un celda de la columna "F" pero no estas proporcionando el numero de fila en la variable "Fila".
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar