Skip to main content

AccessTr.neT M.

Gelişmiş Filtre Uygulamasında Makro İle Listeleme Sorunu

Konu

#19
(24/08/2019 13:06)userx Adlı Kullanıcıdan Alıntı: İki tarih arası rapor filtresi de eklendi.
Elinize sağlık bende başka bir kaynaktan çözdüm farklı bir şekilde.

Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#20
(05/09/2019 23:42)Oğuz Türkyılmaz Adlı Kullanıcıdan Alıntı:
(24/08/2019 13:06)userx Adlı Kullanıcıdan Alıntı: İki tarih arası rapor filtresi de eklendi.
Elinize sağlık bende başka bir kaynaktan çözdüm farklı bir şekilde.
Sub Suz()

Set s1 = Sheets("LİSTE")
    eski = WorksheetFunction.Max(1, s1.Cells(Rows.Count, "B").End(1).Row)
    s1.Range("B2:G" & eski) = ""
For sayfa = 1 To 2 'Sheets.Count
    If Sheets(sayfa).Name <> s1.Name Then
        For i = 1 To 100
            yeni = s1.Cells(Rows.Count, "B").End(3).Row + 1
            s1.Range("B" & yeni) = Sheets(sayfa).Range("B" & i + 1)
            s1.Range("C" & yeni) = Sheets(sayfa).Range("C" & i + 1)
            s1.Range("D" & yeni) = Sheets(sayfa).Range("D" & i + 1)
            s1.Range("E" & yeni) = Sheets(sayfa).Range("E" & i + 1)
            s1.Range("F" & yeni) = Sheets(sayfa).Range("F" & i + 1)
            s1.Range("G" & yeni) = Sheets(sayfa).Range("G" & i + 1)
        Next
    End If
   
    Next
    Sheets("LİSTE").Columns("B:G").AdvancedFilter Action:=xlFilterCopy, _
    CriteriaRange:=Range("B1:G2", "H1:M2"), CopyToRange:=Range("B10:G6500"), Unique:= _
    False
   
      ActiveWorkbook.Worksheets("RAPOR").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("RAPOR").Sort.SortFields.Add Key:=Range("B11:B65000"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("RAPOR").Sort
        .SetRange Range("B11:G65000")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("B11").Select
End Sub

şeklinde değiştirirseniz düzelecektir.

userx, 24-08-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
...........

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da