aralık verme

[prodigy]

f4 hücresinde KODNO, f5,.....f10 =1, f11.....f25=2, f26......f80=3.....şeklinde verilerim var
aşağıdaki kod ile ;

Sub aralık()
A = Range("F65536").End(xlUp).Row
For Row = ATo 5 Step -1
If Cells(Row, 6).Value <> Cells(Row - 1, 6).Value Then Rows(Row).Insert
Next Row
end sub

yukarıdaki kod ile f sutunundaki bu farklı değerler arasına bir satır eklemektedir. (Ara Toplam gibi)
ancak for row= A to 5 step -1 kodunda 5 yerine ne yazmalıyımki 5 satırdan değilde f sutunundaki 1 ile 2 değer arasında başlayarak her farklı değer arasına 5 satır ilave etsin

 

[carpediem]

sorunuzu tam net olarak anlamasam da anladım. çözüm olarak her farklı değer için tek tek döngü kuracaksınız. ve bu döngüde ilk değerle alttaki satırın değerini karşılaştırma işlemi yapacaksınız. farklı olduğu noktada satır ilave ettirip farklı olduğu değeri değişkene atayacaksınız ve bu A değerine kadar dönecek.

bilmiyorum anlatabildim mi ancak dosyanızı gönderebilirseniz. çözümünü üzerinde gönderebilirim.

kolay gelsin.

not: step -1 mantığı yanlış olur. başlık satırının altından son satıra kadar şeklinde bir döngü kurulması gerekir. 5 satır için içinde ayrı bir döngü olacak.

 

[prodigy]

ilginize teşeşkürler dosyayı incelerseniz sevinirim
saygılarımla

 

[AS3434]

Sn prodigy

Bu yapmaya çalıştığınız YEŞİL DEFTER gibi birşey mi?