Alt Alta Yazdırmak

[Brigade]

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.

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

 

[YUSUF44]

satir = WorksheetFunction.CountA(Range("A:A")) + 4

satırıyla A sütunundaki dolu satırların sayısını bulup 4 ekliyorsunuz. Daha sonra bulduğunuz satıra bilgileri yazdırıyorsunuz.

Deneme amaçlı A1, A5 ve A7'nin dolu olduğu bir durumda benzer bir kod kullandım ve sürekli olarak A7'ye veri yazdığını gördüm. ilk durumda sadece 3 dolu hücre vardı, formül satir değişkenini bulmak için 4 ekledi ve 7. satıra istediğim veriyi yazdı. 7. satırda zaten bir veri vardı, sütüne yazılmış oldu ve son durumda yine 3 dolu hücre kaldı.

Buna benzer bir durum olabilir. Verileriniz arasında boş hücreler varsa ve dolu hücre sayısı + 4 dolu bir hücrenin satır numarasını veriyorsa sizde de aynı sorun çıkmıştır.

 

[Necdet]

Merhaba,

Yusuf beyin açıklamalarına ek olarak satir değişkenini aşağıdaki gibi kullanın.

satir = Cells(Rows.Count, "A").End(3).Row + 1

A sütunundaki son dolu hücreden bir sonraki satıra yazdırmış olursunuz.

 

[Brigade]

Teşekkür ederim YUSUF44, mesajınız sayesinde bir şeyi fark ettim, B sütununa yazdırmaya çalışıyormuşum (Range("A:A")) şeklinde yazmışım şuan durumu düzelttim.

Vaktinizi aldığım için kusura bakmayın, farkında olmamı sağladığınız için YUSUF44 ve Necdet Yeşertener teşekkür ederim.