İzin türünü tek yada çift tıklama ile belirleme.

[deliceli]

Merhabalar;
İşyerinde kullandığımız izin formunu daha kolay kulanabilmek için zaman zaman yeni ilaveler yapıp daha da geliştirmeye çalışıyorum.önceden izin türünü belirlemek için klavyeden "x" işaretliyordum.Sonradan veri doğrulama ile seçim yaptım.
Şimdi ise fareyle tek veya çift tıklamayla izin türünü belirlemeye çalıştım.Fakat beceremedim.Fikirlerinizi ve yardımlarınızı bekliyorum.
Sağlık ve mutluluk diliyorum.

 

[Ayhan Ercan]

Merhaba

Böyle birşey olabilirmi?
Hücreye tek tık ile "x" getirebilmek için ( hücrede "x" varsa silinecek, yoksa "x" yazacak)
İlgili sayfanın kod penceresine;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [d4,f4,h4,j4]) Is Nothing Then Exit Sub
If Target = Empty Then
Target = "x"
Else
Target = Empty
End If
End Sub

 

[Orion1]

Çift tıklama ile dosyanız ekte.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [D4,F4,H4,J4]) Is Nothing Then Exit Sub
If Target.Value <> Empty Then
    Target.Value = Empty
    Else
    Target.Value = "X"
End If
Cancel = True
End Sub

 

[deliceli]

Merhaba

Böyle birşey olabilirmi?
Hücreye tek tık ile "x" getirebilmek için ( hücrede "x" varsa silinecek, yoksa "x" yazacak)
İlgili sayfanın kod penceresine;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [d4,f4,h4,j4]) Is Nothing Then Exit Sub
If Target = Empty Then
Target = "x"
Else
Target = Empty
End If
End Sub

Sayın Ayhan bey cevabınız için teşekkür ederim.
Yazmış olduğunuz makro d4,f4,h4,j4 hücrelerine aynı anda tek tık ile "x" getiriyor.tekrar üzerine tıklayınca siliyor.
Halbuki izin türünden sadece birini seçebileceğimizden dolayı fare ile tıklaynca tıkladığımız hücreye "x" getirmesi, diğer hücrelerin boş olması lazım.Yani dört şıktan ancak bir tanesini seçmemiz gerekiyor.Umarım düşüncemi anlatabilmişimdir.Esenlikler dilerim.

 

[Ayhan Ercan]

OptionButton kullanmayı denedinizmi?

 

[Ayhan Ercan]

OptionButton ile ilgili örnek ektedir.
İnceleyiniz...

 

[deliceli]

Çift tıklama ile dosyanız ekte.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [D4,F4,H4,J4]) Is Nothing Then Exit Sub
If Target.Value <> Empty Then
    Target.Value = Empty
    Else
    Target.Value = "X"
End If
Cancel = True
End Sub

Sayın Evren bey; ben ayhan beye cevap yazarken sizde cevap yazmışsınız.
Cevabınız için çok teşekkür ederim.fakat Ayhan beye dediğim gibi fare ile tıklaynca tıkladığımız hücreye "x" getirmesi, diğer hücrelerin boş olması lazım.Yani dört şıktan ancak bir tanesini seçmemiz gerekiyor.Umarım düşüncemi anlatabilmişimdir.Esenlikler dilerim.

 

[Ayhan Ercan]

Sayın Evren bey; ben ayhan beye cevap yazarken sizde cevap yazmışsınız.
Cevabınız için çok teşekkür ederim.fakat Ayhan beye dediğim gibi fare ile tıklaynca tıkladığımız hücreye "x" getirmesi, diğer hücrelerin boş olması lazım.Yani dört şıktan ancak bir tanesini seçmemiz gerekiyor.Umarım düşüncemi anlatabilmişimdir.Esenlikler dilerim.

6 nolu mesajdaki dosyayı inceledinizmi?

 

[deliceli]

OptionButton kullanmayı denedinizmi?

Sayın Ayhan bey;Dosyayı inceledim.OptionButton önerinizde çok güzel ve kullanışlı.Ancak izin formunun orjinali kare şeklinde.Çözüm olmazsa OptionButtonu da kullanabilirim.
Benim amacım, bu düşüncemin olup olmayacağını şayet olursa öğrenmeyi ve gerektiğinde başka dosyalarda da kullanmak idi.İlgi ve alakanızdan dolayı çok teşekkür eder mutluluklar dilerim....

Öneri ve çözümlerinizi bekliyorum.

 

[Orion1]

Sayın Evren bey; ben ayhan beye cevap yazarken sizde cevap yazmışsınız.
Cevabınız için çok teşekkür ederim.fakat Ayhan beye dediğim gibi fare ile tıklaynca tıkladığımız hücreye "x" getirmesi, diğer hücrelerin boş olması lazım.Yani dört şıktan ancak bir tanesini seçmemiz gerekiyor.Umarım düşüncemi anlatabilmişimdir.Esenlikler dilerim.

Dosyanız ekte.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [D4,F4,H4,J4]) Is Nothing Then Exit Sub
Range("D4,F4,H4,J4").Value = Empty
If Target.Value <> Empty Then
    Target.Value = Empty
    Else
    Target.Value = "X"
End If
Cancel = True
End Sub

 

[deliceli]

Sayın Evren bey;

Kodlar için çok teşekkür ederim.Benimle beraber forumdaki diğer arkadaşlarında faydalanacağına eminim.Ellerine sağlık.Hayırlı çalışmalar.
Sağlı, mutluluk ve esenlik dolu yıllar dilerim...

 

[Orion1]

Sayın Evren bey;

Kodlar için çok teşekkür ederim.Benimle beraber forumdaki diğer arkadaşlarında faydalanacağına eminim.Ellerine sağlık.Hayırlı çalışmalar.
Sağlı, mutluluk ve esenlik dolu yıllar dilerim...

Rica ederim.
İyi yıllar.