Toggle buton kullanımı

[mkaraoglu25]

Merhaba ,
Excel sayfasına satır ekleyeceğim. Satır ekleme kodlarım mevcut. Her 1. Tıklamada 1. Kodumun 2. Tıklamada 2. Kodumun 3... Vs kodlarımın çalışması için toggle buton kullanmak istiyorum. En son kod çalıştıktan sonra kodun çalışması dursun istiyorum. Yardımcı olur musunuz?

 

[Korhan Ayhan]

Aşağıdaki yapıyı kullanabilirsiniz.

Normal bir buton ya da şekil kullanabilirsiniz. Kod içindeki "Dim..." ile başlayan tanımlama kısmı modülün en üstünde (deklarasyon) olmalıdır.

Kendinize uyarlarsınız.

Option Explicit
Dim Say As Byte

Sub Test()
    If Say > 2 Then Exit Sub
    Select Case Say
        Case 0
            Rem İlk çalışmasını istediğiniz kodları buraya yazınız.
            Say = Say + 1
        Case 1
            Rem İkinci çalışmasını istediğiniz kodları buraya yazınız.
            Say = Say + 1
        Case 2
            Rem Üçüncü çalışmasını istediğiniz kodları buraya yazınız.
            Say = Say + 1
    End Select
End Sub

 

[mkaraoglu25]

Çalıştıramadım Korhan bey. Hata vermiyor ama çalışmıyor. Dim belirledim.

 

[Korhan Ayhan]

Mesajımda belirtmiştim.

"Dim..." ile başlayan tanımlama modülün EN TEPESİNDE olması gerekiyor.

Ayrıca ALTIN ÜYE'siniz. Neden sürekli görsel ekliyorsunuz. Örnek dosya paylaşabilirsiniz.

 

[mkaraoglu25]

Mesajımda belirtmiştim.

"Dim..." ile başlayan tanımlama modülün EN TEPESİNDE olması gerekiyor.

Ayrıca ALTIN ÜYE'siniz. Neden sürekli görsel ekliyorsunuz. Örnek dosya paylaşabilirsiniz.

Tekrar deneyeceğim. Telefondan giriş yapıyorum. Dosya eklemeye bilgisayarım kurumsal olduğu için buraya girmeme izin vermiyor.

 

[mkaraoglu25]

Tekrar merhaba. Then Exit Sub ile çalışması durdurulan makro nasıl tekrar başlatılır ?

 

[Korhan Ayhan]

Tekrar çalıştırmalısınız.

 

[mkaraoglu25]

Komutu nedir hocam

 

[Korhan Ayhan]

İlk çalıştırdığınızda nasıl bir işlem yapıyorsanız aynısını yapınız.