Makro ile il ve bayi Sorgulama

[puslukurt]

arkadaşlar ekteki dosyada herşeyi anlattım ilgilenen arkadaşlara teşekkür ederim.

 

[puslukurt]

sorgu

arkadaşlar yardım edecek kimse yokmu kodlar zaten yazılı sadece yer değişecek

 

[puslukurt]

sorgu

arkadaşlar yardım edecek kimse yokmu kodlar zaten yazılı sadece yer değişecek

lütfen yardım

 

[Recep İpek]

Merhaba,

Dosyanız ektedir.

 

[puslukurt]

Sayın Recep bey
Öncelikle ilgi ve alakanıza teşekkür eder konuyu size biraz yanlış anlatmamdan dolayı özürdilerim. tekrar düzelterek anlatayım. giriş,veri ve rapor isimli 3 sayfam var. öncelikle veri sayfasına bayinin adını ilini ilçesini adresini kayıt edip bayinin satış yapacağı illeri I sutunundan başlayıp CK sutununda belirtilen iller var Adana - Düzce arası 81 il var kayıt ettiğim bayi hangi ilde satış yapacaksa örneğin afyon ve konya illerine gelen hücreye X işaretliyorum.
Daha sonra giriş sayfasında b5 hücresine herhangi bir il yazıp "İl Sorgula" dediğimde rapor sayfasına sorgulanmasını istediğim ilde satış yapacak bayiler geliyor. Şimdi asıl benim istediğim olay geliyor. B8 hücresine herhangi bir bayinin adını yazdığımda o bayinin satış yapacağı illerin gelmesini istiyorum. I:CK sutunlarına X işareti ile işaretlediğim bayiler yani. size bir örnek vereyim

Ali Özel diye bir bayi kaydedelim ve bu müşterimiz Adana Afyon ve konya İllerinde satış yapabilmesi için ADANA ili için I13 hücresine X, AFYON ili için K13 hücresine X, Konya İli için AX13 hücresine X işareti koyduktan sonra kaydedelim ve giriş sayfasının B8 hücresine Ali Özel yazıp bayi sorgula dediğimde rapor sayfasına B4 hücresinden itibaren Adana Afyon Konya diye sıralanmasını istiyorum.

 

[Recep İpek]

Aşağıdaki kodları deneyiniz.

İstediğiniz sanırım bu.Öncekinde sağdaki X'leri görmemişim.

Sub MURAT2()
Set s1 = Sheets("veri")
Set s2 = Sheets("rapor")
s2.Range("a4:h1000").ClearContents
For i = 2 To s1.[b65536].End(3).Row
    If s1.Cells(i, "b").Value = Sheets("giriş").[B8] Then
       For j = 9 To 90 ' İl Sayısı Kadar Düzeltiniz.
            If s1.Cells(i, j).Value = "X" Then
                sat = s2.[b65536].End(3).Row + 1
                s2.Cells(sat, "a").Value = sat - 3
                s2.Cells(sat, "b").Value = s1.Cells(1, j).Value
            End If
        Next j
    End If
Next i
Set s1 = Nothing
Set s2 = Nothing
MsgBox "BAYİLER HAZIR ", , "Murat BOZKURT"
Sheets("rapor").Select
Range("a1").Select
End Sub