Silinen Hücrenin Değerini Almak

[ferimatrix]

Delete ile silinen hücrenin silinmeden önceki değerini alıp, silinen değer olarak belirlediğimiz A2 hücresine yazacağız. Yani delete tuşu önce kopyalama yapacak, değeri başka bir hücreye atacak ve sonra silecek.
Şimdiden çok teşekkürler.

 

[Emir Hüseyin Çoban]

. . .

Boş bir modüle aşağıdaki kodları yapıştırın. Kodların aktif olması için. Tablonuzu kaydedip kapatıp, açın.

Sub auto_open()
Application.OnKey "{Delete}", "sil"
End Sub

Sub sil()
Range("a2") = ActiveCell.Value
ActiveCell.Value = Empty
End Sub


Sub auto_close()
Application.OnKey "{Delete}"
End Sub

. . .

 

[asi_kral]

Merhaba
Kitabınızın kod bölümünde boş bir module oluşturun. Ve bu kodu kopyalayıp deneyin.

Option Explicit
Sub auto_open()
Application.OnKey "{Del}", "Deneme"
End Sub
Sub deneme()
Range("A2") = ActiveCell
ActiveCell = ""
End Sub