Bir sütundaki verilerin aralarına 4 er satır eklemek

[CaN12370]

Merhabalar, kaç saattir uğraşıyorum beceremedim yarına teslim etmem gereken bir proje.
Aralarında boşluk bulunmayan bir sütun verilerini, her veri arası 4 satır boşluk bırakacak şekilde genişletmek istiyorum. Makro kullanmayı bilmiyorum kodlarla da beceremedim.

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz.

Sub Yaz()
 
    Dim i   As Long, _
        j   As Long
 
    j = 3
 
    For i = 3 To Cells(Rows.Count, "A").End(3).Row
        Cells(j, "F") = Cells(i, "A")
        j = j + 5
    Next i
 
End Sub

Fonksiyonlarla yapmak isterseniz

F3

=EĞER(MOD(SATIR(A3);5)=3;DOLAYLI("A" & TAMSAYI(SATIR(A3)/5)+3);"")

Bu formülü de aşağıya doğru kopyalayınız.

 

[CaN12370]

Öncelikle çok teşekkür ediyorum fakat f3 sütununa verdiğiniz fonksiyonu yazdığımda hata vermekte. Ben mi birşeyi eksik yapıyorum acaba?

 

[Necdet]

Öncelikle çok teşekkür ediyorum fakat f3 sütununa verdiğiniz fonksiyonu yazdığımda hata vermekte. Ben mi birşeyi eksik yapıyorum acaba?

Büyük olasılıkla yanlış yazdınız ya da Türkçe ofis kullanmıyorsunuz.

Hatanın nedenini de yazsaydınız çözüme ulaşmanız daha hızlı olurdu.

 

[CaN12370]

Makro çalışıyormuş. O kadar denedim olmadı kapatmıştım. Eve geldim projeyi teslim ettim şimdi size fotosunu çekmek için açtım. Aç kapa yapınca makroyu uygulamış Neyse bir sonrakinde çok işime yarayacak çok teşekkür ederim fonksiyonda şu resimdeki şekilde hata veriyordu. Tekrardan çok teşekkür ediyorum sağolun

 

[Necdet]

Merhaba,

Dosyayı inceleyiniz. Son satırlara doğru boş satır sayısı biraz düşmüş ama formülü görünce anlarsınız.

 

[CaN12370]

Teşekkür ederim biraz geç kalmış teşekkür oldu.