Alttakİ HÜcrede Olan Verİyİ Yenİ Bİr Sutun AÇip Dolu HÜcrenİn Yanina Aktarmak

[deliceli]

Merhabalar;
Arkadaşlar, hepinize esenlikler dilerim.
Örneğin; A sutunundan F sutununa kadar bütün hücrelerde veriler var.Bütün sutun ve hücreler dolu.
A2, A4, A6, deki verileri B1, B3, B5 hücrelerine aktaran bir makro yazmak istedim ama bir türlü beceremedim.
Dosyayı ekledim.1.sayfadaki sarı renkli olan hücreleri öbür sayfadaki gibi olması acaba mümkünmü.Sizlere zahmet incelemenizi rica ediyorum.
Hiç bir zaman bizlerden esirgemediğiniz paylaşımlarınızı bekliyorum.Teşekkürlerimi sunarım.

 

[deliceli]

Arkadaşlar Dosyayı ekledim.Teşekkürler.

 

[deliceli]

Arkadaşlar çok özür dilerim. dosyayı galiba şimdi ekliyorum.

 

[Mahmut Kök]

Aşağıdaki kodları deneyeniz.

Sub taşı()

For a = 3 To 256 Step 2
If Cells(2, a - 1) = Empty Then Exit Sub
Columns(a).Insert
    For b = 3 To Cells(65536, a - 1).End(3).Row Step 2
    Cells(b, a - 1).Cut
    Cells(b - 1, a).Select
    ActiveSheet.Paste
    Next
Next
End Sub

 

[deliceli]

Merhabalar;
Sayın Mesleki paylaşımın için çok teşekkür ediyorum.Bu excel varya gerçekten şahane.Excell ile yapılmayan hemen hemen hiç bir şey yok gibi.
Sağlık ve esenlikler dilerim.