Jump to content
Sign in to follow this  
howling

evento Worksheet_Change

Recommended Posts

buenas noches necesito un poco de orientación con respecto al evento Worksheet_Change

la pregunta es la siguiente: ¿como puedo indicar varios rangos de celdas en este evento?

esta es la macro que tengo

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("S14:AW14", "S18:AW20")) Is Nothing Then
   On Error GoTo Salida
Select Case Target
         " aqui esta el codigo que utilizo"
   Case Else: GoTo Salida
End Select
Exit Sub

End Sub

con estos rangos me funciona sin problemas pero al agregarle mas rangos de la misma forma me lleva a un error

espero haber sido claro en mi explicación y de ante mano gracias por la ayuda

Share this post


Link to post
Share on other sites

gracias antoni por tu pronta respuesta y tu tiempo ya lo intente con tu repuesta y funciono hasta que me aparece el error

dejo la macro completa para que me ayuden por favor

If Not Application.Intersect(Target, Range("S14:AW14,S18:AW20,S25:AW32")) Is Nothing Then
   On Error GoTo Salida
Select Case Target
   Case "N":  Target.Font.Color = vbBlack: Target.Interior.Color = vbBlue
   Case "DA": Target.Font.Color = vbRed:   Target.Interior.Color = vbYellow
   Case "LC": Target.Font.Color = vbRed:   Target.Interior.Color = vbYellow
   Case "V":   Target.Interior.Color = vbCyan    
   Case "L":   Target.Font.Color = vbRed 
   Case "DL":   Target.Font.Color = vbRed 
   Case "S":   Target.Font.Color = vbRed
   'Case "LC":   Target.Font.Color = vbRed
   Case Else: GoTo Salida
End Select
Exit Sub

Salida:
   Target.Font.ColorIndex = xlAutomatic
   Target.Interior.ColorIndex = xlNone
End If

 

gracias por la ayuda de antemano

Share this post


Link to post
Share on other sites

gracias por la pronta respuesta ya arregle el problema pero es bastante raro ya que la macro, la utilizaba en un archivo de prueba y ahí me daba error y cuando lo use en el archivo final me resulto sin problemas gracias antoni por tu tiempo y espero que nos sigas guiando con las macros gracia

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 5112 personas - Aprender Excel - Total: 4.7 / 5