Makro'yu hücre değerine göre otomatik çalıştırma

[cagatay_75]

Sub Makro2()
'
' Makro2 Makro
'
a = ActiveCell.Value
Range("A1").Select
Range("A1:A65536").ClearContents
ActiveCell.FormulaR1C1 = a
Selection.AutoFill Destination:=Range("A1:A" & 2 * Abs(a) + 1), Type:=xlFillSeries

End Sub

Makroyu yeni yeni öğrenmeye çalışıyorum, yukarıdaki gibi bir makrom var. Benim istediğim O9 hücresi değiştiğinde makrom o hücreyi secip otomatik çalıştırsın. Aradıklarımda birçok yerde altta bulunan kod yazıyor ama birtürlü başaramadım. Yardımcı olursanız sevinirim.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
end sub

 

[Ömer]

Merhaba,

Benzer bir konu, istediğiniz bu mu?

Butona Bağlı Olmayan Makro

.

 

[cagatay_75]

Evet fakat benim isteğim sütun aralığı değilde tek hücreye bağlı olacak. Onu makroma nasıl uydurabilirim?

 

[HASAN40]

Merhaba,
Worksheet change olayını deneyiniz.

 

[Ömer]

Evet fakat benim isteğim sütun aralığı değilde tek hücreye bağlı olacak. Onu makroma nasıl uydurabilirim?

Verdiğim linkte aralık yazmak yerine tek hücre yazmanız yeterli olur.

If Intersect(Target, Range("B2:B10")) Is Nothing Then Exit Sub

yerine

If Intersect(Target, Range("B2")) Is Nothing Then Exit Sub

gibi.

.