Dershane Kayıt Form / program

[serul]

Arkadaşlar kuruma yeni kayıtlarımız başlamak üzere, otomasyon programımız çok çetrefilli ihtiyacımızı karşılamıyor. Ekte sayfalar üzerine açıklamalar yazmaya çalıştım. İlgilenebilir misiniz?

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[serul]

Arkadaşlar rar dosyası 7 kez indirilmiş olmasına karşın kimse birşey yazmadı. Fonksiyonlar yardımı ile bişeyler yapmaya çalıştım bi kontrol edermisiniz ?

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[Hüseyin Çoban]

Merhaba,

Açılan liste ve fiyat getirme işlemini yaptım.
Ekteki dosyayı inceler misiniz.


[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[serul]

Taksit tutarı kısmındaki EĞER döngümü kontrol edebilirmisiniz? Elle girdiğim tarih değerinde tutarsızlık yapıyor. Bulunduğumuz yılın (2010-2011-..)
Haziran ayında daha küçük bir tarihte isek son tutarı 12 taksite kadar bölebilmeli eğer haziran ağustos arasında ise 10 taksite, diğerinde 8 taksite kadar bölme seçeneği ekleyebilirmiyiz? Bu seçenek onaylandıktan sonra ödeme tablosuna ve MUHASEBE TAKİP sayfasına taksitler otomatik doldurulabilir mi?

[Bülent Öztürk]

Makro ile bir şeyler yaptım...


(Yeni hali eklendiğinden buradaki ek silinmiştir.)

[serul]

Bülent Bey : EĞER fonksiyonuna bağlı olarak taksit sayısını açılan pencereden seçme ihtimalimiz olur mu ?
Bunu form şeklinde tasarlasak bizim için bir zararı var mıdır ?

[Bülent Öztürk]

Bülent Bey : EĞER fonksiyonuna bağlı olarak taksit sayısını açılan pencereden seçme ihtimalimiz olur mu ?

Olur. Yeni hali ekte...

Bunu form şeklinde tasarlasak bizim için bir zararı var mıdır ?

Nasıl isterseniz o şekilde tasarlayıp kullanabilirsiniz tabi ki, neden zararı olsun.

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[serul]

Güzel olmuş Bülent Bey ! Elinize sağlık. Biraz tarif ile ben bunu forma çevirebilir miyim ? Aradan bende biras öğrenmiş olurum. Her seferinde arkadaşları yormak istemem.

[Bülent Öztürk]

Çevirebilirsiniz tabi... Başkaları yapabiliyorsa, siz de yaparsınız. 
Deneyin bakalım.

[Bülent Öztürk]

Sorduğunuzu 2 şekilde yapabilirsiniz:

1-RowSource ile arada sütun gizleyerek:

Kod: [Seç]

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 6  '--> 6 sütun alınır
ListBox1.ColumnWidths = "60;0;0;0;0;60"  ' --> ilk ve son sütunların genişlikleri 60, diğerleri 0 olunca sadece 60'lar görünecek.
ListBox1.RowSource = "gruplar!A2:F10"  '--> A2:F10 arasını alıyoruz.


2-AddItem yöntemi:

Kod: [Seç]

Private Sub UserForm_Initialize()
ListBox1.Clear
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "60;60"

For i = 2 To 12 ' A2'den A12'ye kadar olanları alacağımız döngü başlangıcı

ListBox1.AddItem  'Listbox'a satır satır veri ekleyeceğiz...

    ListBox1.List(i - 2, 0) = Range("A" & i)  ' Listbox'un ilk sütununa A sütunundan
    ListBox1.List(i - 2, 1) = Range("F" & i)  ' Listbox'un ikinci sütununa F sütunundan veri alıyoruz
   
Next i

End Sub

[Bülent Öztürk]

Bir ComboBox tanımladım az önceki ListBox ı ComboBox yaptım. Ben bu ComboBox da herhangi bir veriyi seçtiğimde  seçim satırındaki diğer bilgiyi Label veya herhangi bir kutuya otomatik yazdırmaya çalışıyorum. Ne yazabilirim ?

Kod: [Seç]

Private Sub ComboBox1_Change()
Label1.Caption = ComboBox1.List(ComboBox1.ListIndex, 0) ' Combo'dan seçilenin ilk sütunu Label1'in Caption'una
TextBox1.Value = ComboBox1.List(ComboBox1.ListIndex, 1) ' Combo'dan seçilenin ikinci sütunu Textbox1'in Value'sine
End Sub
Listbox ve Combobox ilk index'leri 0'dan başlar.

[serul]

Bülent Bey taksit sayısını seçebilmek için combobox oluşturdum.

Private Sub UserForm_Initialize()
ComboBox1.Clear
ComboBox1.ColumnCount = 1
ComboBox1.ColumnWidths = "15"
ListBox1.Clear
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "60;0"
ComboBox1.RowSource = "gruplar!E2:E15"

For i = 2 To 12

ListBox1.AddItem

    ListBox1.List(i - 2, 0) = Range("gruplar!A" & i)
    ListBox1.List(i - 2, 1) = Range("gruplar!C" & i)
   
Next i

End Sub

Private Sub ListBox1_Change()
TextBox6.Value = ListBox1.List(ListBox1.ListIndex, 1)
End Sub

ben ComboBox1 i belli bir şarta bağlı olarak E5 e kadar veya E9 a kadar kısımdan seçtirebilir miyim ?

[serul]

Bülent Bey şimdi çalışmamda bir matematiksel işlem yazmak istiyorum. Basit bir matematiksel işlem : Label6 da yazılı değeri comboBox2 de seçilen değere bölüp sonucu AYLIK label e yazdırmak istiyorum ?!

[Bülent Öztürk]

Ben ComboBox1 i belli bir şarta bağlı olarak E5 e kadar veya E9 a kadar kısımdan seçtirebilir miyim ?

Bunu yaptınız mı?

Bülent Bey şimdi çalışmamda bir matematiksel işlem yazmak istiyorum. Basit bir matematiksel işlem : Label6 da yazılı değeri comboBox2 de seçilen değere bölüp sonucu AYLIK label e yazdırmak istiyorum ?!

Nesnelerin değerlerinin varsayılan biçimleri metindir. Matematiksel işlem yapabilmek için sayıya çevirmek gerekiyor;

Kod: [Seç]

Private Sub CommandButton1_Click()
lblAYLIK.Caption = CDbl(Label6) / CDbl(ComboBox2)
End Sub

[serul]

Bunu yaptınız mı?

yok onu yapmadım onu ihtiyaçtan değilde meraktan sormuştum. Kodlardaki CDbl metni matematiksel değere çeviriyor demekki. Peki kodun başındaki lbl nin işlevi nedir ?