• 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.
Aşağıya eklediğim dosyada şöyle bir kod var dener misini? Atladığım bir konu olabilir.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Konu Sahibi
cevabınız içi teşekkür ederim fakat kod istediğim şekilde çalışmıyor. ben var mı yok mu diye kontrol yapmak istemiyorum. istediğim şey hangi satırda gerekli şartların sağlandığı. bu kodda 11 bininci satıra kadar var yazıyor. ama ben bu şartların 500 bin satırlık kısımda hangi satırda sağlandığını bulmak istiyorum. umarım anlatabilmişimdir. ilginiz için teşekkürler.
 
B kolonunda olan değerleri E kolonunda arıyoruz.

B'deki bir değer E'de birden fazla olabilir mi? Ve fazla olduğunda yapacağımız bir şey var mı? Örneğin E'deki değerlerden ilkini, sonuncusu ya da hepsi gibi.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Şu konuya dikkat edelim: B'deki bir değer için E'de koşullar sağlandığında o değer için arama son buluyor. Bu davranış uygun değilse onu belirtmelisiniz.
 
Konu Sahibi
son bulmaması gerekiyor. şartları sağlayan tüm satırların yanında var yazmasını istiyorum. ama belirttiğim gibi B=E, C=F ve D=G üç şartı aynı anda sağlamalı
 
Konu Sahibi
bu kod çalışıyor gibi ama ben hangi satırda varsa A sütununun o satırına var yazsın istiyorum. kaçıncı satırda oldukları yazıyor bu kodda
 
Konu Sahibi
küçültülmüş verimde çalışıyor faka büyük veride lstRow = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row şu satırda wrong number of arguments or invalid property assignment hatası alıyorum
 
Bilgisayarım yanımda değil o yüzden kontrol edemedim Alttaki kodu siz kontrol eder misiniz ?
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
aşağıdaki kodu dener misiniz?
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Konu Sahibi
kodların sonuç vermesi uzun sürüyor. yarın denemeye devam edeceğim. şimdilik hepsi küçültülmüş veride çalışıyor.
 
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst