UserForm

[mami68]

Merhabalar
Sayın hocalarım burada açıklama yapmak yerine dosya içinde açıklama yaptım bi göz atarda yardımcı olursanız şimdiden teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

 

[mami68]

Merhabalar
Sayın Korhan Ayhan bey.
İlgi ve yardımlarınıza teşekkürler,inceleme yaparken yeni vardım farkına 100*2=200 geliyor ama 100*2,5=200 veriyor acaba hatam nerede 2,5 yazıncada sayfaya metin olarak geliyor.Gecenin bu saatinde yardımlarınız için tekrar teşekkürler.Beyninize sağlık.

 

[mami68]

Pardon özür dilerim comboboxtan firmayı seçince 2,3,4 textboxlara değilde 5,6,7-ye kayacak ama firma tam olduğu yerde kalacak yani textbox1

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki komutu (Val) kullandığınız için küsüratlı sayılarda sıkıntı yaşıyorsunuz.

TextBox4 = [COLOR=red]Val[/COLOR](TextBox2) * [COLOR=red]Val[/COLOR](TextBox3)

Bu komut sadece tamsayıları değerlendirir. Bu komutun yerine (Cdbl) kullanmalısınız.

TextBox4 = Cdbl(TextBox2) * Cdbl(TextBox3)

 

[mami68]

Hocam sonuna geldik ve sonunda kodlar sarıya boyandı.Kaydet dediğim zaman bakın sarı oluyor kodlar.

 

[mami68]

Değerli hocalarım,bu dosyada ki hatayı nasıl kaldırırız.Kaydet deyince kod sarı renge dönüyor.Teşekkürler iyi çalışmalar.

 

[mami68]

Çözümü buldum ama ben bunu Properties ile değil kodla çözmek istiyorum.Propertieste textte "0"değeri verince oluyor.Bunu kodla nasıl çözecez.Çünkü girişleri çıkışsız kaydetmiyor.İyi çalışmalar

 

[Orion1]

Kodklarınızın en başına koyunuz.

On Error Resume Next

 

[mami68]

Sayın Evren bey sizlere ve forumdaki diğer hocalarıma allah unutkanlık vermesin.
Elinize sağlık.Teşekkürler

 

[Orion1]

Sayın Evren bey sizlere ve forumdaki diğer hocalarıma allah unutkanlık vermesin.
Elinize sağlık.Teşekkürler

Amin cümlemize.
İyi çalışmalar.

 

[Korhan Ayhan]

Selamlar,

Hataya sebep olan kısımları kontrol altına alarakta sorunu çözebilirsiniz.

Kaydet kodunu aşağıdaki şekilde değiştirip denermisiniz.

Private Sub cmdKayit_Click()
    Dim SATIR As Long
    Dim BUL As Range
    Sheets("Veri").Select
    SATIR = Range("A65536").End(3).Row + 1
    Cells(SATIR, 1) = SATIR - 1
    If TextBox2 = Empty Then TextBox2 = 0
    If TextBox3 = Empty Then TextBox3 = 0
    If TextBox8 = Empty Then TextBox8 = 0
    If TextBox9 = Empty Then TextBox9 = 0
    TextBox4 = CDbl(TextBox2) * CDbl(TextBox3)
    TextBox10 = CDbl(TextBox8) * CDbl(TextBox9)
    Cells(SATIR, 2) = TextBox1.Text
    Cells(SATIR, 3) = CDbl(TextBox2.Value)
    Cells(SATIR, 4) = CDbl(TextBox3.Value)
    Cells(SATIR, 5) = TextBox4.Value
    Cells(SATIR, 6) = CDbl(TextBox8.Value)
    Cells(SATIR, 7) = CDbl(TextBox9.Value)
    Cells(SATIR, 8) = TextBox10.Value
        
    With Sheets("Rapor")
    Set BUL = .Range("B:B").Find(TextBox1.Text)
    If Not BUL Is Nothing Then
    .Cells(BUL.Row, "C") = WorksheetFunction.SumIf([Veri!B:B], .Cells(BUL.Row, "B"), [Veri!C:C])
    .Cells(BUL.Row, "D") = WorksheetFunction.SumIf([Veri!B:B], .Cells(BUL.Row, "B"), [Veri!F:F])
    .Cells(BUL.Row, "E") = .Cells(BUL.Row, "C") - .Cells(BUL.Row, "D")
    Else
    SATIR = .Cells(65536, 2).End(3).Row + 1
    .Cells(SATIR, "B") = TextBox1.Text
    .Cells(SATIR, "C") = WorksheetFunction.SumIf([Veri!B:B], .Cells(SATIR, "B"), [Veri!C:C])
    .Cells(SATIR, "D") = WorksheetFunction.SumIf([Veri!B:B], .Cells(SATIR, "B"), [Veri!F:F])
    .Cells(SATIR, "E") = .Cells(SATIR, "C") - .Cells(SATIR, "D")
    End If
    Set BUL = Nothing
    End With
    
    MsgBox "Kayıt İşlemi Tamamlandı."
End Sub

 

[mami68]

Selamlar,

Hataya sebep olan kısımları kontrol altına alarakta sorunu çözebilirsiniz.

Kaydet kodunu aşağıdaki şekilde değiştirip denermisiniz.

Merhabalar.
Sayın Korhan bey,ilgi ve yardımlarınıza teşekkürler.
Ben bu kodları denedim oldu elinize sağlık.Kafama şu cümle takıldı,"Hataya sebep olan kısımları kontrol altına alarakta sorunu çözebilirsiniz." Bunu nasıl yapacam.Teşekkürler.İyi çalışmalar.

 

[Orion1]

Merhabalar.
Sayın Korhan bey,ilgi ve yardımlarınıza teşekkürler.
Ben bu kodları denedim oldu elinize sağlık.Kafama şu cümle takıldı,"Hataya sebep olan kısımları kontrol altına alarakta sorunu çözebilirsiniz." Bunu nasıl yapacam.Teşekkürler.İyi çalışmalar.

Korhan bey aşağıdaki kodlarla hatayı engellemiş.
Ama bu seferde textboxlara Metin girilirse hata oluşacak.
Onun içinde if not isnumeric(textbox2.text) then textbox2.text=0 kullanmak daha doğru olacaktır.

If TextBox2 = Empty Then TextBox2 = 0
    If TextBox3 = Empty Then TextBox3 = 0
    If TextBox8 = Empty Then TextBox8 = 0
    If TextBox9 = Empty Then TextBox9 = 0

 

[mami68]

Sayın Evren Bey,tek kelime"Harikasınız"
Bayramınızı kutlar mutluluklar dilerim.İyi çalışmalar.

 

[Orion1]

Sayın Evren Bey,tek kelime"Harikasınız"
Bayramınızı kutlar mutluluklar dilerim.İyi çalışmalar.

O sizin harikalığınız.
İyi bayramlar.