tarihleri ikişerli satırda yazdırma

[kecevik]

aynı tarihi alt alta iki hücreye yazdırıp diğer iki hücreye bir sonraki günün tarihini yazdırarak bu şekilde bir aylık iş gününe göre devam ettirmek istiyorum.
nasıl yapabilirim? tşk.

 

[kombo]

Sn.kecevik

İşleminizi şöyle yapsanız da olur gibi;
1 mayıs yazan hücrede iken hücrenin sağ alt köşesinden, farenin sağ kliki ile tutun aşağıya doğru çekin ve bırakın. Bırakınca bilgi penceresi ekrana gelir. İş günlerini doldur işaretlerseniz Mayıs ayının iş günlerini doldurur.
Öğrenci adlarını da günlerin yanındaki iki hücreye yazın.

 

[kecevik]

Sn.kecevik

İşleminizi şöyle yapsanız da olur gibi;
1 mayıs yazan hücrede iken hücrenin sağ alt köşesinden, farenin sağ kliki ile tutun aşağıya doğru çekin ve bırakın. Bırakınca bilgi penceresi ekrana gelir. İş günlerini doldur işaretlerseniz Mayıs ayının iş günlerini doldurur.
Öğrenci adlarını da günlerin yanındaki iki hücreye yazın.

örnek dosyada ne istediğimi belirtmeye çalıştım.öğrenci listesi hazır durumda.benim istediğim bir günün tarihi iki öğrencide, diğer günün tarihi gene iki öğrencide görünmeli.iş günlerini doldur deyince her satıra bir iş günü yazar.tşk

 

[Orion1]

Merhabalar.
Ekli dosyayı inceleyiniz.

Sub tarih_sirala()
Dim ay As Byte, yil As Integer, sat As Byte, pazar As Byte
Dim baslangic_tarih As Date, son_tarih As Date, ay_sonu As Date
Sheets("Sayfa1").Select
sat = 3
Range("B3:C65536").ClearContents
ay = Month(Date)
yil = Year(Date)
baslangic_tarih = DateSerial(yil, ay, 1)
baslangic_tarih = Format(baslangic_tarih, "dd.mm.yyyy")
son_tarih = DateAdd("m", 1, baslangic_tarih)
son_tarih = Format(son_tarih, "dd.mm.yyyy")
ay_sonu = Format(son_tarih - 1, "dd.mm.yyyy")
For tarih = baslangic_tarih To ay_sonu
    pazar = Application.Weekday(CDate(tarih), 2)
    If pazar < 6 Then
        Cells(sat, "C").Value = Format(tarih, "dd.mmmm.yyyy dddd")
        Cells(sat + 1, "C").Value = Format(tarih, "dd.mmmm.yyyy dddd")
        sat = sat + 2
    End If
Next
MsgBox "İşlem Bitti ..!!", vbOKOnly, Application.UserName
End Sub

 

[kecevik]

teşekürler.emeğine sağlık.bir sorum olacak.bunu iş günü olarak yani haftasonlarını yazdırmadan yapma imkanı varmı?

 

[Orion1]

Merhaba.
Ekli dosyayı yeniledim tekrardan indirip deneyiniz.
Kodlarıda tekrardan güncelledim.

 

[kecevik]

teşekür ederim sezar. zahmet oldu.pazar günü gitmiş. aynı işlemi cumartesiye de uuygulayabiliriyiz?

 

[Orion1]

Merhaba.
Dosyayı yeniledim.
Kodlarıda yeniledim.İndirip,inceleyiniz.

 

[kecevik]

Merhaba.
Dosyayı yeniledim.
Kodlarıda yeniledim.İndirip,inceleyiniz.

çok teşekür ederim.gece vakti yorduk senide.kusura bakma.:hey:

 

[Orion1]

Rica ederim.
İyi geceler.