Csv Dışa Aktarmada Eksik Satır Aktarıyor.

[owertake]

Herkese Merhaba,
Hasta kayıt yaptığım bir dosyam var. Userform girilen değerler otomatik olarak Sayfa ikiye kayıt oluyor ve kayıtlı veriler csv olarak dışarı aktarılıyor. Sayfa2 düzeni A dan J ye kadar 2 satır birleşik şekilde ama G ve H sütunları ayrı şekilde olması gerekiyor. Sorunum Şu her kayıtta verileri dışarı aktarıyorum ama son kayıttaki g ve h sütunlarındaki 2. hücreler aktarılmıyor. Yeni kayıt eklediğim zaman önceki kayıttaki eksik veriler geliyor yeni kayıttaki 2. satır verileri gelmiyor. Dosya linkini ekliyorum. Yardımlarınızı bekliyorum.

Kayıt Son - Google Drive

drive.google.com

 

[Muzaffer Ali]

Merhaba.

sonSatir = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

Satırı A sütununu son dolu satır numarasına bakıyor.

sonSatir = ws.Cells(ws.Rows.Count, "G").End(xlUp).Row

yada

sonSatir = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row+1

yaparsanız sorun çözülür

 

[owertake]

Merhaba.

sonSatir = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

Satırı A sütununu son dolu satır numarasına bakıyor.

sonSatir = ws.Cells(ws.Rows.Count, "G").End(xlUp).Row

yada

sonSatir = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row+1

yaparsanız sorun çözülür

Çalıştı teşekkür ederim.