Userformda süz ve raporla

[86126]

arkadaşlar ekli dosyamda veriler ismli sayfada verilerim var. a sutununda tarihler yazılı. bu tarihe göre userformda süzme yapıp rapor sayfasında süzülenleri aktarmak istiyorum. aşağıdaki kodu buldum ancak çalışmadı yardımcı olursanız sevinirim.

Private Sub UserForm_Activate()
ComboBox1.RowSource = "Veriler!a6:b" & [Veriler!a65536].End(3).Row
ComboBox2.RowSource = "Veriler!a6:b" & [Veriler!a65536].End(3).Row
End Sub
Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
ComboBox1 = Format(ComboBox1, "dd.mm.yyyy")
End Sub
Private Sub ComboBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
ComboBox2 = Format(ComboBox2, "dd.mm.yyyy")
End Sub
Private Sub CommandButton7_Click()
Sheets("rapor").Select
Sheets("rapor").Range("A6:ıv65536").ClearContents
bastar = ComboBox1.Value
bittar = ComboBox2.Value
c = 0
For tarih = 1 To Sheets("VERİLER").Cells(65536, 1).End(xlUp).Row
aratar = Sheets("VERİLER").Cells(tarih, 1).Value
If aratar >= bastar And aratar <= bittar Then
c = c + 1
For sut = 1 To 65536
Sheets("rapor").Cells(c + 1, sut) = Sheets("VERİLER").Cells(tarih, sut).Value
Next sut
End If
Next tarih
End Sub

 

[zafer]

Merhaba

Aşağıdaki linkteki örnekleri inceledinizmi

Veri Yönetimi Uygulamaları,

 

[86126]

zAFER BEY ÖNERİNİZ İÇİN TEŞEKKÜR EDERİM ANCAK İŞİN İÇİNDEN çıkmadım. Örnek koduda formdan bulup uyarladım ancak beceremedim. yardımcı olursanız sevinirim.

 

[86126]

arkadaşlar bu işten anlyan yokmu. yardım bekliyorum

 

[emrexcel123]

arkadaşım yanılmıyorsam belirlenen tarihler arası rapor gibi birşey mi?

 

[86126]

evet arkadaşım iki tarih arası süzüp rapor almak istiyorum.

 

[emrexcel123]

rapor

arkadaşım ekte bir örnek var kendine göre revize edebilirsin yeşil alan verialanı
sarı alan rapor alanıdır...
kullanıcı adı : emre
parola : 147258