Bayi Sorgulama

[puslukurt]

arkadaşlar ekde göndermiş olduğum dosyada bayileri illere göre makro ile sorglatmak istiyorum. detaylı açıklamayı dosya içerisinde bulabilirsiniz. şimdiden teşekkürle.

 

[Recep İpek]

Aşağıdaki kodları kullanabilirsiniz.

Private Sub CommandButton1_Click()
Set s1 = Sheets("veri")
Set s2 = Sheets("rapor")
s2.Range("a2:h100").ClearContents
For i = 9 To 90 ' İl Sayısı Kadar Düzeltiniz.
    If s1.Cells(1, i).Value = [c13] Then
       For j = 2 To 11  ' Bayi Sayısı Kadar Düzeltiniz.
            If s1.Cells(j, i).Value = "X" Then
            sat = s2.[a65536].End(3).Row + 1
            s2.Cells(sat, "a").Value = sat - 1
            s2.Range(s2.Cells(sat, "b"), s2.Cells(sat, "h")).Value = Range(s1.Cells(j, "b"), s1.Cells(j, "h")).Value
            End If
        Next j
        Exit For
    End If
Next i
Set s1 = Nothing
Set s2 = Nothing
MsgBox "Bitti"
Sheets("rapor").Select
End Sub

 

[veyselemre]

Raporlama için alternatif,

 

[puslukurt]

Teşekkür

Arkadaşlar bu kadar olur yani ikisi de mükemmel olmuş hatta istediğimden fazlası olmuş sayın ripek ve veyselemreye çok teşekkür ederim. yanlız beni zor durumda bıraktınız hangisini kullanacağıma karar vermek çok zor.

 

[Recep İpek]

... yanlız beni zor durumda bıraktınız hangisini kullanacağıma karar vermek çok zor.

Bence Sn.veyselemre'nin yaptığı uygulamayı kullanın.

Onunki bu iş için en uygun olanı.Ayrıca bu gibi örnek kodları bizlere tanıttığı
için kendisine teşekkür ederim.

 

[veyselemre]

Bence Sn.veyselemre'nin yaptığı uygulamayı kullanın.

Onunki bu iş için en uygun olanı.Ayrıca bu gibi örnek kodları bizlere tanıttığı
için kendisine teşekkür ederim.

@ripek ben de size teşekkür ederim. Benim yaptığım çalışmada direkt olarak hızlı bir şekilde sorgulama yapılır. Burda asıl önemli olan soruyu soranın hangi kodları daha kolay anlıyorsa onu kullanmasıdır. Çünkü bir sorun çıktığı zaman müdahele etmesi veya ufak tefek değişiklikleri kendisi yapması lazım, öğrenmek için asıl olan budur bence. Bu çalışmada benim yazdığım kodları kullanmak o kadar gerekli değil, ben sadece forumda örnek olsun diye yazıyorum. Yoksa sizin yazdığınız kodlar bu çalışma için daha kullanışlı ve anlaşılır:hey:.