• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Teklif programında ürünleri genişletme

merhabalar,
Bu konuda en az senin kadar yeniyim. Bu yüzden eğer hatalı bilgi verirsem özür dilerim. ustalarımızın affına sıgınarak onlardan düzeltmelerini bekleriz. ama bence
eğer kod bölümü açık ise "alt+f11" tüşlayarak kod bölümünü açtıktan sonra With KAYIT_FORMU.ListBox1
.BackColor = vbYellow
.ColumnCount = 9
.ColumnWidths = "100;100;100;100;100;100;100;120;100"
.ForeColor = vbRed
If Sheets("VERİ").Range("A2") = Empty Then
.RowSource = Empty
Else
.RowSource = "VERİ!B2:J" & [VERİ!A65536].End(3).Row
End If
'a benzer kodlar olacaktır. buradan 100-200 gibi sayılarla oynarsanırz biraz ugrastıktan sonra sanırım istediginiz şekle getirebilirsiniz.
 
yardımcı olabildigim ilk kişi olma serefine nail oldun :P
 
Geri
Üst