toggle button'u üç koşullu kullanma

[Yesilyurtlu]

toggle button ile
A için seçiniz denildiği zaman M:V arasını getirsin
B için seçiniz denildiği zaman Y:AI arasını getirsin
C için seçiniz denildiği zaman Sadece A:C arasını getirsin
Böyle bir işlem için hangi kodu yazmalıyız?
Yardımcı olabilir misiniz?

 

[Ömer]

Merhaba,

Bence bu şekilde kullanışlı olmaz. 3 seçenek olduğu için doğru seçeneği bulmak için sürekli butona basmanız gerekir.

Bana göre ya butona basınca 3 farklı seçenekli form çıksın form üzerinden istediğiniz butonu kullanın ya da butona basınca inputbox seçeneği ile şartı yazarak listeleyin.

Hangi seçenek size uygunsa ona göre bir örnek hazırlayabilirim.

 

[Murat OSMA]

Belki CommandButton'un Click - MouseDown (if button = 2) ve DoubleClick olaylarıyla istenilen işlem yaptırılabilir ama DoubleClick yaparken, Click olayı da devreye giriyor mu onu bir denemek gerek... :dusun: :dusun:
Ya da ToogleButton True + False + RigthClick kullanılbilir...

 

[Yesilyurtlu]

Ömer Uzmanım;
Sizce en uygunu hangisi ise ona göre örnek hazırlayın. Ancak ikisine de örnek dersem terbiyesizlik yapmış olur muyum?

 

[Yesilyurtlu]

Ömer abi;
Örnek dosya yükleyecektiniz unuttunuz galiba.

 

[Ömer]

Unutmadım, yoğundum bakamadım.

"M:V arasını getirsin" buradaki getirsinden kastınız nedir?

 

[Yesilyurtlu]

Ömer abi;
m:v aralığı branş
y:aı aralığı sınıf
a:c aralığı idari kadrolar

 

[Ömer]

Sorum bu değildi.

Getirmekten kastır nedir. Nereye getircek? Bu kısmı açarmısınız.

 

[Yesilyurtlu]

Ömer abim;
ekli dosyada mevcut.
Seçtiğim kadro sürekli aynı yere gelecek şekilde olmalı.

 

[Yesilyurtlu]

İlgi ve alakanız için teşekkür ederim.
Sağolasın ömer abim

 

[Ömer]

Bu işlem için bence butona gerek yok.

Sayfanın kod bölümüne kopyalayın. Sayfadaki doğrulamadan norm seçtiğiniz zaman kod çalışır ve istediğinizi yapar.

İnceleyip yeterli olup olmadığını açıklarsanız ona göre diğer seçimleri yaparım.

Private Sub Worksheet_Change(ByVal Target As Range)
 
    Dim c As Range
 
    If Intersect(Target, [E8]) Is Nothing Then Exit Sub
 
    Application.ScreenUpdating = False
 
    Set c = Range("U15:BK15").Find(Target, , xlValues, xlWhole)
 
    If Not c Is Nothing Then
        Range(Cells(15, c.Column), Cells(Rows.Count - 15, c.Column)).Select
        Selection.Copy Range("B12")
    End If
 
    Target.Select
    Application.ScreenUpdating = True
 
End Sub

.

 

[Yesilyurtlu]

Ömer abi sıkıntı yok teşekkür ederim.