exit Sub

[clleker88]

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim kimyasalYuzdesi As Double
Dim search As String
Dim kullanimMiktarSinif As String
Dim havaKarismaKolaylik As String
Dim solunumKontrol As String
Dim h_codes As String
Dim solunumKontrolSayisal As Integer
Dim solunumKontrolMetinsel As String
Dim tehlikeKontrolSayisal As Integer
Dim tehlikeKontrolMetinsel As String

'--DEGERLERİ DOLDUR--'
h_codes = Cells(Target.Row, Range("A1:AF1").Find("H Cümlecikleri").Column)
Worksheets(1).Select

If Target.Row = 1 Then
Exit Sub
End If



BÖYLE BİR KODUM VAR İLK SATIRDA BU METODUN ÇALIŞMASINI İSTEMİYORUM TÜM KODUDA İF YAPMAK İSTEMEDİM BU YÜZDEN EXİT SUB KULLANDIM FAKAT EXİT SUB OLDUGU ZAMAN 1 DEFA O ZAMAN CHANGE EVENT 'İ ÇALIŞMIYOR TEKRAR BEN BREAK GİBİ BİŞİ İSTİYORUM BÖYLE BİR KEYWORD VARMI

 

[ÖmerBey]

Merhaba,
Öncelikle büyük harfle yazmak forumda bağırmak anlamına geldiği için mesajlarda tamamen büyük harf kullanımı forum kurallarına aykırıdır.
Sorunuza gelecek olursak;
Eğer if kodunuzu en başa yazarsanız olaylar iptal edilmeden koddan çıkılacağı için sorun olmayacaktır. Örneğin;

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 Then
    Exit Sub
End If

Bu isteğinizi karşılamıyorsa aşağıdaki gibi bir yapı kullanabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
.
.
.
If Target.Row = 1 Then
    GoTo son
End If
.
.
.
son:
Application.EnableEvents = True
End Sub

 

[clleker88]

Öncelikle büyük harfle yazmak forumda bağırmak anlamına geldiği için mesajlarda tamamen büyük harf kullanımı forum kurallarına aykırıdır. Teşekkürler yeni üyeyim bilmiyordum .
İlk Kodu bende yazdım fakat istedigimi karşılamıyor ikinci kodu kullandım teşekkür ederim

 

[Necdet]

Merhaba,

Worksheet change olayında olası olduğu kadar kısıtlamaya gitmekte yarar vardır.
Yoksa her şartta her hücrede kodlar çalışacaktır.

Aşağıda verdiğim kod Change olayında sadece A ve B sütununda ve 1. satırdan sonraki değişlikliklerde çalışır.

Kodu inceleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, [A:B]) Is Nothing Or Target.Row < 2 Then Exit Sub
    
    ' kodlarınız
    ' kodlarınız
    ' kodlarınız
    
End Sub