Kısa bir aradan sonra tekrar Merhabalar.
Kullanmış olduğum dosyada bugun fark ettiğim bir eksikliği sizlerden yardım alarak çözmek istiyorum.
Depo uygulaması kullanıyorum. Süz sayfasında kodlar yardımı ile rapor alıyorum fakat kodların yeterince süz işlemini yapmadığını anladım ve sizleden bunu nasıl düzeltebilirim. ( office 2003 de normal çalışıyor bazen )
office 2007 trk kullnıyorum
Sub Tarihara()
Dim veri1 As Worksheet, veri2 As Worksheet, s1 As Integer, Aranan1 As String, Aranan2 As Long, Aranan3 As Long
Set veri1 = Worksheets("Malz.Çıkışı")
Set veri2 = Worksheets("Süz")
Set Liste = veri1.Range("A1")
Aranan1 = veri2.Range("C3").Value
Aranan2 = veri2.Range("C1").Value
Aranan3 = veri2.Range("C2").Value
'On Error Resume Next
veri2.Range("B5:I" & veri2.Range("C10000").End(3).Row + 4).ClearContents
Liste.AutoFilter Field:=1, Criteria1:=">=" & Aranan2, Operator:=xlAnd, Criteria2:="<=" & Aranan3
Liste.AutoFilter Field:=2, Criteria1:=Aranan1
veri1.Range("A1:H" & veri1.Range("B10000").End(3).Row).Copy veri2.Range("B4")
Liste.AutoFilter
s1 = WorksheetFunction.CountA(veri2.Range("C:C")) - 4
If s1 = 0 Then MsgBox " Bu kriterde kaydınız yok": Exit Sub
MsgBox "Bu Kriterde " & s1 & " Adet Kaydınız Bulundu", vbInformation, "Bilgi"
End Sub
kullandığım kod bu iki tarih yazıyorum ara düğmesine basarak gerekli bilgiyi bana vermesi gerekiyor
sizlerin tavsiye edeceği başka yöntem yada kod var mı?