Virgül olan satırlar bozulmadan biralt satıra eklenmesi

[saracevic]

Merhabalar;

EKte dosyada makro çalıştıramadım hata bilgisi resmini çektim,yardımcı olabilir misiniz.TEŞEKKÜRLER.

 

[Necdet]

Merhaba,

Sorun sayfa adlarında. Ben Türkçe ofis kullandığınızı varsayarak Sayfa1, sayfa2 demişim, Siz Sheet1, Sheet2 kullanıyorsunuz.

Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")

Bu satırlardaki Sayfa'ları Sheet Olarak düzeltiniz.

 

[saracevic]

Merhaba,

Sorun sayfa adlarında. Ben Türkçe ofis kullandığınızı varsayarak Sayfa1, sayfa2 demişim, Siz Sheet1, Sheet2 kullanıyorsunuz.

Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")

Bu satırlardaki Sayfa'ları Sheet Olarak düzeltiniz.

Necdet bey hata sorununu halletim ancak,şimdi ekte ekran görüntüsü ve xls dosyayı gönderdim,bakabilir misiniz.TŞK.

 

[Necdet]

Nesine bakacağım?

 

[saracevic]

Nesine bakacağım?

Makro hatası çözüldü,ancak 1 satırda 10 dan fazla seri bilgisi gözükmekte,bunun çözümünü nasıl yapabiliriz.

 

[saracevic]

Necdet bey hata sorununu halletim ancak,şimdi ekte ekran görüntüsü ve xls dosyayı gönderdim,bakabilir misiniz.TŞK.

yardımcı olabilcek kimse yok mu acaba ?