normal makroyu düğmeli hale getirmek

[darksimoon]

arkadaşlar, aşağıdaki makroyu düğme ile etkin/pasif hale getirmek istiyorum. yani atayacağım bir düğmeye 1 kez basınca aktif olacak; tekrar basınca pasif olacak. bunu yapabilir miyiz ?
==============================================
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim str As String
On Error Resume Next
With Target
If .Count = 1 Then
str = .Address & "," & .Row & ":" & .Row _
& "," & Left(.Address, InStr(2, .Address, "$") - 1) & ":" _
& Left(.Address, InStr(2, .Address, "$") - 1)
End If
End With
Range(str).Select
On Error GoTo 0
End Sub
===============================================

 

[Ömer]

Merhaba,

Sayfaya ToggleButton ekeleyin ve eski kodları silerek aşağıdaki kodları kullanın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    Dim str As String
 
    If ToggleButton1.Caption = "Pasif" Then Exit Sub
 
    On Error Resume Next
    With Target
        If .Count = 1 Then
            str = .Address & "," & .Row & ":" & .Row _
            & "," & Left(.Address, InStr(2, .Address, "$") - 1) & ":" _
            & Left(.Address, InStr(2, .Address, "$") - 1)
        End If
    End With
 
    Range(str).Select
    On Error GoTo 0
 
End Sub
''''''''''''''''''''''''''''''''''''''''''''
Private Sub ToggleButton1_Click()
 
    If ToggleButton1.Value = False Then
        ToggleButton1.Caption = "Aktif"
    Else
        ToggleButton1.Caption = "Pasif"
    End If
 
End Sub

.

 

[darksimoon]

ömer bey cevap verdiğiniz için çok teşekkür ederim.
sanırım sorumda biraz daha açık olmam gerekecek. yukardaki kodlar bir excel tabloda seçili hücreyi daha daha belirgin hale getirmek için hücrenin bulunduğu satır ve sütunu daha koyu gösteren bir makroya ait.
ancak bu makronun bazı dezavantajları var. mesela seçili hücreyi renkle doldurmak istediğinizde hücrenin bulunduğu tüm satır ve sütun renkle doluyor.
bu durumun önüne geçmek için aklıma bir fikir geldi.
1-bu makroyu bir addin haline getirelim. böylece tüm excel dosyalarımda kullanabilirim.
2-bu macroya hızlı erişim çubuğuna bir düğme atayalım. bu düğme makroyu hem aktif hem de pasif yapabilsin.

böylece ihtiyacım olduğunda hızlı erişim çubuğundan aktifleştirip kullanabilirim. kullanmanın sakıncalı olduğu durumlarda ise pasif hale getirerek istediğim düzenlemeyi yapabilirim.
bu düşüncemi gerçekleştirecek şekilde kodları nasıl değiştirebiliriz ?
şimdiden çok teşekkür ederim.

 

[Ömer]

Linkleri inceleyin.

Eklenti Hazırlamak (AddIns-xla)

Hazırlanan Eklenti Dosyasını Excele Tanıtmak (Resimli Anlatım)

.

 

[darksimoon]

ömer bey anlayışınız ve yardımınız için çok teşekkür ederim. sanırım bu sefer tam oldu. eve gider gitmez deneyeceğim.

 

[darksimoon]

arkadaşlar tekrar merhaba;

yukardaki makroyu ribbon üzerindeki bir toggle button'a tanımlamak
istiyorum. buton başlığı ise enable highlightplus / disable highlighplus
şeklinde değişsin istiyorum.
ekteki dosya üzerinden bunu gerçekleştirebilirsek forum açısından da güzel bir çalışma olmuş olur.

ekteki tb1.xlsm dosyasında ALPER adlı bir sekme var. sekme de ise sözünü ettiğim toggle button tanımlı. ancak bu butona macroyu nasıl tanıtacağımı bilmiyorum. tanıtıp tekrar yüklerseniz çok memnun olurum.


NOT: ALPER sekmesinde bir de istemediğim bir download butonu var. onu da silebilirsek çok sevinirim.

anlayışınız için çok teşekkür ederim.

 

[darksimoon]

konu günceldir, yardımınızı / önerinizi bekliyorum arkadaşlar...

 

[Ömer]

Eklediğiniz dosyayı tekrar kontrol etmenizi rica ederim.

 

[darksimoon]

ömer bey merhaba;
eklemiş olduğum dosyayı tekrar indirdim ve kontrol ettim. ama sakıncalı/eksik olan bir şeye rastlayamadım. belki de gözümden kaçmıştır. tam olarak neyi kontrol etmemi istiyorsunuz ?

 

[Ömer]

Dosyada kodlar dışında veri yok. Dosya boş.

.

 

[darksimoon]

ömer bey merhabalar;
dediğiniz doğru. zaten dosyada işlenecek bir veri yok. ama
resimde göründüğü gibi ALPER diye bir sekme var. ve orada da enableHighlightPlus diye bir toggle button var.
sorumun başında verdiğim macro kodlarının bu toggle butona yazılmasını arzu ediyorum.
biraz daha imkan varsa eğer oradaki download düğmesinin de iptal edilmesini rica ediyorum.
sözünü ettiğim macro seçili hücrenin satır ve sütununu koyulaştıran bir macro.
yani "enableHighlightPlus" adlı toggle buttona basarak macroyu aktif ve pasif hale getirmek istiyorum.
yardımcı olursanız çok sevinirim. teşekkürler...

 

[darksimoon]

konu günceldir. yardımlarınızı talep ediyorum.
teşekkürler...

 

[Ömer]

Bendeki versiyon 2003 olduğu için yardımcı olamayacağım maalesef. Dilerseniz konuyu yeni bir başlık altında sorunuz.

 

[darksimoon]

ilginiz için teşekkür ederim. dediğiniz gibi yapacağım...