Is Nothing Then Exit Sub ile ilgili

[ikikan]

Bu iki komut neden birbirin kesiyor?

Private Sub Worksheet_Change(ByVal Target As Range)

Dim veri
Set shf1 = Sheets("cari")
veri = shf1.Cells(Rows.Count, "A").End(3).Row
If Intersect(Target, Range("J6:K" & veri)) Is Nothing Then Exit Sub
Call etopla1


If Intersect(Target, [E1]) Is Nothing Then Exit Sub
Call etopla1

End Sub

 

[hamitcan]

Çünkü, değişiklik yapılan hücre, ilgili aralıkta değilse prosedürü sonlandır diyorsunuz. Aşağıdaki şekilde deneyin.

If not Intersect(Target, Range("J6:K" & veri)) Is Nothing Then
Call etopla1
elseIf not Intersect(Target, [E1]) Is Nothing Then 
Call etopla1
end if

 

[Necdet]

Merhaba,

Alternatif olsun.

Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim Veri    As Long
    
    Veri = Cells(Rows.Count, "A").End(3).Row
    
    If Intersect(Target, Range("J6:K" & Veri)) Is Nothing And Not Target.Address = "$E$1" Then Exit Sub
    Call etopla1
 
End Sub

 

[ikikan]

Teşekürler