Ejecutar macro desde lista desplegable con texto
Tengo la siguiente macro que funciona bien
Sub Listadesplegable()
Dim intCaseSel As Integer
intCaseSel = Sheets("Hoja1").Cells(2, "a").Value
Select Case intCaseSel
Case 1: Call Macro3
Case 2: Call Macro4
Case 3: Call Macro5
Case 4: Call Macro6
Case 5: Call Macro7
Case 6: Call Macro8
Case 7: Call Macro9
End Select
End Sub
Pero yo necesitaría que en vez de que en la celda A2 hubiese que elegir un numero de la lista desplegable funcionase también eligiendo texto.
Ej.: Case Lunes: Call Macro3
1 respuesta
Respuesta de Dante Amor
3
H ol a :
Te anexo la macro actualizada, funciona con número con el texto
Sub Listadesplegable()
'Act.Por.Dante Amor
Select Case UCase(Sheets("Hoja1").[A2])
Case 1, "LUNES": Call macro3
Case 2, "MARTES": Call macro4
Case 3, "MIERCOLES": Call macro5
Case 4, "JUEVES": Call macro6
Case 5, "VIERNES": Call macro7
Case 6, "SABADO": Call macro8
Case 7, "DOMINGO": Call macro9
End Select
End Sub
