[Çözüldü]  İç İçe Döngünün Hızlı Çalışmasını Sağlamak

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

İç İçe Döngünün Hızlı Çalışmasını Sağlamak

İleti#1)  onur.var » 22 Haz 2022 23:33

İyi günler,

Aşağıda aynı kod içerisinde kullanmam gereken 2 adet iç içe döngünün daha hızlı çalışmasını sağlamak için alternatif bir döngü yapısı var mıdır acaba?

Kod: Tümünü seç
Sub import()

Application.DisplayAlerts = False
       
       
Dim rng As Range 'Range yani hücre tipinde bir rng değişkeni tanımladık
son_madde = Sheet4.Cells(65536, "A").End(3).Row
son_keyword = Sheet6.Cells(65536, "D").End(3).Row
For Each rng In Sheet4.Range("Q2:Q" & son_madde) 'verilen aralıktaki tüm hücreleri tek tek dolaş
For madde_keyword = 2 To son_keyword
If rng.Offset(0, -11).Text Like "*" & Sheet6.Cells(madde_keyword, "D") & "*" Then
rng.Offset(0, -1) = "AYIKLANACAKLAR" ' her birinin değerine ilgili metni yaz.
Else
rng = "DİĞER" ' her birinin değerine ilgili metni yaz.
End If
Next madde_keyword
Next rng

son_personel = Sheet6.Cells(65536, "B").End(3).Row
son_madde = Sheet4.Cells(65536, "A").End(3).Row
For Each rng In Sheet4.Range("I2:I" & son_madde) 'verilen aralıktaki tüm hücreleri tek tek dolaş
For employee = 2 To son_personel
If rng.Offset(0, 0).Text Like "*" & Sheet6.Cells(employee, "A").Text Then
rng.Offset(0, 7) = "AYIKLANACAKLAR"
Else
rng.Offset(0, 8) = "DİĞER"
End If
Next employee
Next rng
   

    Application.ScreenUpdating = True

    MsgBox "VERİLER BAŞARILI BİR ŞEKİLDE ALINDI ", vbExclamation, ""


End Sub








Nasıl bir amaçla kullanacağımı göstermek için örnek dosyayı da ekliyorum.

Yardımcı olabilir misiniz?
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
onur.var
Siteye Alışmış
 
Kayıt: 16 May 2018 20:16
Meslek: Uçak Teknisyeni
Yaş: 31
İleti: 109
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Yıllık Maaş Bordrosu Hesaplama 2022

Cevap: İç İçe Döngünün Hızlı Çalışmasını Sağlamak

İleti#2)  yusuf43 » 23 Haz 2022 00:37

Hızlı çalışması için kod ekledim kontrol edin.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
yusuf43
Site Dostu
 
Kayıt: 19 May 2021 12:00
Meslek: EV HANIMI
Yaş: 46
İleti: 723
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: KÜTAHYA

Cevap: İç İçe Döngünün Hızlı Çalışmasını Sağlamak

İleti#3)  onur.var » 23 Haz 2022 10:30

Çok çok teşekkür ederim.

Bu koda daha önceden hiçbir yerde rastlamamıştım.

Kod: Tümünü seç
Application.Calculation = xlCalculationManual
'Kod bölümü
Application.Calculation = xlCalculationAutomatic


Hatasız kodlu günler...
Kullanıcı avatarı
onur.var
Siteye Alışmış
 
Kayıt: 16 May 2018 20:16
Meslek: Uçak Teknisyeni
Yaş: 31
İleti: 109
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google [Bot], Google Adsense [Bot] ve 3 misafir

Bumerang - Yazarkafe