İki Tarih Arası

[hakanbolat]

Ýki Tarih Arası

Arkadaşlar İki Tarih Arası Neden Olmuyor İnceleyebilirmisiniz.. Ek Ã?rnekte..


edit xxrt:"Neden Olmuyor.." başlığı " İki Tarih Arası" olarak değiştirildi.

 

[keniken]

Aşağıdaki kodu dener misiniz?

Private Sub CommandButton1_Click()
Dim bak As Date


Sheets("Rapor").Select
Range("a2:j65000").Select
Selection.ClearContents
Range("a2").Select
Sheets("stok").Select


j = 2
t = 2
Do While Cells(j, 1) <> ""
bak = Cells(j, 4).Value
If bak >= a1.Value And bak <= a2.Value Then

For k = 1 To 10
Worksheets("Rapor").Cells(t, k + 0) = Cells(j, k)
Next k
t = t + 1
End If
j = j + 1
Loop

End Sub

 

[hakanbolat]

Teşekkürler Bu Þekilde Çalıştı.. İyi Çalışmalar..