Hücreye göre makro çalıştırma..

[sinan05]

Merhabalar, herkese iyi çalışmalar. İstediğim şeyin konusunu formda buldum ama kendime uyarlayamadım. yardımcı olursanız sevinirim.
İstediğim şey sayfa1 de m1 hücresine başlangıç m2 hücresine bitiş tarihlerini yazınca makro1 adlı makroyu çalıştırsın. İlginize teşekkürler.

 

[Asri]

Sayfa1 in kod bölümüne yapıştırıp deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Intersect(Target, Range("M1:M2")) Is Nothing Then Exit Sub
       m1veri = Range("M1").Value
       m2veri = Range("M2").Value
       If m1 <> "" And m2 <> "" Then
          Call makro1
       End If
End Sub

 

[sinan05]

Sayfa1 in kod bölümüne yapıştırıp deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Intersect(Target, Range("M1:M2")) Is Nothing Then Exit Sub
       m1veri = Range("M1").Value
       m2veri = Range("M2").Value
       If m1 <> "" And m2 <> "" Then
          Call makro1
       End If
End Sub

Hocam çok teşekkür ederim ilginize.Biraz daha kısa yolunu bulmuştum. Yinede eksik olmayın.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$M$2" <> Empty Then Makro1
End Sub