Değere Göre Satır insert Etme ve Doldurma

[ottoman71]

Arkadaşlar ekteki dosyada A sütunumda 38 olan değerlerin bir alt satırına 0 (sıfır) rakamı insert etmek istiyorum. Yalnız hiç bir şey silinmeyecek.

Yardımcı olabilir misiniz.

 

[Ömer]

Merhaba,

Sub AraEkle()
Dim i As Long
    For i = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
        If Cells(i, "A") = 38 [COLOR=red]And Cells(i + 1, "A") <> 0[/COLOR] Then
            Rows(i + 1).Insert Shift:=xlDown
            Cells(i + 1, "A") = 0
        End If
    Next i
End Sub

Bu şekilde deneyiniz. Eğer 38 değerinin altında sıfır olduğu halde ekleme olacaksa kırmızı bölümü silersiniz..

.

 

[ottoman71]

Merhaba,

Sub AraEkle()
Dim i As Long
    For i = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
        If Cells(i, "A") = 38 [COLOR=red]And Cells(i + 1, "A") <> 0[/COLOR] Then
            Rows(i + 1).Insert Shift:=xlDown
            Cells(i + 1, "A") = 0
        End If
    Next i
End Sub

Bu şekilde deneyiniz. Eğer 38 değerinin altında sıfır olduğu halde ekleme olacaksa kırmızı bölümü silersiniz..

.

Ömer Hocam,

Çok teşekkür ederim. Ellerinize sağlık.