Visual Basic - Error 1004 con Select Case

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 8
Ha aumentado su posición en 70 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Error 1004 con Select Case

Publicado por Ivana (3 intervenciones) el 28/06/2019 19:58:40
Bue día! Por favor, podrían ayudarme a ver dónde está el error en el siguiente código.
Primero explico lo que necesito lograr: Tengo dos hojas (formulario y Auxiliar), en la hoja Auxiliar dentro del la celda E2 va ir figurando 1 día de la semana (Lunes, Martes, Miércoles...). No es estático, va ir cambiando a medida que vaya completando el registro.
Necesito que detecte que día es y que ejecute una determinada macro. ósea, si dice Lunes que ejecute la "macro Lunes". Por ahora estoy probando hasta el Martes y me arroja el error 1004.
Utilice Selec Case porque son 5 las posibilidades, los cinco días hábiles de la semana.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Día()
Dim ValorCelda As String
Dim Lunes As String
Dim Martes As String
 
Worksheets("Auxiliar").Range(2, 5).Value = ValorCelda
 
Select Case ValorCelda
Case Is = Lunes
Call Módulo2.Lunes
 
Case Is = Martes
Call Módulo3.Martes
 
End Select
End Sub


No encuentro donde está el error. Por favor, podrían ayudarme? Gracias
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
Imágen de perfil de Andres Leonardo
Val: 3.755
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Error 1004 con Select Case

Publicado por Andres Leonardo (1456 intervenciones) el 28/06/2019 20:45:19
Para mi esta mal referenciado el rango

intenta asi....

1
Worksheets("HOJA1").Range("C2").Value = ValorCelda ' Donde C2 es tu celda 


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Día()
Dim ValorCelda As String
Dim Lunes As String
Dim Martes As String
 
Worksheets("HOJA1").Range("C2").Value = ValorCelda
 
Select Case ValorCelda
Case Is = Lunes
Call Módulo2.Lunes
 
Case Is = Martes
Call Módulo3.Martes
 
End Select
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil
Val: 8
Ha aumentado su posición en 70 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Error 1004 con Select Case

Publicado por Ivana (3 intervenciones) el 28/06/2019 23:05:03
Andres Leonardo: Muchas gracias por su aporte, ese era el error!
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
Revisar política de publicidad