Argomento Target

Hai un problema con Excel?

Nuova discussione

Argomento Target
di rafdepet data: 20/01/2015 12:44:40
Salve ragazzi,

in base al codice che posterò, vorrei evitare di ripetere per 3 celle la stessa operazione.
Praticamente dovrei evidenziare le 4 celle e agire sul font. Come potrei fare?

ovviamente ho provato con:
Target.Offset(Target.Cells, Target.Offset(0, 4)).Font.ColorIndex = 16
Target.Offset(Target.Cells, Target.Offset(0, 4)).Font.ColorIndex = xlAutomatic

ma non va

Grazie per l'aiuto

Raf

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo errore
If Intersect([a4:a250], Target) Is Nothing Then Exit Sub
If Target.Value > 0 Then
Target.Offset(0, 1).Font.ColorIndex = xlAutomatic
Target.Offset(0, 2).Font.ColorIndex = xlAutomatic
Target.Offset(0, 3).Font.ColorIndex = xlAutomatic
Target.Offset(0, 4).Font.ColorIndex = xlAutomatic
Else
errore:
Target.Offset(0, 1).Font.ColorIndex = 16
Target.Offset(0, 2).Font.ColorIndex = 16
Target.Offset(0, 3).Font.ColorIndex = 16
Target.Offset(0, 4).Font.ColorIndex = 16
End If

End Sub

di Mister_x (utente non iscritto) data: 20/01/2015 13:09:54
ciao

penso che tu voglia intendere questo

ciao

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, Range("A4:A250")) Is Nothing Then Exit Sub
  If Target.Value > 0 Then
    Range(Cells(Target.Row, 2), Cells(Target.Row, 5)).Font.ColorIndex = xlAutomatic
  Else
    Range(Cells(Target.Row, 2), Cells(Target.Row, 5)).Font.ColorIndex = 16
  End If
End Sub

Argomento Target
di rafdepet data: 20/01/2015 20:38:19
Grazie Mister_x

l'unica cosa ho dovuto lasciare il goto errore in quanto al momento della cancellazione di un gruppo di range (va in errore) e il resume next non fa più funzionare la macro.

Grazie, tutto risolto
Raf

Vuoi Approfondire?