C Sütununda Çalışan Makro...

[yasaramca]

Günaydın,

Çalışan bir makrom var. Fakat ben bu makronun C sütununda (kolonunda) herhangi bir hücreyi tıkladığımda çalışmasını istiyorum. Makrom şu şekilde başlıyor. Private Sub Worksheet_SelectionChange(ByVal Target As Range)


İyi günler....

 

[hamitcan]

If Target.Column <> 3 Then Exit Sub

 

[Mehmet Şahin]

Günaydın,
...ya da, sadece "C" kolonunda dolu hücreler boyunca ;

If Intersect(Target, Range("C2:C" & Cells(65536, "C").End(xlUp).Row)) Is Nothing Then Exit Sub

İyi çalışmalar.

 

[yasaramca]

Merhaba,

Cevaplarınız için teşekkür ederim. Ama benim yapmak istediğim şu;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Alan As Range, GENİŞLİK As Integer, YÜKSEKLİK As Integer, AÇIKLAMA As Comment

böyle başlayan makrom var. C kolonunda hangi hücreyi tıklarsam makro çalışıyor. Ben aynı sayfada F kolonunda da hangi hücreyi tıklarsam başka bir makrom var onun çalışmasını istiyorum.

Teşekkürler

 

[Mehmet Şahin]

Merhaba, bu şekilde deneyiniz. İyi çalışmalar.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("C2:C" & Cells(65536, "C").End(xlUp).Row)) Is Nothing Then GoTo son
'macro1
son:
If Intersect(Target, Range("F2:F" & Cells(65536, "F").End(xlUp).Row)) Is Nothing Then Exit Sub
'macro2
end sub