Dolu Satır Aralarına Nasıl Boşluk Bırakırım ?

[ReaLioN]

Merhabalar,

Ekte ki resimde ki gibi A Sütununda ki satırlar arasına ilk önce birer boşluk bıraktırıp C Sütununda ki gibi bir dolu bir boş olarak sıralamak istiyorum. Sonrasında E Sütununda ki veriyi bıraktığım bu boşluklara yazdırmak istiyorum.

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

Resim olarak eklememe izin vermedi, link aşağıda ki gibidir
https://hizliresim.com/YbWu52

 

[Ömer]

Merhaba,

Deneyiniz.

Sub deneme()

    Dim i As Long
    
    Application.ScreenUpdating = False
    For i = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
        Rows(i).Insert Shift:=xlDown
        Cells(i, "A") = Range("E1")
    Next i
    
End Sub

 

[ReaLioN]

@Ömer makro ile çalışmamıştım daha önce ama araştırarak bunu denemeye çalışayım. 2 işlem için 2 ayrı formül şeklinde olsaydı aslında daha rahat ederdim. Teşekkür ederim

 

[Ömer]

Ben yanlış anlamış olabilirim. Makro işlemi yardımcı sütuna gerek kalmadan A sütununda yapıyordu.

Sonucları C de formülle görecekseniz;

C1 hücresine yazıp alt satırlara kopyalayın.

=EĞER(MOD(SATIRSAY($C$1:C1);2)=0;$E$1;KAYDIR($A$1;YUKARIYUVARLA(SATIRSAY($C$1:C1)/2;0)-1;0))

 

[ReaLioN]

@Ömer Hocam ilginize teşekkür ederim tekrardan. Formül sorunsuz şekilde çalıştı.

Saygılar,