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

Katılım
30 Kasım 2006
Mesajlar
605
Beğeniler
1
Excel Vers. ve Dili
OFFICE 2003 Türkçe
#1
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
7,704
Beğeniler
281
Excel Vers. ve Dili
İş : Ofis 2016 - Türkçe
Ev: Ofis 2016 - Türkçe
#2
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
 
Katılım
30 Kasım 2006
Mesajlar
605
Beğeniler
1
Excel Vers. ve Dili
OFFICE 2003 Türkçe
#3
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