Merhaba,
Bir kayıt sistemi oluşturmaya çalışıyorum. Fakat çalıştırdığım makroda eklediğim verileri alt alta yazmıyor hep aynı satır üzerine yazıyor. Her seferinde yeni kayıt oluşturmak istediğimde alt alta yazdırmak için ne yapmam gerekiyor bu konuda yardımcı olursanız sevinirim
1- Tarih Firma Model Renk Adet BirimFiyat Kur
2- Tarih Firma Model Renk Adet BirimFiyat Kur
şeklinde alt alta kayıt oluşturmak istiyorum.
Bir kayıt sistemi oluşturmaya çalışıyorum. Fakat çalıştırdığım makroda eklediğim verileri alt alta yazmıyor hep aynı satır üzerine yazıyor. Her seferinde yeni kayıt oluşturmak istediğimde alt alta yazdırmak için ne yapmam gerekiyor bu konuda yardımcı olursanız sevinirim
1- Tarih Firma Model Renk Adet BirimFiyat Kur
2- Tarih Firma Model Renk Adet BirimFiyat Kur
şeklinde alt alta kayıt oluşturmak istiyorum.
Kod:
Private Sub EkleButon1_Click()
Dim satir As Integer
Dim ws As Worksheet
If (Trim(Tarihtxtbox.Value) = "") Or (Trim(Firmatxtbox.Value) = "") Or (Trim(Modeltxtbox.Value) = "") Or (Trim(Renktxtbox.Value) = "") Or (Trim(Adettxtbox.Value) = "") Or (Trim(PBcombobox.Value) = "") Or (Trim(BFtxtbox.Value) = "") Or (Trim(Kurtxtbox.Value) = "") Then
MsgBox "Bütün Bilgileri Giriniz"
Exit Sub
End If
Set ws = Worksheets("Sayfa1")
satir = WorksheetFunction.CountA(Range("A:A")) + 4
Cells(satir, 2).Value = Tarihtxtbox.Value
Cells(satir, 3).Value = Firmatxtbox.Value
Cells(satir, 4).Value = Modeltxtbox.Value
Cells(satir, 5).Value = Renktxtbox.Value
Cells(satir, 6).Value = Adettxtbox.Value
Cells(satir, 7).Value = BFtxtbox.Value
Cells(satir, 8).Value = Kurtxtbox.Value
End Sub