Intersect: eseguire macro in relazione all'indirizzo target

[alfrimpa]

Ciao a tutti

Avrei bisogno di un piccolo aiuto.

Ho scritto la sottostante macro che dovrebbe far apparire un msgbox con "hello" se il target è incluso in A1:A10 e "ciao" se il target è in B1:B10.

Se il target appartiene all'intervallo A1:A10 tutto funziona regolarmente; se invece è in B1:B10 il codice va in debug con l'errore di run-time 91 "Variabile oggetto o variabile del blocco With non impostata". Dove sbaglio?

Tempo fa ero riuscito a farlo ma non ricordo assolutamente come

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("a1:a10","b1:b10"), Target) Is Nothing Then
    If Intersect(Range("a1:a10"), Target) Then
        MsgBox "hello"
        ElseIf Intersect(Range("b1:b10"), Target) Then
        MsgBox "ciao"
    End If
End If
End Sub


Grazie a chi vorrà rispondere.

[Anthony47]

Intersect restituisce un Range, la If richiede una Espressione...
Continua con If Intersect(...) Is Nothing e funzionera'; ad esempio:

Codice: Seleziona tutto

    If Intersect(Range("a1:a10"), Target) Is Nothing Then
            MsgBox "Ciao"
        ElseIf Intersect(Range("b1:b10"), Target) Is Nothing Then
            MsgBox "Hello"
    End If


Ciao

[alfrimpa]

Grazie mille Anthony.

Ma, solo a scopo didattico, ti chiedo: questo è l'unico modo per farlo?

[scossa]

Codice: Seleziona tutto

If Not Intersect(Range("a1:a10","b1:b10"), Target) Is Nothing Then


Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Range("a1:a10, b1:b10"), Target) Is Nothing Then
      If Intersect(Range("a1:a10"), Target) Is Nothing Then
          MsgBox "ciao"
      Else
          MsgBox "hello"
      End If
  End If
End Sub


[Anthony47]

Vedi il msg di scossa, sopra...

Non c'e' mai un' unica ricetta per la pasta al ragu'; ad esempio:

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("a1:b10"), Target) Is Nothing Then
    If Target.Column = 1 Then
        MsgBox ("Hello")
    Else
        MsgBox ("Ciao")
    End If
End If
End Sub


Ciao