(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