Süz tarihe göre seçerek

[excile]

Merhabalar

Ana liste sayfasındaki yapılanları, rapor sayfasındaki d7 hücresinde yazacağım tarihe göre, c16 kolonuna getirmeye çalıştım ama maalesef tarih ve başlığı da getirerek yapabildim.

Ekte istediğimi anlatmaya çalıştım yardımcı olursanız çok sevinirim.

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton1_Click()
Dim sh As Worksheet, sat As Long, i As Long
Set sh = Sheets("Ana Liste")
Sheets("Rapor").Select
Application.ScreenUpdating = False
Range("C10:D" & Rows.Count).ClearContents
sh.Range("a1").AutoFilter field:=1, Criteria1:=CStr(Range("d7").Value)
sh.Range("b2").CurrentRegion.Offset(1, 1).Copy Range("D10")
sh.Range("A1").AutoFilter
sat = Cells(Rows.Count, "D").End(xlUp).Row
For i = 10 To sat
    Cells(i, "C").Value = i - 9
Next i
Application.ScreenUpdating = True
End Sub

 

[excile]

Muhteşemsiniz ne kadar teşekkür etsem az.