İlk satırı seçtiğimizde çalışan makro

[aptillah]

merhabalar yaptığım bir tabloda ilk satırlar sabit ve satırlarda tarihler var . yapmak istediğim 1. satıra tıkladığımda form açılsın. yaptığım kod

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
    If Intersect(Target, [b1:ckg1]) Then
    UserForm3.Show
    End If
End Sub

ama her satırda açıyor userform u ben sadece 1. satırda açsın istiyorum

 

[muygun]

Merhaba;

sayfanın kod bölümüne;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set s1 = ThisWorkbook.Worksheets("Sayfa1")
sut = Selection.Cells.Column
sat = Selection.Cells.Row
If sat <> 1 Or sut > 150 Then Exit Sub
UserForm3.Show 0
End Sub

İyi çalışmalar.
Not: siz 150 sayısı yerine CKG sütun sayısını yazın. Yada bu kriteri pas geçerek tüm sütunda çalışmasını sağlayın.

 

[aptillah]

yardımlarınız için teşekkürler