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
![[Resim: do.php?img=10152]](https://resim.accesstr.net/do.php?img=10152)
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