• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

Çözüldü VBA Döngü sonuç vermiyor

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

exceling

Yeni Üye
Katılım
29 Ağu 2023
Mesajlar
11
Çözümler
1
Aldığı beğeni
1
Excel V
Office 2021 TR
Konu Sahibi
Arkadaşlar merhaba
Excelde büyük veri ile çalışıyorum. Belli kriterlere göre belli satırları işaretlemem gereken aşağıdaki vba kodunu yazdım fakat kodum doğru olmasına rağmen verim çok büyük olduğu için sonuç alamıyorum. Bu konuyu acil çözmem gerekiyor. Lütfen yardımcı olur musunuz? Küçültülmüş bir dosyayı ekte paylaştım.

Sub makro ()
For i=2 to 11000
For t=2 to 500000
If Range("B"&i).Value=Range("E"&t).Value Then
If Range("C"&i).Value=Range("F"&t).Value Then
If Range("D"&i).Value=Range("G"&t).Value Then
Range("A"&t).Value="var"
End If
End If
End If
Next t
Next i
End Sub
 
Çözüm
Tüm kodları denedim. Muhtemelen doğru çalışıyorlardır fakat verim çok büyük olduğu için kısa sürede sonuç vermesi de önemliydi benim için. İstediğim sonucu verecek kodu ChatGpt'ye yazdırmayı denedim. uygun şartları sağlayan satırları sarıya boyayan aşağıdaki kod 3 4dk içinde sonuç vererek düzgün bir biçimde çalıştı. Hepinize emeğiniz ve ilginiz için teşekkür ederim.
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Önerdiğim kodu denediniz mi?
 
aşağıdaki kodu dener misiniz?
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Konu Sahibi
Tüm kodları denedim. Muhtemelen doğru çalışıyorlardır fakat verim çok büyük olduğu için kısa sürede sonuç vermesi de önemliydi benim için. İstediğim sonucu verecek kodu ChatGpt'ye yazdırmayı denedim. uygun şartları sağlayan satırları sarıya boyayan aşağıdaki kod 3 4dk içinde sonuç vererek düzgün bir biçimde çalıştı. Hepinize emeğiniz ve ilginiz için teşekkür ederim.
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Çözüm
22. mesajdaki kod, hatalı mı çalıştı yoksa ağır mi?
 
Sayın exceling
Adsız.png
"B-C-D" Sütunundaki değerleri "D:E:F" sütunlarında arar bulduğu değerleri "B" sütunundaki aranan hücrenin rengine boyar. "A" sütununa da eğer aranan veri varsa "Var" yazar.
 
Deneyiniz.
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Merhaba.Kodunuzu alttaki gibi düzenlerseniz daha hızlı çalışır umulur.

HTML:
C#:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Son düzenleme:
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst