2 Kritere Göre Veri Almak

[1Al2Ver]

Merhaba,

Açılır Kutudan seçilen isime göre, diğer sayfaya veri almak istiyorum,

Teşekkür ederim.

 

[Korhan Ayhan]

H4 hücresine aşağıdaki dizi formülünü uygulayıp deneyiniz.

=EĞERHATA(İNDİS(PERİYOD!$A$1:$R$26;KÜÇÜK(EĞER(PERİYOD!$B$1:$R$26=$D$1;EĞER(KAYDIR(PERİYOD!$A$1;;KAÇINCI($G4;PERİYOD!$A$1:$R$1;0)-1;26)<>"";SATIR(PERİYOD!$B$1:$B$26)));SÜTUNSAY($H4:H4));KAÇINCI($G4;PERİYOD!$A$1:$R$1;0));"")

 

[Emir Hüseyin Çoban]

. . .

Alternatif.

Sub kod()
    Application.ScreenUpdating = False

    Dim SP     As Worksheet
    Dim SA     As Worksheet
    Dim i      As Integer
    Dim a      As Byte
    Dim süt    As Byte

    Set SP = Sheets("PERİYOD")
    Set SA = Sheets("ARA")

    SA.Range("H4:T17").ClearContents

    For i = 2 To SP.[B65536].End(3).Row
        If SP.Cells(i, "B") = SA.Range("D1") Then
            For a = 5 To 18
                If SP.Cells(i, a) <> "" Then
                    süt = _
                            WorksheetFunction.CountA(SA.Range("H" & a - 1 & ":T" & a - 1)) + 8
                    SA.Cells(a - 1, süt) = SP.Cells(i, a)
                End If
            Next a
        End If
    Next i

    Application.ScreenUpdating = True
    MsgBox " B i t t i "
End Sub

. . .

 

[1Al2Ver]

Sayın Hüseyin Çoban merhaba,

Formül ve kod için çok çok teşekkür ederim.

Saygılarımla.

 

[1Al2Ver]

H4 hücresine aşağıdaki dizi formülünü uygulayıp deneyiniz.

=EĞERHATA(İNDİS(PERİYOD!$A$1:$R$26;KÜÇÜK(EĞER(PERİYOD!$B$1:$R$26=$D$1;EĞER(KAYDIR(PERİYOD!$A$1;;KAÇINCI($G4;PERİYOD!$A$1:$R$1;0)-1;26)<>"";SATIR(PERİYOD!$B$1:$B$26)));SÜTUNSAY($H4:H4));KAÇINCI($G4;PERİYOD!$A$1:$R$1;0));"")

Sayın Korhan Ayhan, merhaba,

Yanılgım için özür dilerim, formülün size ait olduğunu gözden kaçırıp teşekkür edemedim, üstüne üstlük başka bir arkadaşa teşekkür etmişim, af edersiniz.

Yardımınız için teşekkür ederim, gecikme için de tekrar özür dilerim.

Saygılarımla.