el mismo evento en diferentes rangos en un mismo worksheet_change
publicado
buenas noches vuelvo con una duda bastante loca en el evento worksheet_ change mi pregunta es la siguiente ¿es posible que un evento que un evento que esta en una hoja se ejecute en varios rangos de celdas?
mi evento empieza de esta forma:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("S14:AW14")) 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 Else: GoTo Salida
End Select
Exit Sub
Salida:
Target.Font.ColorIndex = xlAutomatic
Target.Interior.ColorIndex = xlNone 'color de relleno sin color
End If
End Sub
cuando intento colocarle varios rangos solo me deja hasta dos y del tercero en adelante me envia error
bueno espero que alguien me pueda ayudar o orientarme para resolver mi nuevo dilema de ante manos gracias
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
buenas noches vuelvo con una duda bastante loca en el evento worksheet_ change mi pregunta es la siguiente ¿es posible que un evento que un evento que esta en una hoja se ejecute en varios rangos de celdas?
mi evento empieza de esta forma:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("S14:AW14")) 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 Else: GoTo Salida
End Select
Exit Sub
Salida:
Target.Font.ColorIndex = xlAutomatic
Target.Interior.ColorIndex = xlNone 'color de relleno sin color
End If
End Sub
cuando intento colocarle varios rangos solo me deja hasta dos y del tercero en adelante me envia error
bueno espero que alguien me pueda ayudar o orientarme para resolver mi nuevo dilema de ante manos gracias