+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Düğmeyle Makroyu Çalıştırmak Ve Durdurmak (/konu-dugmeyle-makroyu-calistirmak-ve-durdurmak.html)
RE: Düğmeyle Makroyu Çalıştırmak Ve Durdurmak - lion2577 - 02/05/2020
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
RE: Düğmeyle Makroyu Çalıştırmak Ve Durdurmak - feraz - 02/05/2020
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.
Re: Düğmeyle Makroyu Çalıştırmak Ve Durdurmak - lion2577 - 02/05/2020
Ü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
RE: Düğmeyle Makroyu Çalıştırmak Ve Durdurmak - feraz - 02/05/2020
(02/05/2020, 14:53)lion2577 yazdı: Üstat yeni sayfa ekleyince çalışmıyorduHer 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 SubRe: Düğmeyle Makroyu Çalıştırmak Ve Durdurmak - lion2577 - 02/05/2020
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.
RE: Düğmeyle Makroyu Çalıştırmak Ve Durdurmak - feraz - 02/05/2020
(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ınAlttaki 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