Kasa Kayıt Userform

[HAKANYAPILCAN]

Merhaba,
@Hüseyin Bey'in Anlattığı derste kayıdı tersten, yani başlıktan sonraki ilk satıra yazmasını nasıl sağlarım? Her yeni kayıt başlıktan sonraki satıra ve önceki de bir alta kaysın istiyorum.(En yeni en üstte).

Şimdiden teşekkürler.

 

[vardar07]

Merhaba. Userform daki kaydet kodlarını aşağıdaki ile değiştirip denermisiniz.

Private Sub CommandButton1_Click()
Dim Satir As Long
Dim Hareket As Long
Dim Sayfa As Worksheet
Set Sayfa = Worksheets("Defter")
Sayfa.Range("A2:E2").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sayfa.Cells(2, 1).Select
Hareket = Me.cboHareket.ListIndex
If Trim(Me.cboHareket.Value) = "" Then
  Me.cboHareket.SetFocus
  MsgBox "Lütfen bir hareket adı seçin"
  Exit Sub
End If
Satir = Cells(1, "A").End(xlUp).Row + 1
'Verileri sayfaya yaz
With Sayfa
  .Cells(Satir, 1).Value = Me.txtTarih.Value
  .Cells(Satir, 2).Value = Me.cboHareket.List(Hareket)
  .Cells(Satir, 3).Value = Me.txtAciklama.Value
  .Cells(Satir, 4).Value = Val(Me.txtGelir.Value)
  .Cells(Satir, 5).Value = Val(Me.txtGider.Value)
End With

'Verileri temizle
Me.txtTarih.Value = Format(Date, "Short Date")
Me.cboHareket.Value = ""
Me.txtAciklama.Value = ""
Me.txtGelir.Value = ""
Me.txtGider.Value = ""
Me.cboHareket.SetFocus

End Sub

 

[HAKANYAPILCAN]

Teşekkürler. istediğim gibi oldu.

 

[HAKANYAPILCAN]

Tekrar merhaba, bu derste anlatılanlardan faydalanarak ve örnek dosyadaki kodları düzenleyerek kendime uygun bir şeyler yapmaya çalıştım ama çalıştıramadım. Nerede hata yaptığım konusunda yardımcı olur musunuz?

 

[vardar07]

Kodları karşılaştırınız.

Private Sub CommandButton1_Click()
Dim Satir As Long
Dim Hareket As Long
Dim Sayfa As Worksheet
Set Sayfa = Worksheets("Veri")
Sayfa.Range("A2:O2").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sayfa.Cells(2, 1).Select
'TOHUM = Me.cboturu.ListIndex
Satir = Cells(1, "A").End(xlUp).Row + 1
'Verileri sayfaya yaz
With Sayfa
  .Cells(Satir, 1).Value = Me.txtisim.Value
  .Cells(Satir, 2).Value = Me.txtbaba.Value
  .Cells(Satir, 3).Value = Me.txttc.Value
   .Cells(Satir, 4).Value = Me.txtadres.Value
   .Cells(Satir, 5).Value = Me.txttel.Value
   .Cells(Satir, 6).Value = Me.txtdt.Value
  .Cells(Satir, 7).Value = Me.cboturu
  .Cells(Satir, 8).Value = Me.cbocesidi
   .Cells(Satir, 9).Value = Me.txtsertifikak.Value
  .Cells(Satir, 10).Value = Me.txtsertifikat.Value
  .Cells(Satir, 11).Value = Me.txtsertifikan.Value
  .Cells(Satir, 12).Value = Me.txtparti.Value
  .Cells(Satir, 13).Value = Me.txtfaturat.Value
  .Cells(Satir, 14).Value = Me.txtfaturan.Value
  .Cells(Satir, 15).Value = Me.txtfaturam.Value
'Verileri temizle
Me.txtisim.Value = ""
Me.txtbaba.Value = ""
Me.txttc.Value = ""
Me.txtadres.Value = ""
Me.txttel.Value = ""
Me.txtdt.Value = ""
Me.cboturu.SetFocus
Me.cbocesidi.SetFocus
Me.txtsertifikak.Value = ""
Me.txtsertifikat.Value = ""
Me.txtsertifikan.Value = ""
Me.txtparti.Value = ""
Me.txtfaturat.Value = ""
Me.txtfaturan.Value = ""
Me.txtfaturam.Value = ""
End With
End Sub

 

[HAKANYAPILCAN]

Teşekkürler...