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

RBozkurt

𐱅𐰇𐰼𐰚
Altın Üye
Katılım
10 Ocak 2018
Mesajlar
686
Excel Vers. ve Dili
Microsoft Office 2024
Google Sheets
Altın Üyelik Bitiş Tarihi
19-12-2026
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.

C++:
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
241002
 

Ekli dosyalar

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
6,167
Excel Vers. ve Dili
2019 Türkçe
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.

Kod:
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

𐱅𐰇𐰼𐰚
Altın Üye
Katılım
10 Ocak 2018
Mesajlar
686
Excel Vers. ve Dili
Microsoft Office 2024
Google Sheets
Altın Üyelik Bitiş Tarihi
19-12-2026
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

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
6,167
Excel Vers. ve Dili
2019 Türkçe
Deneyiniz.
Kod:
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

𐱅𐰇𐰼𐰚
Altın Üye
Katılım
10 Ocak 2018
Mesajlar
686
Excel Vers. ve Dili
Microsoft Office 2024
Google Sheets
Altın Üyelik Bitiş Tarihi
19-12-2026
@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.

241008
 
Son düzenleme:
Üst