Aktarılan faturaları fatura sayısı kadar CSV yapmak.

[Filose]

Merhaba,
Elimde daha önceden buradan istifade edindiğim makroyu kendime göre uyarladım. Eksiksiz çalışıyor.
Sadece bir düzeltme yapmak istedim yapamadım.
1. Aktar dosyası ile kapalı dosyasından veri çekiyorum sorun yok.
2. Aktar dosyasında CSV yap dediğimde, "CSV KAYIT" diye bir klasör açıp 100'er satırlık CSV dosyaları oluşturuyor. (KAYIT-1, KAYIT-2 …. diye)
ve burada aktarılacak maksimum satır 500 diye sınırlandırdım. Örn: Eğer 250 aktarılacak satır varsa da 500 satır varmış gibi CSV
dosyaları oluşturuyor. Boş olan satırları da CSV yapıyor.
3. Rica ettiğim şu; AKTAR dosyasında kaç adet satır varsa sadece o kadar 100'er adetlik CSV KAYIT klasörü açsın. Yani boş satırlar için CSV
yapmasın. Dosya ektedir.
Ne yazık ki ben başaramadım yardımcı olabilecek arkadaşlara şimdiden çok teşekkür ederim.

Elinize yüreğinize sağlık.

 

[Filose]

Yardımcı olabilecek arkadaş var mı acaba?
Teşekkür ederim.

 

[veyselemre]

Dosya aktar sayfanızdaki A502;C502 deki hücre birleştirmesini kaldırın, Toplam yazısını B ye veya C ye alın A hücresini boş bırakın, görünüm açısından rengini yeşil yapabilirsiniz,

For X = 2 To s1.Range("A65000").End(3).Row

satırında işlem a sütünundaki A502 yi son satır olarak gördüğü için işlem devam ediyor, a hücresini boş bıraktığınız zaman son fatura bilgisinin satırını son satır olarak kabul edecektir.

 

[Filose]

Veysel Emre bey merhaba,

İlginiz ve beceriniz için çok teşekkür ederim. Dediğiniz gibi sorun çözüldü.

Saygıyla kalın.