döngü kurma

[sirkülasyon]

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("F9:F13")) Is Nothing Then
sat = Target.Row
 If Cells(sat, D).Value <> "" Then: Range("F14") = "X"
Cells(sat, "G") = Format(Round(Application.WorksheetFunction.VLookup(Cells(sat, "F"), Sheets("kod").Range("B:D"), 3, 0), 2), "#,##0.00") * 1
Else
If Not Intersect(Target, Range("J9:J13")) Is Nothing Then
sat = Target.Row
Cells(sat, "K") = Format(Round(Application.WorksheetFunction.VLookup(Cells(sat, "J"), Sheets("kod").Range("F:H"), 3, 0), 2), "#,##0.00") * 1
Else
If Not Intersect(Target, Range("h9:h13")) Is Nothing Then
sat = Target.Row
Range("I9") = Application.WorksheetFunction.SumProduct(Range("G9:G13"), Range("H9:H13"))
Range("N9") = Application.WorksheetFunction.SumProduct(Range("G9:G13"), Range("H9:H13"))
Range("N10") = Application.WorksheetFunction.SumProduct(Range("G9:G13"), Range("H9:H13"))
Range("N11") = Round(Range("N9") * 20.5 / 100, 2)
Range("N12") = Round(Range("N9") * 14 / 100, 2)
Range("N13") = Round(Range("N9") * 0.00759, 2)
Range("O9") = Round(Range("N10") - Range("N12"), 2)
Range("O11") = GELIRBUL1(Range("O9"))
Range("O12") = Round(Range("N11") + Range("N12") + Range("N13") + Range("O11"), 2)
Range("O13") = Round(Range("N10") - Range("O12"), 2)
Else
If Not Intersect(Target, Range("L9:L13")) Is Nothing Then
sat = Target.Row
Range("M9") = Application.WorksheetFunction.SumProduct(Range("K9:K13"), Range("L9:L13"))
Range("N10") = Range("I9") + Range("M9")
End If
End If
End If
End If
End Sub

Yukarıda arz ettiğim kod sadece 9:13 aralığında çalışıyor. Bu kodu
15:19, 21:25, 27:31, 33;37, 39:43, 45:49 gibi bir satır atlatıp döngü kurarak çalıştırabilir miyiz? Rica etsem kod için yardımcı olabilir misiniz?

 

[Necdet]

Merhaba,

Kodların ilgili satırda çalışmaları aşağıdaki gibi olabilir.
Ama bunu kodlarınıza nasıl uyarlarsınız onu artık siz düşüneceksiniz.

Aşağıdaki kodları inceleyiniz.
Ben Worksheet_SelectionChange olayında test ettim.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Row < 9 Or Target.Row Mod 6 = 2 Then Exit Sub
    
    MsgBox "Kodlar Çalışacak"

End Sub

 

[sirkülasyon]

Necdet Abi
Bir tane örnek verebilir misiniz?

 

[Necdet]

Merhaba Sayın sirkülasyon.

Verdiğim örnekte sizin belirlediğiniz aralıklarda mesaj veriyor.

Siz bu kodları change olayına adapte etmelisiniz. Sizin kodlarınızda yaptığınız şeyi tam anlayamadığım için anca bu aralıklarda çalışan kod örneğini verdim.