Mouse imleci ile seçtiğim hücredeki veri silinsin

[ferhatgurbuz]

Ekteki dosyada da göreceğiniz gibi A ve B satırlarında veriler mevcut. Bu veriler maus imleci ile seçili hücre içerisindeki verilerin silinmesini istiyorum.

Böyle birşey mümkünmüdür kolay gelsin.

 

[BG]

Sayın ferhatgurbuz

Ekteki dosyada da göreceğiniz gibi A ve B satırlarında veriler mevcut. Bu veriler maus imleci ile seçili hücre içerisindeki verilerin silinmesini istiyorum.

Böyle birşey mümkünmüdür kolay gelsin.

doğru yorumladıysam bu şeklinde deneyiniz

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Selection.Clear
End Sub

 

[BG]

Sayın ferhatgurbuz

Ekteki dosyada da göreceğiniz gibi A ve B satırlarında veriler mevcut. Bu veriler maus imleci ile seçili hücre içerisindeki verilerin silinmesini istiyorum.

Böyle birşey mümkünmüdür kolay gelsin.

doğru yorumladıysam bu şekilde deneyiniz

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Selection.Clear
End Sub

 

[ferhatgurbuz]

Teşekkür ederim tam istediğim gibi. Emeğinize sağlık kolay gelsin

 

[ferhatgurbuz]

Sonradan birşey farkettim. Hücredeki veriye göre koşullu biçimlendirme yapmıştım. Bu şekilde silince koşullu biçimlendirmeler de gidiyor. Sadece hücredeki veriyi silmek için ne yapmak lazım.

Yada Sub Yerleştir()
[A1] = 1
[B1] = 2
[C1] = 3
[D1] = 4
[E1] = 5
[F1] = 6
[G1] = 7
[H1] = 8
[I1] = 9
[J1] = 10
[K1] = 11
[L1] = 12
[M1] = 13
[A2] = 1
[B2] = 2
[C2] = 3
[D2] = 4
[E2] = 5
[F2] = 6
[G2] = 7
[H2] = 8
[I2] = 9
[J2] = 10
[K2] = 11
[L2] = 12
[M2] = 13
End sub

Bu kod ile yerleştirme yaparken aynı zamanda renk de koyabilmek mümkünmüdür.

 

[Necdet]

Merhaba,

Gökhan Bey'in kodlarını aşağıdaki gibi deneyinizde ... bu kullanım şekli biraz sakat değil mi?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Selection.ClearContents
End Sub

 

[ferhatgurbuz]

Sağol hocam. Yok sakat değil zaten basit birşey ama çok işe yarayacak. teşekkürler kolay gelsin

 

[leumruk]

Sanırım, Necdet hocam sakat derken, alan sınırlandırması yapmamış olmanızı kastediyor. Bu şekilde sayfanın hangi hücresini seçerseniz, o silinir bilginiz olsun.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A1:H20]) Is Nothing Then Exit Sub
Selection.ClearContents
End Sub

Kodu bu şekilde kullanırsanız, sadece belirlediğiniz alnda silme işlemi gerçekleşir.