Satır Açmak ve Üst Satırdaki Yazanı Yazdırmak

[Trilenium]

Merhaba,

111
111 01
111 01 01

Bu ve buna benzer sekilde hesap Kodlarım var yaklasık 1000 taneye yakın.

Ben şöyle birşey yapmak istiyorum

111
111 01
111 01 01
111 99

Bunu yapabilmem icin bir satır açtırmam gerekli...cunkü hesap kodları asagıdaki gibi devam etmektedir.Ben araya girip bir satır acıp bir üst satırdaki kodu alıp yan bloga 99 yazdırmak istiyorum

111
111 01
111 01 01
112
112 01
112 01 01
118
118 01
118 01 01
120

 

[dEdE]

Merhaba,
Örnek dosya eklerseniz daha kolay çözüm bulabiliriz. Verdiğiniz rakamlara göre, her üç satırdan sonra satır eklenecek gibi görünüyor. Ya da satır eklemeden önceki veriniz 7 adet rakamdan oluşmuş gibi. Bunu(kuralı) tam olarak bilirsek çözüm kolay.
Saygılar.

 

[Trilenium]

Ben Bi Noktaya kadar geldim...yürümeye devam ediyorumyinede ek bilgi iyi olur

Evet Kuralı satırı 7 olup birbirine baglı olanları yapmak.....

 

[dEdE]

Merhaba,
Dosyanız ektedir
Kolay gelsin.

 

[Trilenium]

Olmadı...

Neden derseniz

120 Alicilar p 0000 120 3
120 01 Alicilar H p 0000 12001 5
120 01 01 Alicilar D p 0000 1200101 7
120 99
120 01 02 Diger Alicilar D p 0000 1200102 7

simdi buradaki mantıkta yanlış olur cunku 120 01 grubuna ait 2 tane hesap var dikkat edersneiz mesele 120 01 bittikten sonra açabilmek...

 

[Trilenium]

Problemimi çözdüm

Çözerkende şu yöntemi izledim,

Başlangıcı ve bitişi aynı olan uzunlugu 5 olan hesapların ilk satırını bulup bir renge boyadım...

daha sonra renkli olan satırların en sonunda bir kolona "1" diye bir rakam ataması yaptım...
daha sonrada for ile döngüye girdim döngüde dikkat ettigim nokta ise işlemi biten satırın iz degeri olan " rakamını kaldırmak oldu...

kod blogu aşagıdadır

For i = 1 To 1500


If Range("L" & i).Value = 1 Then

Rows(i & ":" & i).Select
Selection.Insert Shift:=xlDown
Range("C" & i).Value = Range("C" & i - 1).Value
Range("D" & i).Value = "99"
Range("g" & i).Value = "T"
Range("L" & i + 1).Value = ""

End If

Next i