Satır eklemek ve satır silmek.

[yavuz829]

Merhaba Hocalarım.

* 20 ile 27 inci satır arsında seçtiğim herhangi bir satırı silmek istiyorum. 20 ile 27 arası dışındaki satırları silmeme izin vermesin.

*Satırı sildiğim zaman 26. satırın altına bir satır eklesin ve 26 nci satırdaki formülleri kopyalayarak yeni eklenen 27. nci satıra yapışırsın.

* 20 ile 27 inci satır arsında bir satır eklediğim zaman 27. ci satırı silsin.

Bu konularda yardımlarınıza ihtiyacım var. Yardımlarınız için şimdiden teşekkürler.

 

[yavuz829]

Arkadaşlar aşağıdaki kod ile A hücresinde X olan satırları siliyorum.

A hücresinde x olan bütün satırları bir defada siliyor.

Benim istediğim A hücresinde 2 rakamı olan satırı seçip tek seçili olan satırı silmek istiyorum. Yani A hücresinde 2 rakamı olan satırları tek, tek silmek istiyorum.

Her satır sildiğim zaman A hücresinde 3 rakamı olan satırın bir üstüne bir yeni satır eklesin ve A hücresinde 3 olan satırdaki verileri kopyalayarak yeni eklenen satıra yapıştırsın.

Sub sil()
For x = [k65536].End(3).Row To 1 Step -1
If Cells(x, "k") = "x" Then Rows(x).Delete shift:=xlUp
Next
End Sub