elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Rompecabezas de Bitcoin, Medio millón USD en premios


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  En el método range de objeto_worksheet
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: En el método range de objeto_worksheet  (Leído 2,437 veces)
jguedez99

Desconectado Desconectado

Mensajes: 2


Ver Perfil
En el método range de objeto_worksheet
« en: 1 Noviembre 2013, 02:42 am »

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
  1. Private Sub Escribe_DiaSem() ' Coloca el Nombre del Día de la Semana de la Fecha de Ocurrencia
  2. Dim fecha As Date
  3. Dim Nombre_dia As String
  4. Dim Variable As Integer
  5. fecha = Me.ComboBox108.Text & "/" & Me.ComboBox107.Text & "/" & Me.ComboBox109.Text
  6. Variable = Weekday(fecha)
  7. Select Case Variable
  8. Case 1
  9. Nombre_dia = "DOMINGO"
  10. Label257.Caption = Nombre_dia
  11. Celda = "F" & Fila
  12. Hoja3.Range(Celda).Value = Nombre_dia
  13. Case 2
  14. Nombre_dia = "LUNES"
  15. Label257.Caption = Nombre_dia
  16. Celda = "F" & Fila
  17. Hoja3.Range(Celda).Value = Nombre_dia
  18. Case 3
  19. Nombre_dia = "MARTES"
  20. Label257.Caption = Nombre_dia
  21. Celda = "F" & Fila
  22. Hoja3.Range(Celda).Value = Nombre_dia
  23. Case 4
  24. Nombre_dia = "MIERCOLES"
  25. Label257.Caption = Nombre_dia
  26. Celda = "F" & Fila
  27. Hoja3.Range(Celda).Value = Nombre_dia
  28. Case 5
  29. Nombre_dia = "JUEVES"
  30. Label257.Caption = Nombre_dia
  31. Celda = "F" & Fila
  32. Hoja3.Range(Celda).Value = Nombre_dia
  33. Case 6
  34. Nombre_dia = "VIERNES"
  35. Label257.Caption = Nombre_dia
  36. Celda = "F" & Fila
  37. Hoja3.Range(Celda).Value = Nombre_dia
  38. Case 7
  39. Nombre_dia = "SABADO"
  40. Label257.Caption = Nombre_dia
  41. Celda = "F" & Fila
  42. Hoja3.Range(Celda).Value = Nombre_dia
  43. End Select
  44. End Sub
  45.  


« Última modificación: 1 Noviembre 2013, 17:33 pm por raul338 » En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
ayuda tmpgenc (source range)
Multimedia
petar221 3 2,106 Último mensaje 10 Septiembre 2004, 23:39 pm
por Songoku
[python] ayuda con range [Solucionado]
Scripting
circust 2 4,502 Último mensaje 25 Enero 2011, 00:24 am
por circust
out of range fuera de rango
Hardware
Rinformatic 2 7,410 Último mensaje 6 Abril 2011, 12:51 pm
por el-brujo
[Python] duda con range()
Scripting
flacc 2 2,307 Último mensaje 25 Diciembre 2012, 15:29 pm
por flacc
Problema con GetElementById en un boton tipo range. « 1 2 »
Desarrollo Web
Ori-chan 11 5,370 Último mensaje 7 Junio 2014, 19:38 pm
por JorgeEMX
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines