Bu makro döngüsel başvuru yaratıyor ne yapmalıyım?

[umut100]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim sat As Integer
If Not Intersect(Target, [c:c]) Is Nothing Then Exit Sub
For sat = 2 To Cells(65536, "m").End(xlUp).Row
If Cells(sat, "m") = "5101.01" Then Cells(sat, "l") = "Ç1 PİKİ"
If Cells(sat, "m") = "5101.02" Then Cells(sat, "l") = "Ç2 PİKİ"
If Cells(sat, "m") = "5101.03" Then Cells(sat, "l") = "H1 PİKİ"
If Cells(sat, "m") = "5101.04" Then Cells(sat, "l") = "H2 PİKİ"
If Cells(sat, "m") = "5102.03" Then Cells(sat, "l") = "130X130XKÜTÜK"
If Cells(sat, "m") = "5102.04" Then Cells(sat, "l") = "150X150XBLUM"
If Cells(sat, "m") = "5102.09" Then Cells(sat, "l") = "SIVI ÇELİK RİNG"
If Cells(sat, "m") = "5107" Then Cells(sat, "l") = "HURDA YARI MAMUL"
If Cells(sat, "m") = "5201.01" Then Cells(sat, "l") = "KOK"
If Cells(sat, "m") = "5204.01" Then Cells(sat, "l") = "NP PROFİLLER"
If Cells(sat, "m") = "5204.02" Then Cells(sat, "l") = "IPE PROFİLLER"
If Cells(sat, "m") = "5204.03" Then Cells(sat, "l") = "HEB PROFİLLER"
If Cells(sat, "m") = "5204.04" Then Cells(sat, "l") = "HEA PROFİLLER"
If Cells(sat, "m") = "5204.20" Then Cells(sat, "l") = "RAYLAR"
If Cells(sat, "m") = "5204.21" Then Cells(sat, "l") = "MADEN DİREĞİ"
If Cells(sat, "m") = "5204.33" Then Cells(sat, "l") = "YUVARLAK"
If Cells(sat, "m") = "5205.01" Then Cells(sat, "l") = "OKSİJEN"
If Cells(sat, "m") = "5205.02" Then Cells(sat, "l") = "AZOT"
If Cells(sat, "m") = "5205.03" Then Cells(sat, "l") = "ARGON"
If Cells(sat, "m") = "5206.01" Then Cells(sat, "l") = "YAN ÜRÜNLER"
If Cells(sat, "m") = "5206.03" Then Cells(sat, "l") = "KOK GAZI"
If Cells(sat, "m") = "5991" Then Cells(sat, "l") = "DEĞERSİZ MALZEME"
If Cells(sat, "m") = "5101.01" Then Cells(sat, "n") = "Ç1 PİKİ"
If Cells(sat, "m") = "5101.02" Then Cells(sat, "n") = "Ç2 PİKİ"
If Cells(sat, "m") = "5101.03" Then Cells(sat, "n") = "H1 PİKİ"
If Cells(sat, "m") = "5101.04" Then Cells(sat, "n") = "H2 PİKİ"
If Cells(sat, "m") = "5102.03" Then Cells(sat, "n") = "130X130XKÜTÜK"
If Cells(sat, "m") = "5102.04" Then Cells(sat, "n") = "150X150XBLUM"
If Cells(sat, "m") = "5102.09" Then Cells(sat, "n") = "SIVI ÇELİK RİNG"
If Cells(sat, "m") = "5107" Then Cells(sat, "n") = "HURDA YARI MAMUL"
If Cells(sat, "m") = "5201.01" Then Cells(sat, "n") = "KOK"
If Cells(sat, "m") = "5204.01" Then Cells(sat, "n") = "NP PROFİLLER"
If Cells(sat, "m") = "5204.02" Then Cells(sat, "n") = "IPE PROFİLLER"
If Cells(sat, "m") = "5204.03" Then Cells(sat, "n") = "HEB PROFİLLER"
If Cells(sat, "m") = "5204.04" Then Cells(sat, "n") = "HEA PROFİLLER"
If Cells(sat, "m") = "5204.20" Then Cells(sat, "n") = "RAYLAR"
If Cells(sat, "m") = "5204.21" Then Cells(sat, "n") = "MADEN DİREĞİ"
If Cells(sat, "m") = "5204.33" Then Cells(sat, "n") = "YUVARLAK"
If Cells(sat, "m") = "5205.01" Then Cells(sat, "n") = "OKSİJEN"
If Cells(sat, "m") = "5205.02" Then Cells(sat, "n") = "AZOT"
If Cells(sat, "m") = "5205.03" Then Cells(sat, "n") = "ARGON"
If Cells(sat, "m") = "5206.01" Then Cells(sat, "n") = "YAN ÜRÜNLER"
If Cells(sat, "m") = "5206.03" Then Cells(sat, "n") = "KOK GAZI"
If Cells(sat, "m") = "5991" Then Cells(sat, "n") = "DEĞERSİZ MALZEME"
Next
End Sub

Bu makroda problem nerede. Sürekli hesaplama yapmaya çalışıyor.

 

[Ferhat Pazarçevirdi]

Bu makroda C sütunu hariç sayfa üzerinde nereye tıklarsanız tıklayın (veya ok tuşlarını kullanın), For-Next döngüsüne girilir ve M sütununda 2.satırdan son dolu satıra kadar olan bütün hücreler taranır. IF koşullarının hepsi sınandıktan sonra, L sütununa ilgili değer yazılır.

En ufak bir hücre değişiminde bile tetiklenen makro yazmışsınız. ÇAlışma kitabında üç-beş de formül varsa, vay halinize ...

Mesaj başlığınızda belirttiğiniz gibi bir Döngüsel bir başvuru yok. Muhtemelen kurgu da bir hata yaptınız veya yanlış bir event'la uğraşıyorsunuz...

...