dolu hücreleri yan yana aktarsın

[limanC34]

Selam Arkadaşlar
Ekteki örnekteki gibi mavi sütunlar sabit kalıp ikinci sayfaya boş hücreler atlanıp dolu hücreler yan yana yazdırılmak şartıyla aktarılabilirmi?

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub aktar()
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
For a = 3 To s1.[a65536].End(3).Row
s1.Rows(a).Copy s2.Rows(a - 2)
s2.Range("D" & a - 2 & ":N" & a - 2).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
Next
End Sub

 

[limanC34]

Sayın leventm
İlgi ve çözümünüz için teşekkür ederim.Ancak daha önce ( 3 userformdan checkboxla boşluksuz kayıt) adlı başlıkla açtığım soruma cevap gelmediğinden bende çözüm alternatifleri aradığımdan böyle bir soru yönelttim.Çözüm çok çok güzel ama ikinci bir iş gerektiriyor,sayfalar arası aktarım gibi.Eğer 3 userformdan checkboxla boşluksuz kayıt yaptırma soruma bir çözüm bulabilirseniz çok sevinirim.
Saygılarımla.