Birden Fazla Tabloda Düşeyara Yardım..

[OoParadiSeoO]

Arkadaşlar 3 farklı sayfada yer alan tablolarda aynı anda düşeyara nasıl yapabiliriz? Yani aranan değeri 3 farklı sayfadaki tablolarda arayacak. Yardımcı olabilirmisiniz?

 

[Mahir64]

Merhaba,
Kısa bir örnek, fikir verebilir.

=EĞERHATA(EĞERHATA(DÜŞEYARA(A1;Sayfa2!A:B;2;0);DÜŞEYARA(A1;Sayfa3!A:B;
2;0));DÜŞEYARA(A1;Sayfa4!A:B;2;0))

Sayfa2'de bulamazsa Sayfa3'de ikisinide bulamazsa sayfa4'de arayacak.

--

 

[OoParadiSeoO]

Çok teşekkürler. Eğer bulamazsa yok yerine 0 yazmasını nasıl sağlayabiliriz?

 

[Mahir64]

=[COLOR=Red]EĞERHATA([/COLOR]EĞERHATA(EĞERHATA(DÜŞEYARA(A1;Sayfa2!A:B;2;0);DÜŞEYARA(A1;
Sayfa3!A:B;2;0));DÜŞEYARA(A1;Sayfa4!A:B;2;0))[COLOR=Red];0[/COLOR])

--

 

[OoParadiSeoO]

Çok tşekkür ederim. Bu işlemin aynısını makro ile yapmaya çalışırsak çokmu fazla kod yazmak gerekir? Eğer basit ise makro ile çözümünü paylaşabilirmisiniz?

 

[Emir Hüseyin Çoban]

. . .

Sub KOD()
[COLOR="Green"]'=EĞERHATA(EĞERHATA(DÜŞEYARA(A1;Sayfa2!A:B;2;0);DÜŞEYARA(A1;Sayfa3!A:B;2;0));DÜŞEYARA(A1;Sayfa4!A:B;2;0))[/COLOR]
    On Error Resume Next
    Application.ScreenUpdating = False

    Dim S2     As Worksheet
    Dim S3     As Worksheet
    Dim S4     As Worksheet
    Set S2 = Sheets("Sayfa2")
    Set S3 = Sheets("Sayfa3")
    Set S4 = Sheets("Sayfa4")

    For i = 1 To 5
        If WorksheetFunction.CountIf(S2.Range("A:A"), Cells(i, "A")) > 0 Then
            Cells(i, "B") = WorksheetFunction.VLookup(Cells(i, "A"), S2.Range("A:B"), 2, 0)
        Else
            If WorksheetFunction.CountIf(S3.Range("A:A"), Cells(i, "A")) > 0 Then
                Cells(i, "B") = WorksheetFunction.VLookup(Cells(i, "A"), S3.Range("A:B"), 2, 0)
            Else
                If WorksheetFunction.CountIf(S4.Range("A:A"), Cells(i, "A")) > 0 Then
                    Cells(i, "B") = WorksheetFunction.VLookup(Cells(i, "A"), S4.Range("A:B"), 2, 0)
                Else
                    Cells(i, "B") = "0"
                End If
            End If
        End If
    Next i

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

. . .

 

[OoParadiSeoO]

teşekkürler emeğinize sağlıkk..