15300 satırlı 16 sutunlu bir veri alanında sorgulama yapmak

[orgatu]

şimdilik yaklaşık 15300 satır olup 16 sutunlu bir veri alanında numerik değerler ile sorgulama yapmak istiyorum. excell deki (97) süz fonksiyonu çalışmadı. başka ne yapabilirim. mesale en sutununda iki farklı ölçü arasındaki satırları listelemem gerekiyor. teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Dosyanızın küçük bir örneğini ekleyerek nasıl bir sorgulama yapmak istediğinizi açıklarsanız yardımcı olabiliriz.

 

[orgatu]

mesela en sutunundaki iki farklı değer arasındaki verileri bulmak istiyorum.

 

[Korhan Ayhan]

Selamlar,

Süzme özelliğinde problem yaşıyorsanız işlemleri makro ile yapabilirsiniz. Ekteki örnek dosyayı incelermisiniz.

Butona tıkladığınızda size kriterleri soruyor. Verdiğiniz yanıtlara göre aktarım işlemini yapıyor.

Kullanılan kod;

Option Explicit
 
Sub AKTAR()
    Dim S1 As Worksheet, S2 As Worksheet, X As Long, SATIR As Long
    Dim SÜTUN As String, İLK_DEĞER As Double, SON_DEĞER As Double
    
    On Error GoTo Hata
    
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    
    Application.ScreenUpdating = False
    
    S2.Range("A2:L65536").ClearContents
    SATIR = 2
    
    SÜTUN = Application.InputBox("Lütfen sorgulamak istediğiniz sütun harfini giriniz.", , "E")
    If SÜTUN = "" Or SÜTUN = "False" Then Exit Sub
    
    İLK_DEĞER = Application.InputBox("Lütfen değer aralığı giriniz.", "İLK DEĞER", 1)
    If İLK_DEĞER = False Then Exit Sub
    
    SON_DEĞER = Application.InputBox("Lütfen değer aralığı giriniz.", "SON DEĞER", 1000)
    If SON_DEĞER = False Then Exit Sub
    
    For X = 3 To S1.Range("A65536").End(3).Row
        If S1.Cells(X, SÜTUN) >= İLK_DEĞER And S1.Cells(X, SÜTUN) <= SON_DEĞER Then
            S1.Range("A" & X & ":L" & X).Copy S2.Cells(SATIR, "A")
            SATIR = SATIR + 1
        End If
    Next
    
    Set S1 = Nothing
    Set S2 = Nothing
    Application.ScreenUpdating = True
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
    
    Exit Sub
 
Hata:
    Set S1 = Nothing
    Set S2 = Nothing
    Application.ScreenUpdating = True
    MsgBox "Hata oluştu !" & Chr(10) & "İşleminiz iptal edilmiştir.", vbCritical
End Sub

 

[majestik_]

korhan bey,

bu yazdığınız makroyu sadece sayısal değilde harfler ve sayılar ile birlikte kullanabilirmiyiz??

 

[orgatu]

harikasınız, çok teşekkür ediyorum.

 

[orgatu]

harikasınız, çok teşekkürler ilginiz için

 

[Korhan Ayhan]

Selamlar,

Sn. majestik tabiki istediğiniz şekilde de kullanılabilir. Fakat makrolar kullanıcıların isteklerine göre şekillenmektedir. Bu sebepe örnek dosya ekleyerek istediğiniz kodun çalışma mantığını açıklarsanız yardımcı olmaya çalışırız.

korhan bey,

bu yazdığınız makroyu sadece sayısal değilde harfler ve sayılar ile birlikte kullanabilirmiyiz??

 

[majestik_]

Korhan Bey bende ki veriler hem sayısal hemde harfle ifade edilmekte örnek bir dosya gönderiyorum benim yapmak istediğim "I" sutununa göre süzme yapması ve daha sonra bunları herbiri excel sayfası olarak başka bir klosörde toplaması