Koşullu Satır Aç

[baydeniro]

Merhaba Arkadaşlar

Aşağıdaki kod ile E sütununda "Toplam" yazılı satırların üstüne 1 satır açıyor. Gayet güzel çalışıyor. Ama benim ihtiyacım "Toplam" yazılı satırların ALTINA 1 satır açması için kodu nasıl değiştirmem lazım acaba ?

Sub SATIRAC()
For satir = [E100].End(3).Row To 4 Step -1
If Range("e" & satir) = "TOPLAM" Then Rows(satir).Insert
Next
satir = [a100].End(3).Row

For i = 2 To satir
Next
End Sub

 

[çıtır]

Satırı aşağıdaki şekilde değiştiriniz.

If Range("e" & satir - 1) = "TOPLAM" Then Rows(satir).Insert

 

[baydeniro]

çıtır üstadım, çok teşekkür ediyorum, sağolun, varolun, sağlıcakla kalın

 

[çıtır]

çıtır üstadım, çok teşekkür ediyorum, sağolun, varolun, sağlıcakla kalın

Rica ederim.Dönüş yaptığınız için teşekkür ederim.