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

sdegirmenci

Altın Üye
Katılım
30 Kasım 2006
Mesajlar
625
Excel Vers. ve Dili
OFFICE 2003 Türkçe
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
 

Ekli dosyalar

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
8,288
Excel Vers. ve Dili
İş : Ofis 2016 - Türkçe
Ev: Ofis 2016 - Türkçe
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?

PHP:
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

Altın Üye
Katılım
30 Kasım 2006
Mesajlar
625
Excel Vers. ve Dili
OFFICE 2003 Türkçe
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
 
Üst