Doğrulama ile aynı anda 2 işlem yapmak?

[Nox]

Doğrulama yontemi ile aynı anda, aynı hucrede işlem yapmak istiyorum.
Mesela, liste ve özel gibi. Aynı anda yapamıyorum, acaba vb ile bir cozum bulunabilirmi?

Yardımcı olursanız coook mutlu olucam, bi turlu işin icinden cikamadim, cildircam

 

[Necdet]

Veri Kontrolü

Merhaba

Veri Doğrulama ile C3:E3 arasında en fazla 1 değer girilmesini sağladım.

=COUNTA($C3:$E3)=1
=BAĞ_DEĞ_DOLU_SAY($C3:$E3)=1

İlgili sayfanın kod bölümüne ise çift tıklama ile X yazdırmayı yaptım.
Hangi kolonda X yazıyorsa diğer kolonları siliyor.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [C:E]) Is Nothing Then Exit Sub
Target = "X"
Select Case Target.Column
    Case 3
        Target.Offset(0, 1) = ""
        Target.Offset(0, 2) = ""
    Case 4
        Target.Offset(0, -1) = ""
        Target.Offset(0, 1) = ""
    Case 5
        Target.Offset(0, -1) = ""
        Target.Offset(0, -2) = ""
End Select
End Sub

Ekteki Dosyayı İnceleyebilirsiniz

 

[Nox]

hocammm gercektennnn helal olsun
tam istedigim gibi olmadi ama yinede super oldu...

cooook tesekkur ederim,harikasin....
kolay gelsin....

 

[Necdet]

Sayın Nox,

Nasıl tam istediğiniz gibi olmadı? bence tam istediğiniz gibi oldu, hatta fazlası bile oldu

1. Seçeneklerden sadece birini işaretliyebiliyorsunuz.
2. İşaret karakteriniz çift tıklama ile sadece X oluyor, bence kullanımı daha iyi, çift tıkla yanlış seçenek gitsin dimi ya

neyse biraz tantana yapayım dedim, kolay gelsin

 

[Nox]

heheeh )üstadım teşekkur ederim, saygısızlık etmek icin soylemedim.

doğrulama gibi yani, combobox cikar gibi olmasini istiyodum ama olmuyor,hafta sonu biraz daha ugrastim,beceremedim.

ama bu şekildee tam super oldu )
tekrardan teşekkür ederim...