Jump to content
Sign in to follow this  
Da Biig

Ejecutar varias macros desde el mismo shorcut

Recommended Posts

Buenas tardes.

Necesito ejecutar una macro que lo que haga es pintar una celda de color amarillo con una macro asignada al shortcut "Ctrl + S2" y que posteriormente al volver a presionar el shortcut la pinte de verde y posterior mente de azul pero cada acción se active presionando el mismo shotcut.

 

Este es mi código:

Sub Amarillo()
'
' Amarillo Macro
'

'
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

__________________________________________________________________
Sub Verde()
'
' Verde Macro
'

'
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 5287936
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

____________________________________________________________________
Sub Azul()
'
' Azul Macro
'

'
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub
 

 

Colores.xlsm

Share this post


Link to post
Share on other sites

no descargué tu archivo, pero por las macros expuestas, prueba a modificar a un solo procedimiento (único atajo de teclado) +/- como el siguiente:

Sub alternaColor()
  Din colorNuevo As Long
  With ActiveCell.Interior
    Select Case .Color
      Case 65535: colorNuevo = 5287936
      Case 5287936: colorNuevo = 12419407
      Case Else: colorNuevo = 65535
    End Select
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .Color = colorNuevo
    .TintAndShade = 0
    .PatternTintAndShade = 0
  End With
End Sub

saludos,
hector.

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  

×
×
  • Create New...

Important Information

Privacy Policy

Ayuda Excel - Madrid, Madrid, ES - Valorada por 6254 personas - Aprender Excel - Total: 4.7 / 5