tarihi gün olarak göstermek

[zorlubey]

slm arkadaşlar
bir cetvelyaptım bu cetvelde tarihler pazarları atlasın ve birde bunları gün olarak yazsın istiyorum yardımcı olurmusunuz

 

[Necdet]

Sayın zorlubey, ekteki dosyada olduğu gibi mi?

 

[zorlubey]

tarihi gün olarak almak

Necdet Yesertener bey ilgilinize teşekkürler
ama ben oyle istemiyorum benim istediğim önce tarihi gireceğim ve bu tarihi ayrı bir sutunda gün olarak verecek pazar ve bayram ve resmi tatiller olmayacak
yardımların için teşekkürler

 

[Necdet]

Sayın zorlubey, Siz küçük bir örnek dosya ekleyin, onun üzerinde çalışalım, ilk sorunuzda pazar günü hariçti, şimdi tatil günleri de hariç diyorsunuz.
Hangi hücreye tarihi gireceksiniz hangi hiücrelerde gün olarak gösterilecek, konuşarak anlaşılmayacak sanırım

 

[zorlubey]

dosyayı nasıl gönderceğim

 

[Necdet]

Hızlı Cevap veriyorsunuz sonra Ã?n İzleme yi seçiyorsunuz. Ã?nizlemenin altında Bir Atach ekleme var Gözat'tan dosyanızı ekliyorsunuz

 

[abazya]

Ataç ekleme detaylı anlatımı

http://www.excel.web.tr/viewtopic.php?t=2489&highlight=atac+ekleme

 

[zafer]

Merhaba



Edit : Sayın Abazya'nın vermiş olduğu link Deki bilgiler daha detaylı olduğundan kafa karıştırmaması için Mesajımı siliyorum.


Saygılarımla

 

[serbestmali]

zorlubey pazar demiş arkadaşlar bana hem cumartesi hem de pazar için gerekli Teşekkürler

 

[zorlubey]

yardımlarınız için teşekkürler
bir örnek çizelge gönderiyorum. B1 tarih b6 yada gün gelecek pazar ve tatil günleri alınmayacak bu bir ücret çizelgesidir.

 

[Necdet]

Sayın zorlubey, Nihayet sorununuz anlaşıldı, birşeyler yapmaya çalıştım, dosya ekte.
B2 Hücresine başlangıç tarihini yazıyorsunuz, diğer hücreleri kendisi hesaplıyor. Ayrıca ilgili ayda bayram varsa o tarihleri de Tatil_Gunleri sayfasına yazıyorsunuz.

Ben örnek dosyada 7 ve 16 Aralığı Tatil günü olarak yazdım.

Umarım olmuştur.

 

[zorlubey]

olmuşda cumartesi eksik bizahmet c.tesi de eklersen iyi olur çok sağol

 

[Necdet]

Þimdilik idare edin zorlubey,

hem cumartesiyi hem tatil günlerini hesaba katan bir formülü araştıracam, belki bu arada bazı arkadaşlar da el atabilirler. Ama olmazsa bile bir hücre tatil gününe denk geliyorsa tatil gününden sonraki ilk işgününü elle yazarsanız durumu kurtarırız

 

[zorlubey]

teşekkürler çok sağolun
eğer bulursanız cevabınızı bekliyorum
iyi çalışmalar

 

[dost]

Sayın zorlubey,

Sadece C.tesi ve Pazarları yapmak istiyorsanız;

B2 hücresine aşağıdaki formülü yazıp, sağa doğru kopyalarsınız.

=EÐER(HAFTANINGÜNÜ(B2;2)>4;B2+3;B2+1)

Hem resmi tatilleri hem de C.tesi ve Pazarları yapmak istiyorsanız;

B2 hücresine aşağıdaki formülü yazıp, sağa doğru kopyalarsınız.

=EÐER(YADA(VE(GÜN(B2+EÐER(HAFTANINGÜNÜ(B2;2)>4;3;1))=23;AY(B2+EÐER(HAFTANINGÜNÜ(B2;2)>4;3;1))=4);VE(GÜN(B2+EÐER(HAFTANINGÜNÜ(B2;2)>4;3;1))=19;AY(B2+EÐER(HAFTANINGÜNÜ(B2;2)>4;3;1))=5);VE(GÜN(B2+EÐER(HAFTANINGÜNÜ(B2;2)>4;3;1))=30;AY(B2+EÐER(HAFTANINGÜNÜ(B2;2)>4;3;1))=8);VE(GÜN(B2+EÐER(HAFTANINGÜNÜ(B2;2)>4;3;1))=29;AY(B2+EÐER(HAFTANINGÜNÜ(B2;2)>4;3;1))=10));B2+EÐER(HAFTANINGÜNÜ(B2;2)>4;3;1)+1;B2+EÐER(HAFTANINGÜNÜ(B2;2)>4;3;1))

İsterseniz de hazır fonksiyonu:

Function tatil(tarih As Date) As Date
    Dim dinitatil
    
    dinitatil = Array("10.01.2006", "11.01.2006", "12.01.2006", "13.01.2006", "23.10.2006", "24.10.2006", "25.10.2006")
    
    tarih = tarih + 1
    For i = 0 To 6
        If dinitatil(i) = tarih Then tarih = tarih + 1
    Next
    
    Gun = Weekday(tarih, 2)
    Select Case Gun
        Case 6
            tarih = tarih + 2
        Case 7
            tarih = tarih + 1
    End Select
    
    If CDate(tarih) = DateSerial(Year(tarih), 1, 1) Or _
            CDate(tarih) = DateSerial(Year(tarih), 4, 23) Or _
            CDate(tarih) = DateSerial(Year(tarih), 5, 19) Or _
            CDate(tarih) = DateSerial(Year(tarih), 8, 30) Or _
            CDate(tarih) = DateSerial(Year(tarih), 10, 29) Then
        tarih = tarih + 1
    End If
    
    tatil = tarih
    
End Function

NOT: Dini bayramları dizi olarak tanımlamak zorunda kaldım. Çünkü; hicri takvimi miladi takvime çevirirken 1 günlük sapmalar oluyor.