(28/04/2020, 11:14)lion2577 yazdı: Arkadaşlar merhaba. Aşağıda yazılı kodu düğmeye atamak istiyorum. Düğmeye ilk basınca çalıştırmak; düğmeye ikinci defa basınca durdurmak ve bu düğmeyi menüye ekleyerek tüm Excel çalışmalarında kullanmak istiyorum. Yardımlarınızı bekliyorum. Şimdiden çok teşekkürler ederim.



Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Update 20140318
Static xRow
Static xColumn
If xColumn <> "" Then
With Columns(xColumn).Interior
.ColorIndex = xlNone
End With
With Rows(xRow).Interior
.ColorIndex = xlNone
End With
End If
pRow = Selection.Row
pColumn = Selection.Column
xRow = pRow
xColumn = pColumn
With Columns(pColumn).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
With Rows(pRow).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End Sub

Merhaba.Örnek dosya eklerseniz yardımcı olunur.Düğme yerine toggle button bence daha iyi olabilir durdurup çalıştırmak için.
Dosya eklerseniz userformda ekleyin.
Ayrıca koddan anladığım sayfa kodu olduğu için seçilen kolon ve satırlar arasında işlem oluyor.Formdayken peki nasıl uygulanacak?
Eğer dosya ekler ve açıklama eklerswniz yardımcı oluruz.