Teklif programında ürünleri genişletme

Katılım
5 Aralık 2008
Mesajlar
73
Excel Vers. ve Dili
Türkçe.
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.
 
Katılım
12 Nisan 2009
Mesajlar
5
Excel Vers. ve Dili
ms 2007
faksu ARKADAŞIM TEŞEKKÜR EDERİM OLDU DEDİĞİN GİBİ ;)
 
Katılım
5 Aralık 2008
Mesajlar
73
Excel Vers. ve Dili
Türkçe.
yardımcı olabildigim ilk kişi olma serefine nail oldun :p
 
Üst