hücreye değer girince çalışan makro

[EmirhanG]

Merhaba arkadaşlar, iyi çalışmalar. Ben A sütununda en son boş hücreye bir değer girildiğinde çalışan makro yapmak istiyorum .Yardımcı olursanız sevinirim
Teşekkürler........

 

[veyselemre]

Kodları sayfanızın kod sayfasına yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [a65536].End(3)) Is Nothing Then Exit Sub
    MsgBox "makro çalıştı" & vbCr & "son hücredeki veri:" & Target.Value
End Sub

 

[Orion1]

Merhaba.
Aşağıdaki kodlarda son 5 hücreye değer girilip girilmediğini denetler.
Çalışma sayfanızın kod bölümüne yapıştırınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
On Error GoTo hata
sonsat = Cells(65536, "A").End(xlUp).Row
ilk = sonsat - 4
If Target.Row <= sonsat And Target.Row >= ilk Then
    MsgBox "Son 5 sat&#305;rdan Birisine Veri Girdiniz..!!"
End If
hata:
End Sub