Belirli araklıklı satırlara değer atamak,

[webuyeislemleri]

Excel 2000 satırlı bir tablomuz var, grup kısmına 5 li satırlar halinde resimde göründüğü gibi her 5 satıra ortak değer yazdırmak istiyorum.

 

[Muhammet Okumuş]

=YUKARIYUVARLA(SATIR(A1)/5;0)
b2 hücresine uygulayınız.

 

[Muhammet Okumuş]

Sub grupla()
x = Range("a100").End(3).Row
Range("b2:b" & x) = "=roundup(row(a1)/5,0)"
Range("b2:b" & x) = Range("b2:b" & x).Value
End Sub

Makro olarak da bu kodu kullanabilrsiniz.

 

[webuyeislemleri]

TŞK.

Cevaplar için TŞK.

iyi çalışmalar.