Sorgulama

[bekir38]

merhaba arkadaşlar,
üretim takip ile ilgili basit bir proğram yapıyorum da,
koda göre sorgulama yapıp rapor alıyor,
haftaya göre sorgulama yapıp rapor alıyor,
fakat üretimci arkadaş belirli bir tarih aralığına görede rapor almak istedi.
bu konunun içinden çıkamadım. sitede epeyce bir arama yaptım ama bulamadım. iki tarih arası sorgulama nasıl yapabilirim.
yani usta 01.02.07 ile 09.07.2007 arasındaki üretimi sorduğunda
bir rapor almasını istiyorum. tarihler değişken olabilir,

dosya ektedir, yardımcı olursanız sevinirim.

iyi çalışmalar,

 

[Zeki Gürsoy]

Dosyanıza form ekledim.
Dosyanız ekte.

Private Sub CommandButton1_Click()
On Error Resume Next
    With Sheets("STOK")
        .ShowAllData
     If .AutoFilterMode = True Then
        .[a1].AutoFilter Field:=7, Criteria1:=">=" & CLng(CDate(TextBox1)), _
            Operator:=xlAnd, Criteria2:="<=" & CLng(CDate(TextBox2))
     Else
        MsgBox "Auto filter açık değil."
     End If
        .[a1].CurrentRegion.Copy [a5]
    End With
    Rows(5).Delete
    Unload Me
End Sub

 

[bekir38]

sayın anemos çok teşekkürler,
çözümünüzü biraz değiştirerek kullandım.
gayet güzel oldu. ilgi ve alakanıza çok teşşekkürler.

tam bitmedi ama birilerinin belki işine yarar diye ekliyorum foruma,
üretimci arkadaşların değişik istekleri olmazsa örnek çalışmalar sayfasınada ekliyeceğim, ama hala geliştiriyoruz.

iyi çalışmalar,

 

[pixis]

Merhaba, sizin üretim takip dosyanıza erişemiyorum. bu konuda yardımcı olursanız sevinirim

 

[com5]

dosya yok