User Form Makro ekleme hk.

[mhrcvk]

Arkadaşlar Merhaba,

Ekte paylaştığım tabloda userform ile sadece görselini oluştura bildiğim bir form mevcut fakat listede bulunan alanları makro yardımı ile forma ekleyemiyorum yardımcı olabilir misiniz ?

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Private Sub UserForm_Initialize()

    Dim S1 As Worksheet, son As Long, sut1(), sut2 As Byte
    
    Set S1 = Sheets("Sayfa1")
    son = S1.Cells(Rows.Count, "A").End(xlUp).Row
    
    sut1 = Array(2, 1, 3, 4, 5, 6) 'listboxların sütuna göre dağılımı

    sut2 = 1
    For i = 0 To UBound(sut1)
        With Controls("ListBox" & sut1(i))
            .RowSource = ""
            If son > 1 Then
                .RowSource = S1.Cells(2, sut2).Resize(son, _
                    1).Address(external:=True) 
            End If
        End With
        sut2 = sut2 + 1
    Next i
    
End Sub

.

 

[mhrcvk]

Merhaba,

Bu şekilde deneyin.

Private Sub UserForm_Initialize()

    Dim S1 As Worksheet, son As Long, sut1(), sut2 As Byte
    
    Set S1 = Sheets("Sayfa1")
    son = S1.Cells(Rows.Count, "A").End(xlUp).Row
    
    sut1 = Array(2, 1, 3, 4, 5, 6) 'listboxların sütuna göre dağılımı

    sut2 = 1
    For i = 0 To UBound(sut1)
        With Controls("ListBox" & sut1(i))
            .RowSource = ""
            If son > 1 Then
                .RowSource = S1.Cells(2, sut2).Resize(son, _
                    1).Address(external:=True) 
            End If
        End With
        sut2 = sut2 + 1
    Next i
    
End Sub

.

Ömer bey,

Bu durumda ilgili alanları olduğu gibi direk olarak listbolara getiriyor fakat ben tek tek ilerlemesini istiyorum öncelikle dönemde seçim yapılacak sonra o dönem içerisinde var olan bölgeler gelecek bölgeden seçim yapıldıktan sonra o bölgenin altındaki ilçeler gelecek ilçe seçimi yapıldığında da personeller ve işlem sayıları gelecek.

 

[mhrcvk]

Yardım edebilecek varmı ?

 

[systran]

formla uğraşmanıza gerek yok! Veri filtreleme, özet tablo ya da özet grafik işinizi çok rahat görmez mi?
çünkü seçtiğiniz bölgenin alt bölgeleri var ve bununda listboxa aktarılırken göz önünde bulundurulması gerekir.
örnek dosyayı inceleyiniz. özet grafik kullanıldı.