Formattazione condizionale

[stevemaster]

Ciao a tutti.
Avrei bisogno di creare una regola con la formattazione condizionale che mi permetta di colorare tutte le celle comprese tra due valori che voglio io.
Mi spiego con esempio

A B C D
1 | 0 | 0 | 0
0 | 0 | 0 | 0
0 | 0 | 1 | 0

Vorrei colorare tutte le celle comprese fra i due uno, quindi
A1,B1,C1,
A2,B2,C2
A3,B3,C3

Qualcuno sa aiutarmi?

[nicola75ss]

Ma all'interno del range saranno sempre solo due gli 1?
E' possibile che sulla stessa riga sia B che C ad esempio assumano valore 1?

[stevemaster]

E' solo un esempio eh XD
Serve per far capire che ci saranno due identificatori che indicano qual è la zona da racchiudere, che è una in tutto il foglio!

(in poche parole, devo formattare un rettangolo dentro a due caselle che devo cercare nel foglio)

[nicola75ss]

Verifica con calma che non mi sia sfuggito qualcosa visto che te l'ho scritta di getto.

Option Base 0
Option Explicit

Sub seleziona()
On Error Resume Next
Dim i As Integer
Dim cella As Range
Dim limiti() As Variant
Dim selezione As Range
Dim identificatore As String
ActiveSheet.Cells.ClearFormats
i = 0

Set selezione = Application.InputBox(Prompt:="Seleziona intervallo", Title:="Mio range", Type:=8)

If (selezione Is Nothing) = False Then
    identificatore = Application.InputBox(Prompt:="Inserisci delimitatoree", Title:="Identificatore", Type:=2)
        For Each cella In selezione
             If i <= 1 Then
                If cella.Value = identificatore Then
                ReDim Preserve limiti(0 To i)
                limiti(i) = cella.Address
                i = i + 1
            End If
            Else
                Exit For
            End If
        Next cella
End If
ActiveSheet.Range(limiti(0) & ":" & limiti(1)).Interior.ColorIndex = 4
End Sub

[stevemaster]

Semplicemente perfetto.
Non so davvero come ringraziarti!