range uguali

[cd7019]

Ciao,
secondo Voi c'è un modo veloce per paragonare due intervalli senza usare un for next?

ad esempio con 1 cella si avrebbe:
if cells(1,1)=cells(2,1) then ... >>> funziona

invece con + celle non funziona:
if range(cells(1,1),cells(1,10)) = range(cells(2,1),cells(2,10)) then ...

Grazie.

[Anthony47]

Per esempio:

Codice: Seleziona tutto

If (Evaluate("sum(--(F9:H22=K9:M22))") = Range("F9:H22").Count) then
    'codice se sono UGUALI
Else
    'Codice se sono DIVERSI
End If


Questo confronta, ovviamente, F9:H22 con K9:M22

Ciao

[cd7019]

grazie.

[scossa]

Per esempio:

Codice: Seleziona tutto

If (Evaluate("sum(--(F9:H22=K9:M22))") = Range("F9:H22").Count) then
    'codice se sono UGUALI
Else
    'Codice se sono DIVERSI
End If


Questo confronta, ovviamente, F9:H22 con K9:M22

Ciao

O, più semplicemente, se non si vuole distinzione tra maiuscole e minuscole:

Codice: Seleziona tutto

Public Sub prova()
  If Evaluate("AND(F9:H22=K9:M22)") Then
      'codice se sono UGUALI, p.e:
      MsgBox "uguali"
  Else
      'Codice se sono DIVERSI, p.e.:
      MsgBox "non uguali"
  End If
End Sub


Se invece si vuole distinguere tra maiuscole e minuscole:

Codice: Seleziona tutto

Public Sub prova2()
  If Evaluate("AND(EXACT(F9:H22,K9:M22))") Then
      'codice se sono IDENTICI, p.e:
      MsgBox "IDENTICI"
  Else
      'Codice se sono DIVERSI, p.e.:
      MsgBox "NON identici"
  End If
End Sub