Excel sayfasındaki butonları pasif yapma

[u.L.a.s]

Merhabalar

Bir excel sayfamda 3-5 tane macro atanmış butonum var. her butonun ayrı bir işlevi var.

Bu butonlar Sheet1 de
ilk butona tıklayınca Sheet1 deki D1 deki veri Sheet2 de A1 hücresine yazılsın

ben ilk butonuma diyelimki başka bir iş için tıkladım tabi bu sırada Sheet1 deki D1 hücresindeki veride değişmiş oluyor bu veriyi sheet2 de A2 ye yazsın

her tıkladığımda bu şekilde A5 e kadar devam etsin. ve Sheet2 de A5 tede veri olunca Artık Sheet1 deki bütün butonlar pasif olsun ve çalışmaz hale gelsin kaçtane buton olursa olsun bütün butonları pasif hale gelsin istiyorum.

ha bütün butonlar pasif olamıyorsa sadece ilk butonum pasifte olabilir.

Bilgi ve yardımlarınızı rica ederim

 

[BedriA]

Örnek bir dosya atarsanız yardımcı olmak daha kolay olur.
Sayfa 1 ve 2'nin kod bölümünde;

Private Sub Worksheet_Activate()

End Sub

yukarıdaki iki satır arasına

If Sheets("Sayfa2").Range("a5)<>"" Then
[COLOR="Red"]commandbutton1.Locked=True[/COLOR]
End If

yazarsanız istediğiniz olur sanırım.
Bunu buton olan tüm sayfalarda yapmanız lazım.
Yapamazsanız örnek dosya paylaşın, yardımcı olmaya çalışırım.
Kırmızı yeri rastgele yazdım, kendi butonlarınıza göre düzenlemeniz lazım.

 

[u.L.a.s]

Üstadım örnek bir dosya aşağıdaki linkte mevcut

http://s2.dosya.tc/server5/ucn7jb/butonpasif.rar.html

Şimdi Sheet1 de hazır bir şekilde D1 hücresine Başvuru Formu diye bir ibare yazıyor sürekli. Ben buton1 altına userform açtırıyorum ama userform açıldıktan sonrada D1 hücresindeki veriyi Sheet2 de A1 e yazsın istiyorum. Sonra zaten userforma bazı veri girdiğim veri textboxlar oluyor bunları girip tamam diyince excel sayfama işliyor userform kapanıyor. Userformu tekrar çalıştırmak için tekrar buton1 e bastığımda Sheet2 de zaten A1 de bir önceki tıklamadan dolayı D1 deki veri yazılmıştı şimdi 2. tıklamada bu sefer A2 ye yazacak. 3. cü çalıştırmada A3 e yazacak derken 5.çalıştırmada A5 e yazacak ve böylelik A5 te veri olunca Sheet1 deki tüm butonlar pasif olacak.

 

[BedriA]

Ekteki dosyayı indirip inceleyin.
A5 hücresi dolu ise 1. sayfadaki butonlar işlem yapmaz.

6 nolu mesajda ek var.

 

[u.L.a.s]

zip dosya indirdim içinde exe dosya mevcut. Excel bir dosya değil bu

 

[BedriA]

Ben ziplememiştim.
Bu defa zipleyip yükledim.

Sitede bir problem var.

Başka siteye yükledim.

http://s6.dosya.tc/server9/cutlxr/butonpasif.rar.html

 

[u.L.a.s]

Burada butonlar illaki senin koyduun commandbutton şeklindemi olmalı ben roundedrectangle şekli koyup onu butonmuş gibi kullanıyorum. Bu rondedrectangle pasif yapamıyoruzmuyuz A5 hücresi dolu olunca

 

[BedriA]

En azından ben yapamıyorum.

 

[u.L.a.s]

tamam üstadım çok teşekkür ederim bilgine emeğine sağlık şu haliyle istediğim durum oluyor.

ama diğer rectangle butonu pasif etme durumunu bilen birisi varsa yardımcıolursa sevinirim

 

[u.L.a.s]

Şöyle bir kod buldum uygulamaya çalışıyorum sizin ilettiğiniz kodlar içerisinde. ama tabi hata veriyor. belki bu kodlarla karışık bir şey yapılabilir mi

Sub shapevisibility()
    Dim ws As Worksheet
    Dim sp As Shape
    Set ws = ActiveSheet
    For Each sp In ws.Shapes
        If sp.Name Like "Rounded Rectangle*" Then
            sp.Visible = Not sp.Visible
        End If
    Next    
End Sub

 

[BedriA]

Şöyle bir kod buldum uygulamaya çalışıyorum sizin ilettiğiniz kodlar içerisinde. ama tabi hata veriyor. belki bu kodlarla karışık bir şey yapılabilir mi

Sub shapevisibility()
    Dim ws As Worksheet
    Dim sp As Shape
    Set ws = ActiveSheet
    For Each sp In ws.Shapes
        If sp.Name Like "Rounded Rectangle*" Then
            sp.Visible = Not sp.Visible
        End If
    Next    
End Sub

İstediğiniz şekilde düzenlendi.
Ekte, indirebilirsiniz.

http://s6.dosya.tc/server9/g9yqsv/butonpasif.rar.html

 

[u.L.a.s]

MsgBx uyarısından sonra aşağıdaki kodlarıda ekleyip dosyanında kaydedip kapatılmasını sağlıyorum.
Aslında bir nevi demo sürüm gibi birşey yapmak istedim. yani macro olan butonu 5 kere kullandırtıp sonrasında kullanamaz hale getirmekti maksadım. Gerçi eklenen shapevisibility sub ı bir işe yaramıyor sanırım. ama olsun A5 hücresi dolu olunca exit sub yapmasıda yine kullanılmaz hale getirmiş oluyor. Teşekkür ederim emeğiniz ve bilginiz için
Thisworkbook.Save
Thisworkbook.Close True