excelde buton ile satır silme

[Ferhat69]

merhaba ömer bey, bir konuda yardımınızı istirham edeceğim diyelim ki C3 hücresinde belirteceğim satır numaralarını makro olarak oluşturduğum butonla satırı silebilir miyim makro ile satırlara kayıt yapabiliyoruz ama kayıt silmek sorun oluyor.yardımlarınız için teşekkür ederim..

 

[AdemCan]

Merhaba, örnek kod.

Private Sub CommandButton1_Click()
    Rows(Range("C3")).Delete Shift:=xlUp
End Sub

 

[Ferhat69]

Merhaba, örnek kod.

Private Sub CommandButton1_Click()
    Rows(Range("C3")).Delete Shift:=xlUp
End Sub

Cevabınız için teşekkür ederim.çalıştı süpersiniz.

 

[Ferhat69]

Merhaba, örnek kod.

Private Sub CommandButton1_Click()
    Rows(Range("C3")).Delete Shift:=xlUp
End Sub

Adem bey bu sayfayı korumaya aldığımda, butona bastığımda önce sayfanın korumasını kaldırıp (şifre342569)sabit olabilir.sonra sizin yazdığınız program çalışıp sileceği satırı önce silinenler sayfasına yapıştırsa, sonra silse ve sayfayı tekrar korumaya alsa,olabilir mi?

 

[dEdE]

Merhaba,
Dosyanızda "Sayfa1" ve "Silinenler" isimli iki sayfa olduğunu varsaydım.
Safa1-C3 hücresindeki kilidi kaldırmalısınız. (C3 seçili iken sağ tık/hücreleri biçimlendir/koruma sekmesi/kilitli-->onay işaretini kaldıralım)
Aşağıdaki kodu bir modüle kopyalayıp deneyelim.

Sub Sil()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Silinenler")
    ss = s2.Cells(Rows.Count, "A").End(3).Row + 1
    s1.Unprotect Password:="342569"
    s1.Rows(Range("C3")).Cut s2.Range("A" & ss)
    s1.Rows(Range("C3")).Delete
s1.Protect Password:="342569"
End Sub

 

[Ferhat69]

Merhaba,
Dosyanızda "Sayfa1" ve "Silinenler" isimli iki sayfa olduğunu varsaydım.
Safa1-C3 hücresindeki kilidi kaldırmalısınız. (C3 seçili iken sağ tık/hücreleri biçimlendir/koruma sekmesi/kilitli-->onay işaretini kaldıralım)
Aşağıdaki kodu bir modüle kopyalayıp deneyelim.

Sub Sil()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Silinenler")
    ss = s2.Cells(Rows.Count, "A").End(3).Row + 1
    s1.Unprotect Password:="342569"
    s1.Rows(Range("C3")).Cut s2.Range("A" & ss)
    s1.Rows(Range("C3")).Delete
s1.Protect Password:="342569"
End Sub

evet oldu teşekkür ederim.Allah zihin açıklığı versin.Hayran kaldım nazar değmesin. Maşalllah