seri numarasına göre çoklu sorgulama yapma

[hassas]

Arkadaşlar iyi günler;
ek'e koyduğum dosya içerisinde gerekli açıklamayı yaptım yardımcı olabilirseniz sevinirim.
İyi çalışmalar diler işlerinizde kolaylıklar dilerim.

 

[aliveli06]

bu şekilde olabilirmi

 

[hassas]

Sayın aliveli06 emeğiniz için teşekkür ederim;
Fakat benim istediğim aynı sayfa içinde ve başındaki sıfırları kaldırmadan sorgulama yapılmasıdır.

 

[YUSUF44]

Aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırıp dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [G3]) Is Nothing Then Exit Sub
If Target = "" Then
    [H3] = ""
    [I3] = ""
Else

For seri = Cells(Rows.Count, 3).End(3).Row To 2 Step -1
    If Cells(seri, 3) = Target Then
        For kod = seri To 2 Step -1
            If Cells(kod, 2) <> "" Then
            [H3] = Cells(kod, 2)
            kod = 2
            End If
        Next
        For sehir = seri To 2 Step -1
            If Cells(sehir, 1) <> "" Then
            [I3] = Cells(sehir, 1)
            sehir = 2
            End If
        Next
    End If
Next
End If
End Sub

Eğer makroyla değil fonksiyonla çözmek isterseniz şehir ve kod bölümünde birleştirme yapmadan her satırda şehir ve kod belirtirseniz daha kolay çözüm bulunur.

 

[hassas]

Sayın yusuf bey bey kodu uygulayamadım ;uygulayıp göndermeniz mümkünmüdür acaba;
iyi çalışmalar.

 

[YUSUF44]

Kodları kopyalayın
Excel dosyanızda sayfa isminin olduğu sekmeye sağ tıklayıp "Kod Görüntüle"yi seçin
Kopyalamış olduğunuz kodları çıkan sayfaya yapıştırın
Sayfada G3 hücresinde seri numarası değiştirerek deneme yapın

 

[tahsinanarat]

Sn. YUSUF44, örnek dosyadaki sayıların önünde bir boşluk var ondan sonra sayılar başlıyor, bence sıkıntı ordan kaynaklanıyor, bilgilerinize.

 

[YUSUF44]

Benim kodlarımda herhangi bir sıkıntı göremiyorum. Denemelerimde hep doğru sonuç verdi.

 

[YUSUF44]

Yoksa YOK yazması için kodları değiştirdim:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [G3]) Is Nothing Then Exit Sub
If Target = "" Then
    [H3] = ""
    [I3] = ""
Else
son = Cells(Rows.Count, 3).End(3).Row
If WorksheetFunction.CountIf(Range(Cells(son, 3), Cells(2, 3)), Target) = 0 Then
[H3] = "YOK"
[I3] = "YOK"
Else
For seri = son To 2 Step -1
    If Cells(seri, 3) = Target Then
        For kod = seri To 2 Step -1
            If Cells(kod, 2) <> "" Then
            [H3] = Cells(kod, 2)
            kod = 2
            End If
        Next
        For sehir = seri To 2 Step -1
            If Cells(sehir, 1) <> "" Then
            [I3] = Cells(sehir, 1)
            sehir = 2
            End If
        Next
    End If
Next
End If
End If
End Sub

 

[hassas]

Sayın yusuf bey çok teşekkür ederim emeğine sağlık ;ALLAH 'cc'' tTüm işlerinde muvaffak kılsın.
iyi akşamlar dilerim.