- Katılım
- 20 Nisan 2005
- Mesajlar
- 189
merhaba kolay gelsin ben sayfa -2 den b ve c sütunlarında sayfa-1 deki a ve b sütunalarına göre sayfa 1 e veri alıyorum örneğin sayfa 1 de hücrede hasanali bitişik yazılmış sayfa -2 hasan ali ayrı yazıldığı için görmüyor ben aşağıdaki formülü kullanıyorum sorum bu şekilde ayrı olsada bilgileri alabilirmiyiz
Sub AKTAR()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
SON1 = s1.[a65536].End(3).Row
son2 = s2.[a65536].End(3).Row
Range("E2:CS" & SON1).ClearContents
For X = 2 To SON1
For Y = 2 To son2
If s1.Cells(X, 1) = s2.Cells(Y, 2) And s1.Cells(X, 2) = s2.Cells(Y, 3) Then
s1.Range(s1.Cells(X, "E"), s1.Cells(X, "CS")).Value = s2.Range(s2.Cells(Y, "A"), s2.Cells(Y, "CQ")).Value
Exit For
End If
Next Y
Next X
End Sub
Sub AKTAR()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
SON1 = s1.[a65536].End(3).Row
son2 = s2.[a65536].End(3).Row
Range("E2:CS" & SON1).ClearContents
For X = 2 To SON1
For Y = 2 To son2
If s1.Cells(X, 1) = s2.Cells(Y, 2) And s1.Cells(X, 2) = s2.Cells(Y, 3) Then
s1.Range(s1.Cells(X, "E"), s1.Cells(X, "CS")).Value = s2.Range(s2.Cells(Y, "A"), s2.Cells(Y, "CQ")).Value
Exit For
End If
Next Y
Next X
End Sub