Makronun çalışmasını engellemek

[snskutlu]

Merhaba arkadaşlar!..

Private Sub Combobox_Change içine yazılan kodları bir butona tıklatarak çalışmasını engellemek için ne yapmalıyım?

İyi çalışmalar dilerim.

 

[hsayar]

bir adet toggelbuton koyun,
combobox1_change () prosodürünün ilk satırına
if togglebutton1 = true then exit sub olarak deneyin yada örnek ekleyin.

 

[KAMİL87]

örnek dosyanız var mı?

 

[İsmailCen]

Arkadaşlar Merhaba,

Sayfa aktifleştiği zaman çalışan Worksheet_Activate() kodlarını, bir makro ile farklı bir sayfaya gidilip dönüldüğünde etkisiz kılmak için ne yapabilirim?

 

[ExcelF1]

Sayın İsmailCen,

Kodlarınızı ekleseydiniz daha isabetli olurdu ama, şöyle yapabilirsiniz.

Private Sub Worksheet_Activate()
If Sheets("Sayfa1").[A1] = 1 Then
Exit Sub
Else
Sheets("Sayfa1").[A1] = 1

'--------------------------------------------------------
'Bu aralıktaki kodları silerek kendi kodlarınızı yazınız.
For a = 5 To 15
Cells(a + 1, 1) = a
Next a
'--------------------------------------------------------

End If
End Sub

Ve sayfanın Before Close olayına; yeni açılışta kodun 1 kez çalışması için,

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Sayfa1").[A1] = ""
End Sub

yazınız.