Belirlenen sütuna gelince açılan form

[EKREM1661]

Arkadaşlar..!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$Y$22" Then Unload UserForm1
End Sub

yukarıdaki uygulamada Y22 hücresine gelince form açılıyor.. Peki bunu tüm "Y" sütununa yaymak için nasıl değişiklik yapıyorduk..

 

[Ömer]

Merhaba,

Bu şekilde deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    If Selection.Cells.Count > 1 Then Exit Sub
    If ActiveCell.Column =[COLOR=red] 25[/COLOR] Then UserForm1.Show
 
End Sub

 

[EKREM1661]

Sn ömer hocam, teşekkürler..