2 Hücre Aralığının Eşitliğini Karşılaştırma

[bichet]

Merhaba,

Dim range1 As Range
Dim range2 As Range

Set range1 = Range("D47")
Set range2 = Range("E4:E7")

Yukarıdaki gibi bir veri aralığım olduğunu düşünelim. Normalde her hücreyi "cells(i,4).value = cells(i,5).value" olarak karşılaştıracak bir for döngüsü yazmak mümkün. Döngü yazmadan aralıklar direk kontrol edilebilir mi?

Not: Microsoft'ta şöyle bir kod satırı buldum ama çalışmadı.

Set Range1 = Range("D47")
Set Range2 = Range("E4:E7")

If Range1.IsEqual(Range:=Range2) = True Then
MsgBox ("esit")
Else
MsgBox ("esit değil")
End If

 

[Necdet]

Merhaba,

iki range teki satır ve sütun aralıklarının eşitliğinden mi yoksa hücre değerlerinin eşitliğinden mi sözediyorsunuz.

örneğin iki Range olsun
1. Range("A1:B10") --> 10 satır 2 sütun
2. Range("F2:G11") --> 10 satır ve 2 sütun

bu iki değer sizce eşit mi? yoksa ikisi de 1. satırdan başlayıp 10 satır olsaydı mı eşit olacaktı?

 

[Merhum İdris SERDAR]

.

Böyle bir şey olabilir.

Sub test()

If esitmi("D4:D7", "E4:E7") = True Then
MsgBox ("EŞİT")
Else
MsgBox ("EŞİT DEĞİL")

End If

End Sub

Public Function esitmi(aln1 As String, aln2 As String) As Boolean

esitmi = Evaluate("=SumProduct(--(" & aln1 & "=" & aln2 & "))=Counta(" & aln1 & ")")

End Function

.