Excel de İçinde geçen kayıtları farklı hücrede bulmak

[OZCANK61]

Merhabalar bir konuda yardımınıza ihtiyacım var.
1 tablom var ve bu tabloda 2 hücre var
A2 ve C2
A2 Hücresinde 748219 satırda VKA-54-39008EHPAL
C2 Hücresinde 39 satırda 54-39008EHPAL

bu şekilde içinde eşleşen kayıtlar var bunları nasıl bulabilirim?

=EĞER(ESAYIYSA(BUL($C$2;A469088));"Var";"Yok")

bu satırda 1 tane VAR buluyor ama bunun gibi çok var hiçbiri yok.

 

[Tevfik_Kursun]

Merhaba Arkadaşım,

excel vba- Döngü çok uzun sürüyor.

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? Sub makro...

excel.web.tr

Bu bağlantıda bir örnek var, inceleyiniz.
Ya da buraya, ihtiyacınızla ilgili küçük bir örnek yüklerseniz (ücretsiz dosya.tc ... gibi sitelere de yükleyebilirsiniz) ilgilenen arkadaşımız olacaktır.
İyi çalışmalar

 

[OZCANK61]

Merhaba Arkadaşım,

excel vba- Döngü çok uzun sürüyor.

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? Sub makro...

excel.web.tr

Bu bağlantıda bir örnek var, inceleyiniz.
Ya da buraya, ihtiyacınızla ilgili küçük bir örnek yüklerseniz (ücretsiz dosya.tc ... gibi sitelere de yükleyebilirsiniz) ilgilenen arkadaşımız olacaktır.
İyi çalışmalar

Teşekkür ederim. Buradaki örnekler benim işimi görmüyor.

 

[Tevfik_Kursun]

Merhaba Arkadaşım,
Örnek yükleyin, bakalım
iyi çalışmalar

 

[OZCANK61]

Merhaba Arkadaşım,
Örnek yükleyin, bakalım
iyi çalışmalar

Merhaba Arkadaşım,
Örnek yükleyin, bakalım
iyi çalışmalar

Merhaba, Dosyayı buraya yükledim.
https://dosya.co/l5ff661cxnqb/ESLESTIRME.xlsx.html Yardımcı olursanız çok sevinirim.

 

[Korhan Ayhan]

Merhaba,

Kullandığınız ofis sürümü ve dili nedir?

 

[OZCANK61]

Merhaba,

Kullandığınız ofis sürümü ve dili nedir?

Office 365

 

[Korhan Ayhan]

Rica etsem bu bilgiyi profilinizde yazan WINDOWS ifadesi yerine yazarak güncelleyebilirmisiniz.

Kullandığınız ofis dilinide profilinize eklerseniz daha faydalı olacaktır.

 

[Korhan Ayhan]

Aranan veri için sonuç olarak Var-Yok yazması yeterli mi?

 

[OZCANK61]

Aranan veri için sonuç olarak Var-Yok yazması yeterli mi?

Merhaba evet yeterli.

 

[OZCANK61]

Merhaba evet yeterli.

Merhaba bakabildiniz mi?

 

[Korhan Ayhan]

Bir kod hazırladım aslında. Fakat işlemi tamamlaması 16 dakika civarında sürdü. Bana verimli gelmediği için paylaşmadım.

 

[OZCANK61]

Bir kod hazırladım aslında. Fakat işlemi tamamlaması 16 dakika civarında sürdü. Bana verimli gelmediği için paylaşmadım.

Merhaba, Teşekkür ederim. Peki kayıtları eşliyorsa sorun yok.

 

[Korhan Ayhan]

Deneyip sonucu bildirirseniz sevinirim.

Option Explicit

Sub Find_Stock_Code_Dictionary()
    Dim Target_Array As Object, Target_List As Variant, X As Long
    Dim Join_Data As Variant, Search_List As Variant, Process_Time As Double
    
    Process_Time = Timer
    
    Set Target_Array = VBA.CreateObject("Scripting.Dictionary")
    
    Range("C:C").ClearContents
    
    Target_List = Range("A2:A" & Cells(Rows.Count, 1).End(3).Row).Value

    For X = LBound(Target_List, 1) To UBound(Target_List, 1)
        Target_Array.Add CStr(Target_List(X, 1)), CStr(Target_List(X, 1))
    Next
    
    Join_Data = Join(Target_Array.Keys, "|")
    
    Search_List = Range("B2:B" & Cells(Rows.Count, 2).End(3).Row).Value

    ReDim My_Result_List(1 To Rows.Count, 1 To 1)

    For X = LBound(Search_List, 1) To UBound(Search_List, 1)
        If Search_List(X, 1) <> "" Then
            If Join_Data Like "*" & Search_List(X, 1) & "*" Then
                My_Result_List(X, 1) = "Var"
            Else
                My_Result_List(X, 1) = "Yok"
            End If
        End If
    Next
    
    Range("C2").Resize(UBound(Search_List, 1)) = My_Result_List
    
    Set Target_Array = Nothing
    
    MsgBox "İşlem süresi ; " & Format(Timer - Process_Time, "0.00") & " Saniye"
End Sub

 

[OZCANK61]

Deneyip sonucu bildirirseniz sevinirim.

Option Explicit

Sub Find_Stock_Code_Dictionary()
    Dim Target_Array As Object, Target_List As Variant, X As Long
    Dim Join_Data As Variant, Search_List As Variant, Process_Time As Double
  
    Process_Time = Timer
  
    Set Target_Array = VBA.CreateObject("Scripting.Dictionary")
  
    Range("C:C").ClearContents
  
    Target_List = Range("A2:A" & Cells(Rows.Count, 1).End(3).Row).Value

    For X = LBound(Target_List, 1) To UBound(Target_List, 1)
        Target_Array.Add CStr(Target_List(X, 1)), CStr(Target_List(X, 1))
    Next
  
    Join_Data = Join(Target_Array.Keys, "|")
  
    Search_List = Range("B2:B" & Cells(Rows.Count, 2).End(3).Row).Value

    ReDim My_Result_List(1 To Rows.Count, 1 To 1)

    For X = LBound(Search_List, 1) To UBound(Search_List, 1)
        If Search_List(X, 1) <> "" Then
            If Join_Data Like "*" & Search_List(X, 1) & "*" Then
                My_Result_List(X, 1) = "Var"
            Else
                My_Result_List(X, 1) = "Yok"
            End If
        End If
    Next
  
    Range("C2").Resize(UBound(Search_List, 1)) = My_Result_List
  
    Set Target_Array = Nothing
  
    MsgBox "İşlem süresi ; " & Format(Timer - Process_Time, "0.00") & " Saniye"
End Sub

Merhaba, Emeğine , Yüreğine sağlık. Teşekkür ederim. Fakat ben bu sorguyu excel de nasıl kullanabilirim?

Bu sürümü kullanıyorum.
Microsoft® Excel® Microsoft 365 için MSO (Sürüm 2307 Derleme 16.0.16626.20170) 64 bit

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki adımları izleyiniz.

Dosyanızı açınız.
ALT+F11 tuşlarına basarak kod editörünü açınız.
INSERT menüsünden MODULE seçeneğini seçiniz.
Karşınızda beyaz bir pencere açılması gerekiyor.
Önerdiğim kodu bu pencereye yapıştırınız.
Sonrasında bu pencereyi çarpıya basarak kapatınız.

Dosyanızı farklı kaydet diyerek kayıt ediniz. Bu aşamada dosya türü kutucuğundan "Makro İçerebilen Excel Çalışma Kitabı" şeklindeki seçeneği seçerek işlem yapınız.

Artık ALT+F8 tuşuna basarak kodu çalıştırabilirsiniz.

Linkleride inceleyebilirsiniz.

https://www.excel.web.tr/threads/moduel-ekleme-resimli-anlatim.73353/

https://www.excel.web.tr/threads/sayfada-buton-duegme-olusturmak-ve-makro-atamak-1-resimli-anlatim.59436/

https://www.excel.web.tr/threads/sayfada-buton-duegme-olusturmak-ve-makro-atamak-2-resimli-anlatim.136979/

 

[OZCANK61]

Deneyip sonucu bildirirseniz sevinirim.

Option Explicit

Sub Find_Stock_Code_Dictionary()
    Dim Target_Array As Object, Target_List As Variant, X As Long
    Dim Join_Data As Variant, Search_List As Variant, Process_Time As Double
   
    Process_Time = Timer
   
    Set Target_Array = VBA.CreateObject("Scripting.Dictionary")
   
    Range("C:C").ClearContents
   
    Target_List = Range("A2:A" & Cells(Rows.Count, 1).End(3).Row).Value

    For X = LBound(Target_List, 1) To UBound(Target_List, 1)
        Target_Array.Add CStr(Target_List(X, 1)), CStr(Target_List(X, 1))
    Next
   
    Join_Data = Join(Target_Array.Keys, "|")
   
    Search_List = Range("B2:B" & Cells(Rows.Count, 2).End(3).Row).Value

    ReDim My_Result_List(1 To Rows.Count, 1 To 1)

    For X = LBound(Search_List, 1) To UBound(Search_List, 1)
        If Search_List(X, 1) <> "" Then
            If Join_Data Like "*" & Search_List(X, 1) & "*" Then
                My_Result_List(X, 1) = "Var"
            Else
                My_Result_List(X, 1) = "Yok"
            End If
        End If
    Next
   
    Range("C2").Resize(UBound(Search_List, 1)) = My_Result_List
   
    Set Target_Array = Nothing
   
    MsgBox "İşlem süresi ; " & Format(Timer - Process_Time, "0.00") & " Saniye"
End Sub

Kardeşim Merhaba , Ben bir türlü işlem yaptıramadım, bilgisayar donup kaldı sonuç alamadım. Eğer sizde formulu yazılmış "VAR" veya "YOK" diye bulduysanız o dosyayı atarmısınız?

 

[Korhan Ayhan]

İnceleyiniz.

Harici Link (Silinebilir) ; https://dosya.co/y9tpdkmoyi3z/ESLESTIRME_(Sonuc).rar.html