Dershane Kayıt Form / program

[serul]

(run time error 424 )
Private Sub CommandButton1_Click()
lblAYLIK.Caption = CDbl(Label6) / CDbl(ComboBox2)
End Sub
Yanlış var mı ?

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

[Bülent Öztürk]

yok onu yapmadım onu ihtiyaçtan değilde meraktan sormuştum.

Yapılabilir. If şartı ile kriter belirlenebilir.

Kodlardaki CDbl metni matematiksel değere çeviriyor demekki.

Evet. Forumda değişkenler konusunu inceleyebilirsiniz.

Peki kodun başındaki lbl nin işlevi nedir ?

Label'e verilen isim.
Yukarıdaki mesajınızda AYLIK label ifadesini kullandığınız için ben de lblAYLIK olarak isimlendirdim.
Kullanım kolaylığı için kontroller isimlendirilirken başlarına türünü belirten ifade konması daha faydalı oluyor.

Label için "lbl", Textbox için "txt", CommandButton için "cmd", Combobox için "cb" gibi...

[Bülent Öztürk]

(run time error 424 )
Private Sub CommandButton1_Click()
lblAYLIK.Caption = CDbl(Label6) / CDbl(ComboBox2)
End Sub
Yanlış var mı ?

Label'inizin adı nedir?
AYLIK mı lblAYLIK mı?

Düzeltirseniz çalışacaktır.

[serul]

Bu Formüle OptionButton1 seçili olduğunda %15 iskonto yaptırmak istiyorum hangi kodu eklemeliyim ?
Forumda değişkenler adında aratma yaptırdım bilgiye ulaşamadım 

[Bülent Öztürk]

Forumda değişkenler adında aratma yaptırdım bilgiye ulaşamadım 

Haklısınız. Bölümü açmış, ancak henüz içeriğini doldurmamışım. 

Bu Formüle OptionButton1 seçili olduğunda %15 iskonto yaptırmak istiyorum hangi kodu eklemeliyim ?

OptionButton yerine CheckBox kullanırsanız işaretleyip, işareti kaldırmak mümkün olacaktır.

Şu şekilde de indirim hesabını yaptırabilirsiniz:

Kod: [Seç]

Private Sub CommandButton1_Click()
If CheckBox1.Value = True Then
    AYLIK.Caption = (CDbl(Label6) / CDbl(ComboBox2)) - ((CDbl(Label6) / CDbl(ComboBox2)) * 15 / 100)
Else
    AYLIK.Caption = CDbl(Label6) / CDbl(ComboBox2)
End If
End Sub

[serul]

Seçilen taksit sayısına göre farklı indirim seçenekleri oluşturabilmek için

Kod: [Seç]

Private Sub CommandButton1_Click()
If ComboBox2.Value = 2 Then
    AYLIK.Caption = (CDbl(Label6) / CDbl(ComboBox2)) - ((CDbl(Label6) / CDbl(ComboBox2)) * 15 / 100)
    Label13.Caption = (CDbl(Label6)) - (CDbl(Label6) * 15 / 100)
Else
    AYLIK.Caption = CDbl(Label6) / CDbl(ComboBox2)
    Label13.Caption = "İNDİRİM YAPILAMAZ "
End If
End Subyazdım çalışıyor. Okuldan hatırladığım kadarıyla between denilen aralık tanımlama komutları vardı. Tarihe göre excelimde aylık taksit sayısı çıkıyor ve combobox2 bunu listeliyor. Yazdığım şart sadece 2 taksitte işliyor. Farklı if şartlarını içiçemi kullanmalıyım ?

[Bülent Öztürk]

İçiçe IF veya Select Case kullanabilirsiniz.

Örnek:

Dim Number
Number = 8    ' Initialize variable.
Select Case Number    ' Evaluate Number.
Case 1 To 5    ' Number between 1 and 5, inclusive.
    Debug.Print "Between 1 and 5"
' The following is the only Case clause that evaluates to True.
Case 6, 7, 8    ' Number between 6 and 8.
    Debug.Print "Between 6 and 8"
Case 9 To 10    ' Number is 9 or 10.
Debug.Print "Greater than 8"
Case Else    ' Other values.
    Debug.Print "Not between 1 and 10"
End Select

[serul]

Bülent Bey hazırlamış olduğunuz değişkenler sayfasını inceledim. Elinize sağlık.

Kod: [Seç]

Private Sub UserForm_Initialize()
Label4 = FormatDateTime(Now, vbShortDate)
ComboBox1.Clear
ComboBox1.ColumnCount = 2
ComboBox1.ColumnWidths = "40;0"
ComboBox1.RowSource = "GRUPLAR!A2:B10"
ComboBox2.ColumnCount = 1
ComboBox2.ColumnWidths = "8"
ComboBox2.RowSource = "GRUPLAR!D2:D16"
Dim tarh As Date
Dim TextBox4 As Byte
Dim TextBox3 As Byte
End Sub
tarh benim label kısmım. Bu tarh kısmını Haziran ile karşılaştırıp sonuca göre If döngüsüne ekleyeceğim. Tarihi nasıl karşılaştırabiliriz ?
TextBox3 ve TextBox4 e sadece rakam girilmesini Dim ..........As Byte ile engelleyemiyorum (Çünkü bu kod excelin o labelda yazılanı tanıması için) ?

[Bülent Öztürk]

Serkan Bey,
Siz yapmak istediğinizi bana satır satır ifade edin, ben kodlamasına yardımcı olayım.
Sonra dosyanızda uygulamayı deneyin...

[serul]

Forma Veli,Öğrenci,İletişim bilgileri girilecek. Yazı olan yerlere sadece yazı, rakam olacak yerlere sadece rakam yazılabilmeli. Hesaplama butonu istediğim gibi çalışıyor. Kaydet butonu tıklandığında DATA sayfasına aynı satıra veli,öğrenci ad-soyad, veli cep telefonu ve kaç taksit ise taksit ödeme miktarları ve tarihleri aylık sütunlara yerleştirmek istiyorum.

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

[Bülent Öztürk]

Formunuza istediğiniz alanları/nesneleri ekleyip, dosyanızın son halini foruma ekler misiniz? Onun üzerinden gidelim.

[serul]

Peki

[Bülent Öztürk]

DATA sayfasının 1. satırına şu başlıkları yazın:

VELİ  ADI SOYADI   
ÖĞRENCİ ADI SOYADI   
VELİ CEP TELEFONU   
VELİ EV TELEFONU   
SINIFI   
TUTAR   
TAKSİT ADEDİ   
TAKSİT TUTARI

KAYDET düğmesine şu kodları atayın:

Private Sub KAYDT_Click()
Dim say As Long
say = ThisWorkbook.Worksheets("DATA").Range("A65530").End(xlUp).Row + 1
ThisWorkbook.Worksheets("DATA").Range("A" & say) = TextBox2 ' VELİ ADI
ThisWorkbook.Worksheets("DATA").Range("B" & say) = TextBox1 ' ÖĞRENCİ ADI
ThisWorkbook.Worksheets("DATA").Range("C" & say) = TextBox3 ' VELİ CEP TEL
ThisWorkbook.Worksheets("DATA").Range("D" & say) = TextBox4 ' VELİ EV TEL
ThisWorkbook.Worksheets("DATA").Range("E" & say) = ComboBox1 ' SINIFI
ThisWorkbook.Worksheets("DATA").Range("F" & say) = CDbl(Label6) * 1 ' TUTAR
ThisWorkbook.Worksheets("DATA").Range("G" & say) = CDbl(ComboBox2) * 1 ' TAKSİT ADEDİ
ThisWorkbook.Worksheets("DATA").Range("H" & say) = CDbl(AYLIK.Caption) * 1 ' TAKSİT TUTARI
End Sub

SAYI ve METİN kontrolü için ilgili nesnelere yazılacak kodlar:

Kod: [Seç]

Private Sub TextBox1_Change()
If IsNumeric(VBA.Right(TextBox1, 1)) Then TextBox1 = VBA.Left(TextBox1, Len(TextBox1) - 1)
End Sub

Kod: [Seç]

Private Sub TextBox2_Change()
If IsNumeric(VBA.Right(TextBox2, 1)) Then TextBox2 = VBA.Left(TextBox2, Len(TextBox2) - 1)
End Sub

Kod: [Seç]

Private Sub TextBox3_Change()
If Not IsNumeric(VBA.Right(TextBox3, 1)) Then TextBox3 = VBA.Left(TextBox3, Len(TextBox3) - 1)
End Sub

Kod: [Seç]

Private Sub TextBox4_Change()
If Not IsNumeric(VBA.Right(TextBox4, 1)) Then TextBox4 = VBA.Left(TextBox4, Len(TextBox4) - 1)
End Sub

[serul]

Bülent Bey yazdıklarınızı uyguladım güzel oldu. DATA sayfasına taksitle kayıt tarihinden itibaren 1 ay sonra başlayacak şekilde doldurmak istiyorum. DATA kısmına ayları ekledim

[Bülent Öztürk]

Ay'ları Aralık'tan başlatıp, kodları şu şekilde değiştirin:

Private Sub KAYDT_Click()
Dim say As Long
Dim taksitler As Integer
Dim bugun As Date, sonrakiay As Date

say = ThisWorkbook.Worksheets("DATA").Range("A65530").End(xlUp).Row + 1
ThisWorkbook.Worksheets("DATA").Range("A" & say) = TextBox2 ' VELİ ADI
ThisWorkbook.Worksheets("DATA").Range("B" & say) = TextBox1 ' ÖĞRENCİ ADI
ThisWorkbook.Worksheets("DATA").Range("C" & say) = TextBox3 ' VELİ CEP TEL
ThisWorkbook.Worksheets("DATA").Range("D" & say) = TextBox4 ' VELİ EV TEL
ThisWorkbook.Worksheets("DATA").Range("E" & say) = ComboBox1 ' SINIFI
ThisWorkbook.Worksheets("DATA").Range("F" & say) = CDbl(Label6) * 1 ' TUTAR
ThisWorkbook.Worksheets("DATA").Range("G" & say) = CDbl(ComboBox2) * 1 ' TAKSİT ADEDİ
ThisWorkbook.Worksheets("DATA").Range("H" & say) = CDbl(AYLIK.Caption) * 1 ' TAKSİT TUTARI
'Ocak 2011 - J sütunundan (10.sütun) başlıyor... Ödemeler kayıt tarihinden 1 ay sonra başlayacak...
bugun = VBA.Now
sonrakiay = DateAdd("m", 1, bugun) ' Bugünkü ay'a 1 ekle
hangiay = VBA.Month(sonrakiay)
For taksitler = 0 To CDbl(ComboBox2) - 1
ThisWorkbook.Worksheets("DATA").Cells(say, 10 + hangiay + taksitler) = CDbl(AYLIK.Caption) * 1
Next taksitler
End Sub

Yalnız, bu şekilde bir taksitlendirme çok sağlıklı olmayabilir.