Hücreye bağlı makro

[bayram]

Bir hücreyi seçtiğimde, makro içerisinde bu hücreye bağlı fonksiyonlar çalışsın.
Ã?rnek: A2'yi mouse ile şeçtim, B2 hücresi yeşil olsun.

Yardımlarınızı bekliyorum.

 

[Mahmut Bayram]

Þöyle bir kod yazdım ama işinizi görür mü bilmiyorum
Sub Makro1()
ıf Sheets("Sayfa1").Range("A2").Select
renk
End Sub
Sub renk()
Range("B2").Select
With Selection.Interior
.ColorIndex = 10
.Pattern = xlSolid
End With
End Sub

 

[bayram]

Mahmut Bey öncelikle ilginize teşekkür ederim. Benim yapmak istediğim arka planda çalışan bir makro, ben sadece mouse ile hücreleri seçtiğimde, bu hücreye tanımlı fonksiyonların çalışması, makro bilgim az olduğundan bu düşündüğüm belki mümkün olmayabilir.

Saygılar.

 

[Nazmi YAZICI]

Mrb,

Aşağıdaki kodları işlmin yapılacağı kod sayfasına yapıştırınız.

(Bunun için sayfa ismi üzerinde sağ click View Cod yapabilirsiniz)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$2" Then
    Range("B2").Interior.Color = vbGreen
Else
    Range("B2").Interior.ColorIndex = xlNone
End If

End Sub

 

[bayram]

Nazmi bey işte budur. Çok sağol.