Kaydet makrosunda sorun

[rustemparlak]

arkadaşlar kolay gelsin..

fordan aldığım kullandığım bu makroda 15 adet kayıtdan sonra 15.kayıt üzerine kayıt yapıyor yardımlarınız için teşekkür ederim. herkese iyi akşamlar

Sub Yazdir1()
A = WorksheetFunction.CountA(Sheets("KAYITLIFATURA").Range("d5:d65536"))
Sheets("KAYITLIFATURA").Range("A" & A + 5) = A + 1
Sheets("KAYITLIFATURA").Range("B" & A + 5) = [B4]
Sheets("KAYITLIFATURA").Range("C" & A + 5) = [B5] & "." & [B6] & "." & [B7]
Sheets("KAYITLIFATURA").Range("D" & A + 5) = [U7]
Sheets("KAYITLIFATURA").Range("E" & A + 5) = [X45]
Sheets("KAYITLIFATURA").Range("F" & A + 5) = [AJ6]
Application.Dialogs(xlDialogPrinterSetup).Show
MsgBox Prompt:="DEĞİŞTİRDİYSENİZ YAZMAYA HAZIR!...."
If A = 30 Then MsgBox "Liste Doldu Kontrol Ediniz"
ActiveSheet.PageSetup.PrintArea = "$A$1:$AC$51"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = ""
Sheets("FATURAOLUŞTUR").Select
End Sub

 

[Levent Menteşoğlu]

Bu söylediğiniz hatanın olması için tek sebep A değişkeninin hatalı bulunmasıdır yani D sütunundaki verilerin sabit kalmasından kaynaklanıyor. Bu satırı aşağıdaki ile değiştirerek deneyin.

A = WorksheetFunction.CountA(Sheets("KAYITLIFATURA").Range("a5:a65536"))