Aktif hücre koşulu ile satır silme

[Carpintero]

Merhabalar

Aktif olan hücreden önceki tüm satırları silmek için
bir kod gerekti kendim tam manası ile yapamadım
yardımcı olabilirseniz sevinirim.

İmlec 10 satırda diyelim 10. satır dahil
1-10 satırları silinecek

 

[Muzaffer Ali]

silmek için bir şart gerekiyor olmalı aksi taktirde imleç her hareket ettiğinde(ok tuşlarıyla yada mouse seçimi ile) üst satırlar silinir.

Sayfanın kod editörüne aşağıdaki kodları ekleyin

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Rows("1:" & Target.Row).Delete
End Sub

 

[Carpintero]

Teşekkür ederim alakanız için

Ben belirtmedim ama butona bağlamamız lazım
ilgili kodu. Bu imkanımız varmı acaba?

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sub Aktif_Satirdan_Önceki_Satirlarin_Tumunu_Sil()
    Dim Onay As Byte
    
    Onay = MsgBox("1. satırla " & ActiveCell.Row & ". satır arası silinecektir!" & Chr(10) & Chr(10) & "İşlemi onaylıyor musunuz?", vbCritical + vbYesNo)
    If Onay = vbNo Then Exit Sub
    Rows("1:" & ActiveCell.Row).Delete
    MsgBox "Silme işlemi tamamlanmıştır.", vbInformation
End Sub

 

[Carpintero]

Çok teşekkür ederim sayın hocam.

Parantez içlerinde hep sorun yaşıyorum.
Müsaadenizle bir soru sorayım.

Aktif satır ve onun bir üstündeki satır kalsın diğerleri silinsin
isteseydik aşağıdaki satırda ne yapmamız gerekir idi.

Rows("1:" & ActiveCell.Row).Delete

 

[Muzaffer Ali]

Rows("1:" & ActiveCell.Row[COLOR="Red"]-1[/COLOR]).Delete

ancak eğer 1. satır seçiliyse hata verecektir.

 

[Carpintero]

Çok teşekkür ederim sayın dalgalıkur

iyi çalışmalar.