Pazar günleri ve tarihleri

[k0081]

Merhaba arkadaşlar;

J3 hücresine Ay isimini yazarak yazılan ay içinde ki Pazar günlerininin Tarihlerini otamatik olarak nasıl yazdırabilirim ?

örnek;

J3=Nisan

j4: 05.04.2015
j5: 12.04.2015
j6: 19.04.2015
j7: 26.04.2015

gibi..

yardımcı arkadaşa şimdiden Teşekkürler.

 

[Ömer BARAN]

Merhaba.
Biraz uzun oldu ama ay adını metin olarak yazınca böyle oldu.
Combobox kullansaydınız daha kısa formül yazılabilirdi.

J4 hücresine;

=TARİH(YIL(BUGÜN());KAÇINCI(J3;{"OCAK";"ŞUBAT";"MART";"NİSAN";"MAYIS";"HAZİRAN";"TEMMUZ";"AĞUSTOS";"EYLÜL";"EKİM";"KASIM";"ARALIK"};0);1)+8-KAÇINCI(HAFTANINGÜNÜ(TARİH(YIL(BUGÜN());KAÇINCI(J3;{"OCAK";"ŞUBAT";"MART";"NİSAN";"MAYIS";"HAZİRAN";"TEMMUZ";"AĞUSTOS";"EYLÜL";"EKİM";"KASIM";"ARALIK"};0);1));{1;2;3;4;5;6;7};0)

J5 hücresine

=EĞER(J4="";"";EĞER(AY(J4)=AY(J4+7);J4+7;""))

J5'e yazılan formülü aşağı doğru J8'e kadar hücreye kopyalayın.

 

[rotring05]

İstediğiniz tarihin gün değerini döndürmek için METNEÇEVİR(A1;"gggg") formülünü kullanabilirsiniz. Eğer bu yeterli olmaz makro ile yardımcı olabilirim.

 

[Ömer BARAN]

Ay adını Combobox'tan seçip (hücre bağlantısını J3 olarak belirleyerek) J4 hücresine yazılacak formül;

=TARİH(YIL(BUGÜN());J3;1)+8-KAÇINCI(HAFTANINGÜNÜ(TARİH(YIL(BUGÜN());J3;1));{1;2;3;4;5;6;7};0)

şeklinde olurdu.
Not: Her iki cevabımda da yıl bilgisi olarak YIL(BUGÜN()) işlevi kullanılmıştır.

 

[k0081]

omer.baran

Hocam teşekkürler. Yalnız macro ile çözmek durumundayım..

 

[k0081]

İstediğiniz tarihin gün değerini döndürmek için METNEÇEVİR(A1;"gggg") formülünü kullanabilirsiniz. Eğer bu yeterli olmaz makro ile yardımcı olabilirim.

Hocam "metneçevir" değil burdaki durum. ay içindeki diğer günler atılacak. bazı aylarda 4 pazar bazılarında 5 pazar var. Ben ay ismini yazdığımda; otomatik olarak pazar tarihlerini yazdırmak istiyorum. macro ile.

 

[ÖmerBey]

Merhaba,
Sayfanın kod bölümüne aşağıdaki kodu uygulayınız.
Ay isimlerini koddaki gibi yazmanız gerekli, ya da kodu yazacağınız şekilde değiştiriniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$J$3" Then
    x = 4
    aylar = Array("OCAK", "ŞUBAT", "MART", "NİSAN", "MAYIS", "HAZİRAN", "TEMMUZ", "AĞUSTOS", "EYLÜL", "EKİM", "KASIM", "ARALIK")
    ay = WorksheetFunction.Match(Target.Text, aylar, 0)
    For tarih = DateSerial(Year(Date), ay, 1) To DateSerial(Year(Date), ay + 1, 1) - 1
        If Weekday(DateValue(tarih), vbMonday) = 7 Then
            Cells(x, "J") = DateValue(tarih)
            x = x + 1
        End If
    Next
End If
End Sub

 

[canerozturk]

Merhaba.
Biraz uzun oldu ama ay adını metin olarak yazınca böyle oldu.
Combobox kullansaydınız daha kısa formül yazılabilirdi.

J4 hücresine;

=TARİH(YIL(BUGÜN());KAÇINCI(J3;{"OCAK";"ŞUBAT";"MART";"NİSAN";"MAYIS";"HAZİRAN";"TEMMUZ";"AĞUSTOS";"EYLÜL";"EKİM";"KASIM";"ARALIK"};0);1)+8-KAÇINCI(HAFTANINGÜNÜ(TARİH(YIL(BUGÜN());KAÇINCI(J3;{"OCAK";"ŞUBAT";"MART";"NİSAN";"MAYIS";"HAZİRAN";"TEMMUZ";"AĞUSTOS";"EYLÜL";"EKİM";"KASIM";"ARALIK"};0);1));{1;2;3;4;5;6;7};0)

J5 hücresine

=EĞER(J4="";"";EĞER(AY(J4)=AY(J4+7);J4+7;""))

J5'e yazılan formülü aşağı doğru J8'e kadar hücreye kopyalayın.

sayın ömer abicim FIFO STOK YÖNETİMİYLE İLGİLİ TABLO VARMI SENDE

 

[k0081]

mucit77

hocam çok teşekkürler, Tamamdır.. elinize sağlık.

 

[k0081]

ÖmerBey

Hocam bu kodda , Ayın Günlerini yazacak şekilde nasıl değiştiririz ?

bi kaç deneme yaptım olmadı..

 

[ÖmerBey]

Merhaba Sayın k0081,
Buyurunuz...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$J$3" Then
    x = 4
    aylar = Array("OCAK", "ŞUBAT", "MART", "NİSAN", "MAYIS", "HAZİRAN", "TEMMUZ", "AĞUSTOS", "EYLÜL", "EKİM", "KASIM", "ARALIK")
    ay = WorksheetFunction.Match(Target.Text, aylar, 0)
    For tarih = DateSerial(Year(Date), ay, 1) To DateSerial(Year(Date), ay + 1, 1) - 1
        'If Weekday(DateValue(tarih), vbMonday) = 7 Then
            Cells(x, "J") = DateValue(tarih)
            x = x + 1
        'End If
    Next
End If
End Sub

 

[k0081]

Merhaba Sayın k0081,
Buyurunuz...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$J$3" Then
    x = 4
    aylar = Array("OCAK", "ŞUBAT", "MART", "NİSAN", "MAYIS", "HAZİRAN", "TEMMUZ", "AĞUSTOS", "EYLÜL", "EKİM", "KASIM", "ARALIK")
    ay = WorksheetFunction.Match(Target.Text, aylar, 0)
    For tarih = DateSerial(Year(Date), ay, 1) To DateSerial(Year(Date), ay + 1, 1) - 1
        'If Weekday(DateValue(tarih), vbMonday) = 7 Then
            Cells(x, "J") = DateValue(tarih)
            x = x + 1
        'End If
    Next
End If
End Sub

Hocam tamamdır , Teşekkür ederim . End if kapatmayı unutmuşum ...