(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