raporlama hakk

[kesikbey]

Arkadaşlar ekteki dosyada mizan sayfasından seçilen iki tarih arasında rapor alıyorum fakat çok yavaş çalışıyor.
Hızlandırmak mümkün mü acaba?

 

[asi_kral]

Arkadaşlar ekteki dosyada mizan sayfasından seçilen iki tarih arasında rapor alıyorum fakat çok yavaş çalışıyor.
Hızlandırmak mümkün mü acaba?

Merhaba
Userform'un Döküm Aldığınız butonun kod bölümünü bununla değiştirip deneyin.

Private Sub CommandButton1_Click()
'Konu       :   İki Tarih Arası Rapor
'mail       :   m.batu.1967@gmail.com
'coder By   :   asi_kral_1967
Dim asi, kral
Dim a, b, c, d
Set asi = Sheets("mizan")
Set kral = Sheets("dökme")
If CDate(TextBox2) < CDate(TextBox1) Then
MsgBox "Son Tarih İlk Tarihten Büyük Olamaz", vbCritical, "Hata"
Exit Sub
End If
kral.Select
b = ActiveCell.Address
kral.Range("A2:W" & Rows.Count).ClearContents
a = asi.Range("W" & Rows.Count).End(xlUp).Row
asi.Range("B1:W" & a).AutoFilter Field:=22, Criteria1:=">=" & CLng(CDate(TextBox1)), _
Operator:=xlAnd, Criteria2:="<=" & CLng(CDate(TextBox2))
If WorksheetFunction.Subtotal(3, asi.Range("W2:W" & a)) > 0 Then
asi.Range("B2:W" & a).Copy
kral.Range("B2").PasteSpecial (xlPasteValues)
End If
asi.Range("B1:W" & a).AutoFilter
Range(b).Select
MsgBox Format(CDate(TextBox1), "dd.mm.yyyy") & " ve " & Format(CDate(TextBox2), "dd.mm.yyyy") & vbLf _
& "Arasındaki Verileri Aldım", vbInformation, "asi_kral_1967"
End Sub

Eki İnceleyiniz.

 

[kesikbey]

Kral kardeşim çok tşkrler bu işimi görür. Selamlar...

 

[asi_kral]

Kral kardeşim çok tşkrler bu işimi görür. Selamlar...

Kolay Gelsin.