maus ile tikladigimda X cikmasi

[arivo]

selam arkadaslar,benim bir sorunum var,misal maus ile a1 hücresinden e15 hücresine kadar tikladigim zaman X isareti cikmasini istiyorum,bunu yapmanin bir mümkünati varmi acaba excel de.
simdiden tskler

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu ilgili sayfanın kod bölümüne uygulayıp denermisiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, [A1:E15]) Is Nothing Then Exit Sub  'Seçili hücre "A1:E15" aralığında değilse işlemi sonlandır.
    If Target.Count > 1 Then Exit Sub  'Birden fazla hücre seçildiğinde "X" yazmamasını sağlayan kod satırıdır.
    If Target.Row = 12 And Target.Column > 1 Then Exit Sub  'B12,C12,D12,E12 hücrelerine "X" yazmasını engelleyen kod satırıdır.
    Target = "X"  'Seçili hücreye "X" yaz.
End Sub

 

[arivo]

hocam cok sagol,bir zahmet bunun aciklamasinida yazarmisin kenarina baska sekildede kullanip ögrenebilmem icin .Tam istedigim buydu cok sagol genede

 

[Korhan Ayhan]

Selamlar,

Satır yanlarına gerekli açıklamaları yazdım. İncelermisiniz.

 

[arivo]

ustam cok sagol,bu hücreler icinde b12,c12,d12,e12 hücresine tikladigimda x yazmayacak,onu söylemeyi unutmusum cok özür,bunu nasil yapabilirim acaba
yardiminiz icin simdiden tskler

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu güncelledim. İncelermisiniz.

 

[Orion1]

ustam cok sagol,bu hücreler icinde b12,c12,d12,e12 hücresine tikladigimda x yazmayacak,onu söylemeyi unutmusum cok özür,bunu nasil yapabilirim acaba
yardiminiz icin simdiden tskler

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, [A1:E15]) Is Nothing Then Exit Sub  'Seçili hücre "A1:E15" aralığında değilse işlemi sonlandır.
    If Target.Row = 12 And Target.Column >= 2 And Target.Column <= 5 Then Exit Sub
    Target = "X"  'Seçili hücreye "X" yaz.
End Sub

 

[arivo]

ustam cok sagol bu hücreleri istedigim gibi yazabiliyorum tam aradigim gibi yardimin icin tekrar yardimci olan arkadaslara tskler

 

[Orion1]

ustam cok sagol bu hücreleri istedigim gibi yazabiliyorum tam aradigim gibi yardimin icin tekrar tskler

Rica ederim.
İyi çalışmalar.