3 hücre diğer 3 hücreye eşitse kopyala.!!!

[sinan05]

İyi günler. Bir konuda yardımınızı rica edebilirmiyim. x ile s1 sayfasını y ile de s2 sayfasının dolu olan hücrelerinde döngü yaptırıyorum. Yapmak istediğim s1 sayfasındaki b.c.d hücreleri, s2 sayfasındaki b,c,d hücrelerine eşitse I hücresini kopyalasın.
"If S1.Cells(y, "B") = S2.Cells(x, "B") Then"
"S2.Range("I" & x).Copy S1.Range("E" & y)" Bu kodlarla B hücreleri eşitse "I" hücresini kopyalatıyorum. Fakat aynı anda yukarıda bahsettiğim eğer 3 hücre bir birine eşitse "I" hücresini kopyalasın kodunu yazamıyorum. Tek bir koşulda 3 hücre birbirine eşitse ifadesi yazılabilir mi? Yoksa tek tek 3 tane koşul mu yazmam gerekiyor.

 

[mersilen]

If S1.Cells(y, "B") = S2.Cells(x, "B") And _
S1.Cells(y, "c") = S2.Cells(x, "c") And _
S1.Cells(y, "d") = S2.Cells(x, "d") Then
S2.Range("I" & x).Copy S1.Range("E" & y)
End If

 

[Trilenium]

SonSat = Range("B" & Rows.Count).End(xlUp).Row


For i = 1 To i
If Sheets("Sheet1").Range("B" & i) = Sheets("Sheet2").Range("B" & i) And Sheets("Sheet1").Range("c" & i) = Sheets("Sheet2").Range("c" & i) And Sheets("Sheet1").Range("c" & i) = Sheets("Sheet2").Range("c" & i) Then
Sheets("Sheet2").Range("I" & i) = Sheets("Sheet1").Range("I" & i)
End If
Next i

 

[sinan05]

TEŞEKKÜLER Sayın, Mersilen ve Trilenium. İlk seçenek benim yaptığımla aynı ve benim makroya daha uygun. Tekrar sağolun.