Çoklu süz Aktar

[ADER_34]

Merhaba hayırlı geceler,ben örnek dosyamda "TRANSFER" sayfasında "O" ve "P" sütunununa girilen değerleri,"SİSTEM" Sayfasında "A ve "M" satırları arasında aktarmak istiyorum kolay gelsin teşekkürler..


http://s4.dosya.tc/server5/n0x5cv/COKLU_SUZ.xlsx.html

 

[askm]

Sub askm()
Dim s1, s2 As Worksheet
Set s1 = Sheets("SİSTEM")
Set s2 = Sheets("TRANSFER")
Dim SonSat1, SonSat2 As Long

SonSat1 = s1.Range("A" & Rows.Count).End(xlUp).Row
SonSat2 = s2.Range("O" & Rows.Count).End(xlUp).Row
a = 2
For i = 2 To SonSat2
    For x = 2 To SonSat1
        If s2.Cells(i, "O") = s1.Cells(x, "L") And s2.Cells(i, "P") = s1.Cells(x, "D") Then
            s1.Range("A" & x & ":M" & x).Copy s2.Cells(a, 1)
            a = a + 1
        End If
    Next x
Next i
MsgBox "İşlem tamam...", vbInformation, "ASKM"
End Sub

 

[ADER_34]

Merhaba sayın askım hızlı cevabınız için çok teşekkür ederim, kodlarınız tam istediğim gibi ilave olarak "P " sütunu boş olduğunda "O" sütununa değer girdiğimde de ve girilen değer tam olmasada 1 2 harf girilsede süzüp aktarım yapması
yani "O" Sütunu boş ise "P" Sütununda ki değeleri süz aktar şeklinde mümkün mü? teşekkürler..

 

[askm]

Belirttiğiniz işlem sadece bir satırlık işlemlerde olur. P ye değer girip girdikçe süzme işlemi yapar. Yalnız siz alt alta veri girmişsiniz. Bu şekilde işlem yapılmaz.

 

[ADER_34]

Merhaba sayın askım bazen sadece "O" sütununa göre değer süzmek istiyorum, bu kodlarla mümkün mü kolay gelsin teşekkürler,