kod yardımı

[maltinkaya]

ekli dosyaya user form oluşturdum ama user form üzerindeki verileri sayfaya aktaramadım dosyada açıklama var

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub cmdKaydet_Click()
Dim sat As Long
    sat = Cells(65536, "C").End(xlUp).Row + 1
    If Not IsDate(txttarih.Value) Then
        MsgBox "Geçerli bir tarih giriniz..!!", vbCritical, "UYARI"
        txttarih.SetFocus
        Exit Sub
    End If
    Cells(sat, "C").Value = Format(CDate(txttarih.Value), "dd.mm.yyyy")
    Cells(sat, "D").Value = ComboBox1.Value
    Cells(sat, "E").Value = ComboBox2.Value
    Cells(sat, "F").Value = Txtaçıklama.Value
    Cells(sat, "G").Value = Txtgelir.Value * 1
    Cells(sat, "H").Value = Txtgider.Value * 1
    MsgBox "Kayıt tamamlandı.", , "KAYIT"
    Txtaçıklama.Value = ""
    Txtgelir.Value = 0
    Txtgider.Value = 0
End Sub

 

[maltinkaya]

sayın orion2 çok teşekkürler bu makroyu sadece sayfa çoğalınca ana menü ekleyip oradan user formu çalıştırmak mümkün olabilirmi biraz denedim ama hata verdi emeğinize sağlık kolay gelsin

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub cmdKaydet_Click()
Dim sat As Long
    sat = Sheets("GÜNLÜK KASA").Cells(65536, "C").End(xlUp).Row + 1
    If sat = 65536 Then
        MsgBox "Satır Doldu.." & vbLf & "Kayıt Yapılmadı..!!", vbOKOnly + vbInformation, "KAYIT"
        Exit Sub
    End If
    If Not IsDate(txttarih.Value) Then
        MsgBox "Geçerli bir tarih giriniz..!!", vbCritical, "UYARI"
        txttarih.SetFocus
        Exit Sub
    End If
    With Sheets("GÜNLÜK KASA")
        .Cells(sat, "C").Value = Format(CDate(txttarih.Value), "dd.mm.yyyy")
        .Cells(sat, "D").Value = ComboBox1.Value
        .Cells(sat, "E").Value = ComboBox2.Value
        .Cells(sat, "F").Value = Txtaçıklama.Value
        .Cells(sat, "G").Value = Txtgelir.Value * 1
        .Cells(sat, "H").Value = Txtgider.Value * 1
    End With
    MsgBox "Kayıt tamamlandı.", , "KAYIT"
    Txtaçıklama.Value = ""
    Txtgelir.Value = 0
    Txtgider.Value = 0
End Sub

 

[maltinkaya]

çok teşekkürler kardeş ellerine ve emeğine sağlık herşey gönlünce olsun öğrenmede önemli olan pratik neyin nasıl yapıldığı sayenizde bizde kendimizi geliştiriyoruz tekrar teşekkürler

 

[Orion1]

çok teşekkürler kardeş ellerine ve emeğine sağlık herşey gönlünce olsun öğrenmede önemli olan pratik neyin nasıl yapıldığı sayenizde bizde kendimizi geliştiriyoruz tekrar teşekkürler

Rica ederim.
İyi çalışmalar.