Sizide çok uğraştırdık. Lütfen hakkınızı helal ediniz. Yaptığım araştırmalar neticesinde benim istediğim işleme yakın kodu buldum sanırım. Bu kod hücreye çift tıklayınca başlıyor herhangi bir hücreye tıklayınca duruyor. Sizden ricamız bu kodu düğmeye atayabilir misiniz. Düğmeye tıklayınca çalışsın tekrar düğmeye tıklayınca dursun.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Step 1:  Declare Variables
    Dim strRange As String
'Step2:  Build the range string
    strRange = Target.Cells.Address & "," & _
               Target.Cells.EntireColumn.Address & "," & _
               Target.Cells.EntireRow.Address
'Step 3: Pass the range string to a Range
    Range(strRange).Select
End Sub

Bu kod renklendirmiyor sadece seçiyor.
Butona ekle derken nasıl olacak zaten çift tıklayınca çalışıyor.

En iyisi Excel hazırlayın butonlarıda hazırlayın ve orda açıklayın üstad.

---

Önceki verdiğim dosya zaten renkleri bozmuyordu.

Üstat yeni sayfa ekleyince çalışmıyordu. Yani istediğimiz çift tıklayınca değilde düğmeye tıklayınca çalışsın. Tekrar düğmeye basınca da dursun. Tüm Excel de çalışsın

(02/05/2020, 14:53)lion2577 yazdı: Üstat yeni sayfa ekleyince çalışmıyordu

Her sayfada olsun diyorsanız şöyle oluyordu.thisworkbook koduna girin.ordaki change yada çift tıklama vb... içine kod eklenirse tüm sayfalarda çalışır.

---

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

'Step 1:  Declare Variables

    Dim strRange As String

'Step2:  Build the range string

    strRange = Target.Cells.Address & "," & _

              Target.Cells.EntireColumn.Address & "," & _

              Target.Cells.EntireRow.Address

'Step 3: Pass the range string to a Range

    Range(strRange).Select

End Sub

Düğmeye de atarsanız süper olur. Düğmeye tıklayınca çalışsın. Tekrar düğmeye tıklayınca dursun. Lütfen bu son isteğimiz.

(02/05/2020, 14:53)lion2577 yazdı: Üstat yeni sayfa ekleyince çalışmıyordu. Yani istediğimiz çift tıklayınca değilde düğmeye tıklayınca çalışsın. Tekrar düğmeye basınca da dursun. Tüm Excel de çalışsın

Koddaki Target olanaları ActiveCell olarak değiştirin ve makroa atayın benim biraz işlerim var yapamazsanız denerim.

---

(02/05/2020, 14:53)lion2577 yazdı: Üstat yeni sayfa ekleyince çalışmıyordu. Yani istediğimiz çift tıklayınca değilde düğmeye tıklayınca çalışsın. Tekrar düğmeye basınca da dursun. Tüm Excel de çalışsın

Alttaki kodu bir modül içine atın.

Sub basla()

'Step 1:  Declare Variables

    Dim strRange As String

'Step2:  Build the range string

    strRange = ActiveCell.Cells.Address & "," & _

              ActiveCell.Cells.EntireColumn.Address & "," & _

              ActiveCell.Cells.EntireRow.Address

'Step 3: Pass the range string to a Range

    Range(strRange).Select

End Sub