checkboxa komut atama

[zulfuernek]

http://dosya.co/dgvqqjl469i7/DEVRE_ÇALIŞMASI.xlsm.html

ekteki dosyada mevcut örnek dosya mevcut.

userform üzerinde butonlar mevcut. butonlardaki kodlar sorunsuz çalışıyor fakat ben bunları buton yordamıyla değilde checkbox yordamıyla yapmak istiyorum. hangi buton checkbox seçiliyse o görevi yerine getirsin. eğer hiçbir checkbox seçili değilse bch sekmesindeki ve ktmh sekmesindeki tüm verileri devresonu sekmesinde birleştirsin.

ilgilenen arkadaşlara teşekkür ederim

 

[alicimri]

İlk CheckBox için aşağıdaki kodu kullanın diğerlerini siz ayarlarsınız.

Private Sub CheckBox1_Click()
If CheckBox1 = True Then
 Sheets("DEVRESONU").Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Sheets("BCH").Select
    
    Range("A1:F5000").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("DEVRESONU").Select
    
    Range("A2").Select
    ActiveSheet.Paste
    Range("A1").Select
    MsgBox "BCH sayfasındaki veriler getirilmiştir"
    End If
End Sub