Soru MAKRO Uzun hatası.

[Filose]

Herkese Merhaba,
Buradan temin ettiğim bilgi ve kodlar sayesinde kullandığım bir makrom var. Ancak LİSTE sayfasındaki KODLARA ilave yaptığımda KOD uzun hatası veriyor. Bu KODU 2'ye veya 3'e bölebilirmiyiz?

Şimdiden teşekkür ederim.

 

[ÖmerFaruk]

Kod ya da dosyanız görülmüyor.

 

[Filose]

Dosya ekleyemedim bu nedenle sadece mesaj gitti

 

[Filose]

LİSTE sayfasındaki KODLARA ilave yaptığımda KOD uzun hatası veriyor. Bu KODU 2'ye veya 3'e bölebilirmiyiz?

Şimdiden teşekkür ederim.

 

[ÖmerFaruk]

Kdlarınızda hem IF sorguları hem de FOR döngülerinde aynı sorguyu ya da döngüyü birden çok kez yazmışsınız.
Bunu ortak paydaya alma gibi düşünebilirsiniz. Kodlar neden uzun hatası verir bilmiyorum kodlarınız gerçekten gereğinden fazla uzun
Mesela aşağıda kodunuzdaki benzer satırları inceleyin.

'HÜRSAN --------------------------------------------------------------------------------------------------------------
'GEÇİÇİ VERGİ
If s1.Cells(5, "BS") = "2" Or s1.Cells(5, "BS") = "5" Or s1.Cells(5, "BS") = "8" Or s1.Cells(5, "BS") = "11" _
      Then s1.Cells(11, "BS") = "E-D" Else s1.Cells(11, "BS") = ""
   

'LİMA-------------------------------------------------------------------------------------------------------------
'GEÇİÇİ VERGİ
If s1.Cells(5, "BS") = "2" Or s1.Cells(5, "BS") = "5" Or s1.Cells(5, "BS") = "8" Or s1.Cells(5, "BS") = "11" _
      Then s1.Cells(13, "BS") = "X" Else s1.Cells(13, "BS") = ""

Bu iki hatta daha fazla olan aynı sorgu cümlesine sahip IF-THEN ların yerine

If s1.Cells(5, "BS") = "2" Or s1.Cells(5, "BS") = "5" Or s1.Cells(5, "BS") = "8" Or s1.Cells(5, "BS") = "11" Then
    s1.Cells(11, "BS") = "E-D"
    s1.Cells(13, "BS") = "X"
    s1.Cells(15, "BS") = "X"
Else
    s1.Cells(11, "BS") = ""
    s1.Cells(13, "BS") = ""
    s1.Cells(15, "BS") = ""
End If

 

[Filose]

Sayın NextLevel,

İlginize teşekkür ediyorum. İşaret ettiğiniz yolu deneyeceğim. Sizin gibi bilgi sahibi olmadığımızdan
sığ sular bile bize tehlikeli görünüyor zaten denemeden de öğrenilemiyor.
Teşekkür eder saygılar sunuyorum.

Sağlıkla kalın