Tarih aralığını yazdir

[işsiz123]

Merhabalar
Userform üzerinde ki textbox1 ve textbox2 te yazacağınız tarihler arasını (Tarihler A:A sütunda)Sayfa1 deki A2:F arasındaki tüm verileri kopyalayıp Sayfa2 yazdırma makrosu nasıl yapabiliriz.

 

[Orion1]

Örnek dosya yüklerseniz daha doğru ve hızlı sonuç alabilirsiniz.

 

[işsiz123]

Örnek dosya yüklerseniz daha doğru ve hızlı sonuç alabilirsiniz.

Arkadaş sormuştu da örnek dosya yok. Cevap gelse çok sevinirim

 

[Orion1]

Bu kodları biz yaparken dosya üzerinde çalışarak yapıyoz.
Yani ezbere kod yazmıyoz.Siz yollamazsanız ben kendim hazırlamam gerekecek.
Bunun için örnek dosya istyoruz.
Yani en azından ben öyle yapıyom.
O zaman siz hazırlayıp örnek bir dosya yollayın.
İyi çalışmalar.

 

[işsiz123]

Bu kodları biz yaparken dosya üzerinde çalışarak yapıyoz.
Yani ezbere kod yazmıyoz.Siz yollamazsanız ben kendim hazırlamam gerekecek.
Bunun için örnek dosya istyoruz.
Yani en azından ben öyle yapıyom.
O zaman siz hazırlayıp örnek bir dosya yollayın.
İyi çalışmalar.

Haklısınız örnek dosyasız olmaz.????
Dosya ekte
https://www.dosya.tc/server20/bq3d3k/yesil_kure_.xlsm.html

Yapmak isteyip takıldığım nokta şu:
sayfa 1(şahit numune kayıt formu) sayfası benim veritabanım gibi orda birkaç örnek verim var.
userformda raporlama sekmesinde iki adet textbox bulunmaktadır.
ilk textboxa başlangıç ikinci textboxa bitiş tarihlerini giriyorum.
ordaki şahit numune isimli butona bastığımda bu iki tarihi sayfa1 de A sütununda aramasını vebu iki satır arası verileri kopyalayıp sayfa8 (rapor1) isimli sayfaya yapıştırıp
çıktı almasını istiyorum.
yardımcı olursanız çok sevinirim. şimdiden teşekkürler.
not: makroyu etkinleştirdikten sonra kullanıcı adına ismanbrc yazıp giriş yapabilirsiniz.

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton8_Click()
TextBox24 = Format(TextBox24, "dd.mm.yyyy")
TextBox25 = Format(TextBox25, "dd.mm.yyyy")

Dim a As Long, b As Long, i As Long
If Sayfa1.AutoFilterMode = True Then Sayfa1.AutoFilterMode = False
a = Sayfa1.Cells(Rows.Count, "A").End(xlUp).Row
If a < 2 Then
    MsgBox "Sayfa1 de veri yok!" & vbLf & "İşlem iptal oldu!!", vbCritical, "UYARI"
    Exit Sub
End If
Sayfa1.Range("A1").Select
Sayfa8.Range("A5:F" & Rows.Count).ClearContents
Sayfa1.Range("A1").AutoFilter Field:=1, Criteria1:=">=" & _
        CLng(CDate(TextBox24.Value)), Operator:=xlAnd, Criteria2:="<=" & CLng(CDate(TextBox25.Value))
Sayfa1.Range("A1").CurrentRegion.Offset(1#).Copy Sayfa8.Range("A5")
Sayfa1.AutoFilterMode = False
End Sub

 

[işsiz123]

Dosyanız ektedir.

Private Sub CommandButton8_Click()
TextBox24 = Format(TextBox24, "dd.mm.yyyy")
TextBox25 = Format(TextBox25, "dd.mm.yyyy")

Dim a As Long, b As Long, i As Long
If Sayfa1.AutoFilterMode = True Then Sayfa1.AutoFilterMode = False
a = Sayfa1.Cells(Rows.Count, "A").End(xlUp).Row
If a < 2 Then
    MsgBox "Sayfa1 de veri yok!" & vbLf & "İşlem iptal oldu!!", vbCritical, "UYARI"
    Exit Sub
End If
Sayfa1.Range("A1").Select
Sayfa8.Range("A5:F" & Rows.Count).ClearContents
Sayfa1.Range("A1").AutoFilter Field:=1, Criteria1:=">=" & _
        CLng(CDate(TextBox24.Value)), Operator:=xlAnd, Criteria2:="<=" & CLng(CDate(TextBox25.Value))
Sayfa1.Range("A1").CurrentRegion.Offset(1#).Copy Sayfa8.Range("A5")
Sayfa1.AutoFilterMode = False
End Sub

Teşekkürler ????

 

[Orion1]

Teşekkürler ????

Rica ederim.
İyi çalışmalar.