Döngü ile iki tarih arası sıralama

[sdegirmenci]

Merhaba; Excel üzerinde çalışma ve istirahat sıralaması yapmak istiyorum, bunu UserForm üzerinden döngü ile iki tarih arasında yapmak istiyorum. Ben yapabildiğim kadar yaptım ancak , 7.satırdan 370. satıra kadar normal sıralama yaptırabildim. "B" Sütundaki tarih sıralamsının karşısına gelecek şekilde seçilen ilk tarih ve son tarih arasında sıralama yapma konusunda yardımcı olabilirseniz çok sevinirm. Şimdiden ilginize çok teşekkür ederim. Saygılarımla

 

[YUSUF44]

Aşağıdaki kodu hazırladım ancak nedenini anlayamadığım sorunlar var. Makro ilk çalışmada çalışıyor ama bazen istenen tarihleri tam olarak dikkate almıyor. Bir defa çalıştırdıktan sonra ikinci kez çalıştırlmak istendiğinde ilk kısım çalışıyor ama for next döngüsü çalışmıyor. Siz bir dener misiniz sizde nasıl olacak?

Private Sub CommandButton1_Click()
Set ÇZ = Sheets("Çizelge")
ÇZ.Activate
ÇZ.[G7:G312] = ""
gun1 = Left(ilktarih, 2) * 1
ay1 = Mid(ilktarih, 4, 2) * 1
yil1 = Right(ilktarih, 4) * 1
gun2 = Left(sontarih, 2) * 1
ay2 = Mid(sontarih, 4, 2) * 1
yil2 = Right(sontarih, 4) * 1

bas = DateSerial(yil1, ay1, gun1)
son = DateSerial(yil2, ay2, gun2)
For i = 7 To 372 Step 3
    If ÇZ.Cells(i, "B") >= bas And ÇZ.Cells(i, "B") <= son Then
        ÇZ.Cells(i, 7) = "İstirahat"
        ÇZ.Cells(i + 1, 7) = "Çalışma"
        ÇZ.Cells(i + 2, 7) = "Çalışma"
    End If
Next i
Unload Me
End Sub

 

[sdegirmenci]

Yusuf hocam ilginize çok teşekkür ederim. Herhalde cevap verilmeyecek diye düşünmüştüm. Birkaç günlüğüne bilgisayar olmayan bir yerde bulunuyorum. İlk fırsatta deneyip size döneceğim.Tekrar çok teşekkür ederim. Selamlar