Onay kutusu ile makro çalıştırma

[ASLAN7410]

Herkese hayırlı sabahlar, hayırlı pazarlar.

Arkadaşlar aşağıdaki kodlar sayfaları gizle ve göster kodları, bu kodları onay kutusu butonu ile çalıştırabilir miyiz?

Yardım edecek arkadaşlara şimdiden çok teşekkür ediyorum.

Sub SAYFAYIGİZLE()
    Sheets("LİSTE").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("ARŞİV").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("VERİ").Select
    Range("B2").Select
End Sub

Sub SAYFAYIGÖSTER()
    Sheets("LİSTE").Visible = True
    Sheets("ARŞİV").Visible = True
    Sheets("VERİ").Select
    Range("B2").Select
End Sub

 

[Emir Hüseyin Çoban]

Sayfa üzerinde 2 çeşit onay kutusu vardır.
Activex ve form denetimi.
Hangisini kullanmak istiyorsunuz.

.

 

[ASLAN7410]

Hüseyin Bey ilginiz için çok teşekkür ediyorum.
Form Denetimleri'deki Onay Kutusunu kullanmak istemiştim.

 

[Emir Hüseyin Çoban]

. . .

KOD makrosunu onay kutusuna atayınız.
Örnekte hücre bağlantısı A1 hücresidir.

Sub KOD()
    If Sheets("VERİ").Range("[B]A1[/B]") = True Then
        Call SAYFAYIGİZLE
    Else
        Call SAYFAYIGÖSTER
    End If
End Sub


Sub SAYFAYIGİZLE()
    Sheets("LİSTE").Visible = False
    Sheets("ARŞİV").Visible = False
    Sheets("VERİ").Select
End Sub

Sub SAYFAYIGÖSTER()
    Sheets("LİSTE").Visible = True
    Sheets("ARŞİV").Visible = True
    Sheets("VERİ").Select
    Sheets("VERİ").Range("B2").Select
End Sub

. . .

 

[ASLAN7410]

Hüseyin Bey yazdığınız kodu aşağıdaki gibi düzenledim çok işime yaradı, ancak küçük bir sorum olacak.

Butona bastığımda aynı buton üzerinde GİZLENDİ, tekrar bastığımda GÖSTERİLDİ şeklinde nasıl yaparım.

Sub GİZLE_GÖSTER()
    If Sheets("VERİ").Range("A1") = True Then
    Sheets("LİSTE").Visible = False
    Sheets("ARŞİV").Visible = False
    Sheets("VERİ").Select
Else
    Sheets("LİSTE").Visible = True
    Sheets("ARŞİV").Visible = True
    Sheets("VERİ").Select
    Sheets("VERİ").Range("B2").Select
End If
End Sub

 

[ZorBey_]

Denermisiniz.

 

[ASLAN7410]

Sayın ZorBey çok teşekkür ederim hayırlı akşamlar.

 

[ZorBey_]

Kolay gelsin iyi çalışmalar.