• Foruma hoş geldin 👋 Ziyaretçi

    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 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
Kullanıcı Bilgileri
Aktiflik
Çevrimdışı
Katılım
29 Ağu 2023
Mesajlar
11
Çözümler
1
Aldığı beğeni
1
Excel V
Office 2021 TR
Konuyu Başlatan
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
 

Ekli dosyalar

  • örnek.xlsx
    9.7 KB · Gösterim: 14
Çö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.
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Aşağıya eklediğim dosyada şöyle bir kod var dener misini? Atladığım bir konu olabilir.

Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 

Ekli dosyalar

  • örnek.xlsx
    9.7 KB · Gösterim: 2
maalesef "invalide use of Me keyword" hatası alıyorum
 
Bir de ActiveSheet olarak deneyelim.

Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 

Ekli dosyalar

  • VarolanlarıSirala.xlsm
    16.4 KB · Gösterim: 1
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.

Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 

Ekli dosyalar

  • VarolanlarıSirala.xlsm
    16.4 KB · Gösterim: 1
Ş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.
 
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ı
 
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
 
Eğer bu da sizin istediğiniz değilse lütfen şu şekilde yazın: A kolonda şunu, I'da bunu istiyorum gibi.
 
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 ?
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
B'deki ve E'deki büyük verideki son satır numaraları nedir? Bir de aşağıdaki kodu dener misiniz?

Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
aşağıdaki kodu dener misiniz?
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
hocam küçültülmüş veride kod çalıştı. şu an büyük veride de çalışıyor ama verim çok büyük 800 bin satır. bu kod sonuç verir mi?
B sütununda sorgulanacak ne kadar kayıt varsa sonuna kadar devam eder.
 
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