Makro ile gelişmiş arama yapabilmek

[cocococo]

Merhabalar

Elimde 380000 adet dosya numarası var
Bunlar A,B,C.....M sütunlarında sıralı şekilde bulunuyor.
Benim isteğim toplu şekilde arama yaptırabilmek.
müdürüm 150-250 tane dosya numarası veriyor .Bunlar bizde kayıtlımıdır diyor.Bende tek tek kontrol ediyorum.Buda çok fazla vaktimi alıyor.
bunu sorgulama işini toplu olarak nasıl yapabilirim. Yardımcı olursanız sevinirim

 

[asi_kral]

Merhaba
Dosya ekleyebilir misiniz_?

 

[cocococo]

Dosyayı ekledim

Kusura bakma ancak cevap yazabildim .Dosyayı ekledim

 

[Korhan Ayhan]

Ekteki dosyayı inceleyiniz.

 

[centillboy]

Ekteki dosyayı inceleyiniz.

Korhan Bey Günaydın,

Herkesin işine yarayabilecek bir çalışma olmuş elinize sağlık bir şey sormak istiyorum diyelim örnek dosyada bir numaradan 3 tane var bir numaradan 5 tane var birinden 2 tane böyle bir olasılıkta kayıtlarda kaç tane ise o kadar var şeklinde bir ekleme yapılabilir mi

 

[Korhan Ayhan]

Aşağıdaki kodu kullanabilirsiniz.

Sub ARA()
    Dim X As Integer, Say As Long
    
    Application.ScreenUpdating = False
    
    Range("P:Q").Clear
    
    For X = 1 To Cells(Rows.Count, "O").End(3).Row
        If Cells(X, "O") <> "" Then
            Say = WorksheetFunction.CountIf(Range("A:M"), Cells(X, "O"))
            If Say > 0 Then
                Cells(X, "P") = "Kayıtlarda var"
                Cells(X, "Q") = Say
            End If
        End If
    Next
    
    Application.ScreenUpdating = True
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[centillboy]

Teşekkürler Korhan Bey

 

[cocococo]

Eline sağlık

Eline sağlık
Ama bunu nasıl uygulayacağız.
Fazla bir bilgim yok.
Rica etsem makroyu excell monte edip koyabilirmisiniz

 

[Korhan Ayhan]

#4 nolu mesajın ekinde dosya var. İnceleyiniz.

 

[assenucler]

Teşekkür

Değerli üstadım,


Günaydın ve hayırlı Cuma'lar.

Katkınız için teşekkürler.

Sevgi ve saygılar.

 

[cocococo]

İlgin ve alakan için teşekkür ederim

 

[cocococo]

Sizden çok şey istiyorum kusura bakmayın.İnsanın aklına başka şeylerde geliyor bu arama konusunda.

Bu yaptığınız uygulama sonuçları çok güzel bir şekilde veriyor; peki bu aradığımız değerlerin(mesela 125 sayısı hem 3 satırda hemde 738 satırda varsa bunları tek tek göstermesi ) kaçıncı satırda olduklarını'da görmemiz mümkünmüdür.

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sub ARA()
    Dim X As Integer, Bul As Range, Adres As String
    Dim Sutun As Integer, Hucre_Adresi As String
    
    Application.ScreenUpdating = False
    
    Range("P:Z").Clear
    
    For X = 1 To Cells(Rows.Count, "O").End(3).Row
        Sutun = 17
        If Cells(X, "O") <> "" Then
            Set Bul = Range("A:M").Find(Cells(X, "O"), , , xlWhole)
            If Not Bul Is Nothing Then
                Adres = Bul.Address
                Do
                    Cells(X, "P") = "Kayıtlarda var"
                    Cells(X, Sutun) = Bul.Address(0, 0)
                    Hucre_Adresi = "'Sayfa1'!" & Bul.Address
                    ActiveSheet.Hyperlinks.Add Cells(X, Sutun), "", Hucre_Adresi, Hucre_Adresi
                    Sutun = Sutun + 1
                    Set Bul = Range("A:M").FindNext(Bul)
                Loop While Not Bul Is Nothing And Bul.Address <> Adres
            End If
        End If
    Next
    
    Range("P:Z").EntireColumn.AutoFit
    
    Application.ScreenUpdating = True
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub