N Sütununda son "İçi" yazan satrın altına bir satır ekle

[hsayar]

N Sütununda son "İçi" yazan satrın altına bir satır ekle
ve

Mesala N115 içi ise N 115 in altına bir boş satır eklemek mümkünüdür.

 

[hsayar]

Sub ArananSonSat()
Aranan = "İçi"
If Aranan = "" Then Exit Sub
satir = Worksheets("Sayfa1").Range("n:n").Cells.Find(Aranan, Worksheets("Sayfa1").Range("n200"), xlFormulas, xlPart, xlByRows, xlNext, False, False).Row
MsgBox satir
End Sub

Yukarıdaki kodlar ile ilk içi yazan satırın numarasını elde edebiliyorum.

peki son içi yazan satırın numarasının nasıl elde edeceğim.

 

[Mahmut Kök]

N Sütununda son "İçi" yazan satrın altına bir satır ekle
ve

Mesala N115 içi ise N 115 in altına bir boş satır eklemek mümkünüdür.

Sub İÇİ()
For a = [n65536].End(3).Row To 1 Step -1
If Cells(a, "n") = "İçi" Then
Rows(a + 1).Insert
Exit Sub
End If
Next
End Sub

 

[hsayar]

Teşekkür ederim hocam aşağıdaki gibi daha çok işime yarayacak.

Sub İÇİ()
For a = [n65536].End(3).Row To 1 Step -1
If Cells(a, "n") = "İçi" Then

'Rows(a + 1).Insert
Exit For
End If
Next
MsgBox a
End Sub