Tasarım modu sorunu

[Mehmet Sait]

Merhaba,

Sayfamda kullandığım ekli kod her defasında tasarım moduna geçiyor o yüzden normal makro butonuna bağlamak istiyorum.
Yardımlarınız için teşekkür ederim.

Private Sub CommandButton1_Click()
    Worksheets("BOŞ_TASLAK").Unprotect "3300"

    Application.ScreenUpdating = False
    Dim Sayfa As String
    Dim SY As Worksheet
    Set SY = Sheets("ANA")
    Dim SB As Worksheet
    Set SB = Sheets("BOŞ_TASLAK")
    
    For a = 3 To SY.[A65536].End(3).Row
        Sayfa = SY.Cells(a, "A")
        
    If SY.Cells(a, "B") <> "Aktarıldı" Then
        If SY.Cells(a, "A") <> "" Then
            If Not SayfaVarMi(Sayfa) Then
                SB.Copy After:=Sheets(Sheets.Count)
                ActiveSheet.Name = Sayfa
            Else
            End If
        End If
        
        sonsat = Sheets(Sayfa).[B65536].End(3).Row + 2
        SY.Range("B" & a & ":AC" & a).Copy Sheets(Sayfa).Cells(sonsat, "A")
        SY.Cells(a, "B") = "Aktarıldı"
    End If
    Next a
    
    SY.Select
    Application.ScreenUpdating = True
    MsgBox " B i t t i "


For Each Sheet In Worksheets
Sheet.Protect Password:="3300"
Next Sheet
Worksheets("ANA").Unprotect "3300"
Worksheets("BOŞ_TASLAK").Unprotect "3300"
Worksheets("BOŞ_TASLAK").Protect "3300"
Sheets(CStr(Date - 1)).Select

End Sub
Function SayfaVarMi(Sayfa As String) As Boolean
    On Error Resume Next
    SayfaVarMi = CBool(Len(Worksheets(Sayfa).Name) > 0)
End Function

 

[skaan]

1. Developer sekmesine gidin.
2. Insert altında Form Controls’den Command Button’u seçin.
3. Sayfanıza bir buton yerleştirin.
4. Butona sağ tıklayın ve “Assign Macro” seçeneğini seçin.
5. Makronuzu seçin ve “OK” düğmesine tıklayın.

Bu işlemi yaptıktan sonra kodunuz makro butonuna bağlanacaktır.
Deneyin lütfen..

 

[Mehmet Sait]

1. Developer sekmesine gidin.
2. Insert altında Form Controls’den Command Button’u seçin.
3. Sayfanıza bir buton yerleştirin.
4. Butona sağ tıklayın ve “Assign Macro” seçeneğini seçin.
5. Makronuzu seçin ve “OK” düğmesine tıklayın.

Bu işlemi yaptıktan sonra kodunuz makro butonuna bağlanacaktır.
Deneyin lütfen..

Merhaba,

Alakanız için teşekkür ederim ancak yapamadım.

 

[skaan]

Makro butonunu tasarım moduna geçmeden çalıştırmak için aşağıdaki adımları takip edebilirsiniz:

1. Excel dosyanızı açın ve "Geliştirici" sekmesini açmak için menü çubuğundaki "Dosya" seçeneğine tıklayın.
2. "Seçenekler" seçeneğine tıklayın ve "Özelleştirme Sekmesi"ne gidin.
3. "Ana Sekme Özelleştirme" bölümünde "Geliştirici" kutusunu işaretleyin ve "Tamam" düğmesine tıklayın.
4. "Geliştirici" sekmesine gidin ve "Ekle" bölümünde "Düğme" seçeneğine tıklayın.
5. "Düğme" seçeneğine tıkladıktan sonra, Excel dosyanızın herhangi bir yerinde bir düğme çizmek için fareyi sürükleyin.
6. "Düğme Oluştur" penceresi açılacaktır. "Makro Ata" düğmesine tıklayın.
7. "Makro Seç" penceresinde, çalıştırmak istediğiniz makroyu seçin ve "Tamam" düğmesine tıklayın.
8. "Düğme Oluştur" penceresinde, düğmenin adını ve açıklamasını belirleyin ve "Tamam" düğmesine tıklayın.
9. Düğmeye tıkladığınızda, makro otomatik olarak çalışacaktır.

Bu adımları takip ederek, makro butonunu tasarım moduna geçmeden çalıştırabilirsiniz.

 

[Mehmet Sait]

Makro butonunu tasarım moduna geçmeden çalıştırmak için aşağıdaki adımları takip edebilirsiniz:

1. Excel dosyanızı açın ve "Geliştirici" sekmesini açmak için menü çubuğundaki "Dosya" seçeneğine tıklayın.
2. "Seçenekler" seçeneğine tıklayın ve "Özelleştirme Sekmesi"ne gidin.
3. "Ana Sekme Özelleştirme" bölümünde "Geliştirici" kutusunu işaretleyin ve "Tamam" düğmesine tıklayın.
4. "Geliştirici" sekmesine gidin ve "Ekle" bölümünde "Düğme" seçeneğine tıklayın.
5. "Düğme" seçeneğine tıkladıktan sonra, Excel dosyanızın herhangi bir yerinde bir düğme çizmek için fareyi sürükleyin.
6. "Düğme Oluştur" penceresi açılacaktır. "Makro Ata" düğmesine tıklayın.
7. "Makro Seç" penceresinde, çalıştırmak istediğiniz makroyu seçin ve "Tamam" düğmesine tıklayın.
8. "Düğme Oluştur" penceresinde, düğmenin adını ve açıklamasını belirleyin ve "Tamam" düğmesine tıklayın.
9. Düğmeye tıkladığınızda, makro otomatik olarak çalışacaktır.

Bu adımları takip ederek, makro butonunu tasarım moduna geçmeden çalıştırabilirsiniz.

Hocam dediklerinizi yaptım ancak makro penceresinde eklemem gereken makro gelmiyor.

 

[Korhan Ayhan]

Merhaba,

Private Sub CommandButton1_Click()

Bold bölüme Public yazarsanız başka butonlara makroyu atayabilirsiniz.

 

[Mehmet Sait]

Merhaba,

Private Sub CommandButton1_Click()

Bold bölüme Public yazarsanız başka butonlara makroyu atayabilirsiniz.

Dediğiniz şekilde düzelttim, oldu. Teşekkür ederim