Hücre İçine Döngü ile Yazdırma

[cevatyildiz]

Merhaba,

Ekteki çözümde istediğim tam olarak gerçekleşiyor fakat son bir defa Chr(10) ile bir alt satır oluşturuyor. Her defasında J ve K sütunlarındaki hücrelerde boş bir satır oluşsun istemiyorum. Kod nasıl düzeltilebilir?

https://dosya.co/mu33u81ujmx9/_Calisma.xls.html

Yardımlarınız için şimdiden teşekkür ederim.

 

[ÖmerBey]

Merhaba,
Kodunuzdaki ilgili satırları aşağıdaki şekilde değiştiriniz ve K sütununu metin olarak biçimlendiriniz.

yazi_tar = yazi_tar & Chr(10) & Cells(satir, "CA")
yazi_deg = yazi_deg & Chr(10) & Cells(satir, "CE")

Cells(say, "j") = Mid(yazi_tar, 2)
Cells(say, "k") = Mid(yazi_deg, 2)

 

[cevatyildiz]

Merhaba Ömer Bey,

çok teşekkür ederim, ellerinize sağlık!

 

[cevatyildiz]

Ömer Bey bir sorum daha olacak.

Sıfır adetli farklı görünen tarihleri de aldırabilir miyiz?

 

[ÖmerBey]

Sıfır adetli farklı görünen tarihleri de aldırabilir miyiz?

Maalesef, defalarca dosyanıza ve kodlarınıza baktım ama anlayamadım.
Konu hakkında bilgisi olan bir arkadaş yardımcı olacaktır.