Tıklama ile Tüm Satırı Seçme

[eceLprensi]

merhaba,
Üstadlarım.
Fare ile üzerine tıkladığım hücrenin tüm satırını seçebiliyorum.
Sayfanın kod kısmına yapıştırıyorum.
-------------------------------------------------- ----------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If CheckBox1.Value = False Then

Else


X = ActiveCell.Row
Y = ActiveCell.Column
ActiveCell.Resize(1).EntireRow.Select
ActiveSheet.Cells(X, Y).Activate
End If

End Sub

-------------------------------------------------- -------------------------------------------------- -------

sayfaya checkbox ile çalıştırıyorum.

Fakat bunu personel.XLSX modül ekleyerek A1 hücresine seç yazıldığında aktifleştirmek istiyorum.
nasıl yapabilirim?
Saygılarımla.

 

[AdemCan]

Merhaba,
Modül içine

Sub sec()
If Range("A1").Value = "Seç" Then
    X = ActiveCell.Row
    Y = ActiveCell.Column
    ActiveCell.Resize(1).EntireRow.Select
    ActiveSheet.Cells(X, Y).Activate
End If
End Sub

Sayfa kod kısmına

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Call sec
End Sub

kodlarını ekleyiniz.

Her sayfada seçme işlemi olacaksa, sayfaların kod kısmına ekleme yapmak yerine
Thisworkbook kısmına aşağıdaki kodu ekleyiniz.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Call sec
End Sub

Aktif sayfanın A1 hücresinde Seç yazarsa satır seçme kodları çalışır.

 

[eceLprensi]

@faye_efsane ellerine sağlık.

Fakat Thisworkbook olayını bilmiyorum.
Sayfayamı yoksa personel.xlsx mi yazacağım

 

[eceLprensi]

Anladım şimdi Çok Teşekkürler.
Emeklerine sağlık.

 

[AdemCan]

Thisworkbook, VBA penceresinde resimde gösterdiğim bölüm.