Çözüldü Kayıt İşlemi Sırasında Boş Satır Hatası Hakkında

[RBozkurt]

Merhaba,

Ekteki dosyada Veri Girişi sayfasındaki Kaydet butonu ile 2 adet kayıt makrosu tetiklenmektedir.
Makro ile resimde SOL tarafta görünen dosya oluşturulmaktadır. Excel'de 11. satırdan sonra veri olmamasına rağmen gözüktüğü şekilde boşta olsa satır gelmektedir.
Bu oluşan dosyayı CAD tabanlı bir programda kullanmaktayız. Yüklerken veri yok ama varmış gibi davranıyor.

Not: DRK dosyasına yakın sonucu xlTextPrinter seçeneği verdi. Diğerlerini denedim " " işareti içerisine sonuçlar verdi.
Dosya not defteri ile de açılabilmektedir. Oluşan dosyada satır yokmuş gibi gözüküyor, aşağıda etitörde belli olsun diye ekledim.

İstenilen:
-Sağ'daki şekilde son satırdan sonra veri olmaması.
-Buton'a basınca kayıt işlemi yapılıyor. Dosya varsa üzerine kaydetsin mi? diye vb. soruyor. Bu soru adımlarını evet ile otomatik atlatılması,

Konusunda yardımcı olabilir misiniz?
Teşekkür ederim.

Sub KaydetDRK()

    Application.ScreenUpdating = False

    Sheets("DRK").Visible = True
    Sheets("DRK").Copy
    ActiveWorkbook.SaveAs Filename:= _
    ThisWorkbook.Path & "\" & "KONTROL.DRK", FileFormat:= _
    xlTextPrinter, CreateBackup:=False
    ActiveWindow.Close
   
    'Sheets("DRK").Visible = False  'Test sonrası aktif edilecektir.
End Sub

 

[Muzaffer Ali]

Merhaba.

1- Sayfadaki boş gibi görünen sarı alanlar boş değil formül var. Formüllü satırları silerseniz istediğiniz sonucu elde edebilirsiniz.
2- Uyarı almamak için aşağıdaki kodu kullanın.

Sub KaydetDRK()
    Application.ScreenUpdating = False
    Sheets("DRK").Visible = True
    Sheets("DRK").Copy
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "KONTROL.DRK", FileFormat:=xlTextPrinter, CreateBackup:=False
    Application.DisplayAlerts = True
    ActiveWindow.Close
    'Sheets("DRK").Visible = False
End Sub

 

[RBozkurt]

Sayın @Muzaffer Ali bey teşekkür ederim.
C Sütunundaki son dolu satırdan sonra bulunan satırların silinmesi işlevini makro içeriğine dahil edilmesi konusunda yardımcı olabilir misiniz?

 

[Muzaffer Ali]

Deneyiniz.

Sub KaydetDRK()
    Dim SonSatir As Long
    Application.ScreenUpdating = False
    Sheets("DRK").Visible = True
    Sheets("DRK").Copy
    Application.DisplayAlerts = False
    SonSatir = ThisWorkbook.Worksheets("Veri Girişi").Cells(Rows.Count, "B").End(xlUp).Row + 1
    ActiveWorkbook.Worksheets(1).Rows(SonSatir & ":" & Rows.Count).Delete
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "KONTROL.DRK", FileFormat:=xlTextPrinter, CreateBackup:=False
    Application.DisplayAlerts = True
    ActiveWindow.Close
    'Sheets("DRK").Visible = False
End Sub

 

[RBozkurt]

@Muzaffer Ali bey kodları denedim.
Satırı siliyor ama anlamadığım şekilde son 3 sütunu alta atmış durumda.

Edit:
Aşağıdaki hatayı boş sütunları daraltarak çözdüm gibi. Sütunları iptal ederek tes yapmam gerekir. Ekstra bir hata olursa dönüş yaparım.
Teşekkür ederim elinize sağlık.