Satır Eklenince Makro Çalışsın

[omeryılmaz]

Range("C3:C500"). Sütunuda kayıtlı veriler Arasına yeni Satır eklenince Makro Çalışsın

 

[hamitcan]

Aşağıdaki şekilde dener misiniz ?

Private Sub Worksheet_Change(ByVal Target As Range)
    If [c3:c501].Find("son") Is Nothing Then
         MsgBox "Araya Satır Girmiş"
    End If
End Sub

Not:C501 hücresine "son" kelimesini yazın.

 

[hamitcan]

............