3 kritere göre bul satırı ana sayfaya eşleyerek yapıştır

[snx111]

veri ve ana adında 2 sayfam var

h6 j6 z6 daki veriler combo olarak veri sayfasında ; aranacak ;
h6 yı veri sayfasının c stununda;
j6 yı veri sayfasının e stununda ;
z6 yı veri sayfasının a stununda arayacak

bu 3 aranacak veri , veri sayfasının hangi satırında 3 çünü bulursa o satırı kopyalayacak; ana sayfaya 6 cı satıra af6 ya yapıştıracak;
işlem ana sayfadaki satırın sonuna gelene kadar devam edip bitecek

 

[snx111]

dosya ektedir

dosyam ektedir

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Kod 2007 ve üzeri versiyonlar için hazırlanmıştır. Daha önceki versiyonlarda kullanmak isteyen arkadaşlarımız kod içindeki 1048576 değerini 65536 olarak değiştirmek zorundadırlar.

Option Explicit
 
Sub ÜÇ_KRİTERE_GÖRE_BUL_YAPIŞTIR()
    Dim X As Long, Satır As Long, Son_Satır As Long, Formül As String
 
    Application.ScreenUpdating = False
 
    Sheets("ana").Select
    Range("AF6:BI1048576").ClearContents
    Son_Satır = Sheets("veri").Range("A1048576").End(3).Row
 
    For X = 6 To Range("A1048576").End(3).Row
        If Cells(X, "A") <> "" Then
            Formül = "=SUMPRODUCT((veri!C2:C1048576=H" & X & ")*(veri!E2:E1048576=J" & X & ")*(veri!A2:A1048576=Z" & X & "),ROW(2:1048576))"
            Satır = Evaluate(Replace(Formül, 1048576, Son_Satır))
            If Satır > 0 Then Sheets("veri").Range("A" & Satır & ":AD" & Satır).Copy Cells(X, "AF")
        End If
    Next
 
    Application.ScreenUpdating = True
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[snx111]

3 tıklamada cevap vermedi 4 cüden sonra çalıştı ısınması gerekiyor demekki
korhan çok teşekkür ederim 1 ay ugraşşam bunu yapamazsım eline sağlık büyükbir ugraştan kurtuldum sayende gel bi sigara yak

 

[Korhan Ayhan]

Selamlar,

İlk tıkladığınızda kodun çalışması gerekiyordu. Mesajınızı okuyunca acaba kodda hatamı yaptım diye konrol ederken Son_Satır değişkenindeki değeri yanlış tanımladığımı farkettim. Üstteki mesajımı yeniden düzenledim. İncelermisiniz.

 

[snx111]

bunu 4 kriter için yapmak istesek ne yapmamız gerekir )?

 

[Korhan Ayhan]

Selamlar,

4. Kriteriniz nedir?

 

[snx111]

4 cü kriter lig olucak ama kelime olunca algılamadı formul ?????
Formül = "=SUMPRODUCT((veri!C2:C1048576=H" & X & ")*(veri!E2:E1048576=J" & X & ")*(veri!A2:A1048576=Z" & X & "),ROW(2:1048576))"

 

[Korhan Ayhan]

Selamlar,

LİG bilgisi "veri" isimli sayfadaki hangi sütun ile eşleşecek?