Ayni Haftaya Dusen Gunleri Kosullu Bicimlendirmek

[hayaletinizi]

Merhabalar, yine icinden cikamadigim bir konuyla ilgili buraya sizlere danismak istedim. Biraz kafa yorup arastirdiktan sonra asagidaki formul ile karsilastim. Bu formulu ekteki dosyada uygulayinca istedigim sonucu verse de asagidaki sikintilarla karsilastim.
0- Su ana kadar ulastigim formul:

=MOD(TAMSAYI((B2-TARİH(YIL(B2-HAFTANINGÜNÜ(B2-1)+4);1;3)+HAFTANINGÜNÜ(TARİH(YIL(B2-HAFTANINGÜNÜ(B2-1)+4);1;3))+5)/7);2)=1

0- Yukaridaki formulde karsilastigim 2 problem:
1- Atlanmis haftalar var ise listede, bir onceki haftanin kosullu rengini veriyor.
2- 53. hafta ve 1. hafta ayni goruluyor. (bu, arastirip buldugum listede paylasmis olan kisinin vardigi bir sonuc)

DOSYA EKI:
BURADAN INDIREBILIRSINIZ!

Yapmak istedigim: Her ayni haftaya dusen gunlerin listesinin sonunda ayirici cizgi ve birbirini izleyen her haftada bir, ayni haftaya dusen gun grubunu ayni renkte kosullu bicimlendirme yaptirmak istiyorum. (Ekteki dosyada otomatik yapmak istedigim kosullu bicimlendirme manual olarak yaptim.)

Sorum: Gunlerin dustugu haftaya gore kosullu bicimlendirme yaparak GRI golgelendirmeyi VE farkli haftalari ayirici kalin cizgiyi otomatik yaptiracak bir formul ariyorum.

Not: Sayfaya uyelik gerektiren linkleri acma yetkim yok maalesef ve Makro kod kullanmadan fonksiyon ile islemi gerceklestirmek ideal olacaktir benim icin.

Cok ama cok tesekkur ederim buraya kadar okuyan veya yardimci olmak isteyen arkadaslara. Koronasiz saglikli gunler diliyorum.

 

[YUSUF44]

Aşağıdaki makroyu dener misiniz?

Sub Makro1()
son = Cells(Rows.Count, "A").End(3).Row
Range("A2:B" & son).Borders.LineStyle = 1
With Range("A1:B1").Borders(xlEdgeBottom)
    .LineStyle = xlContinuous
    .ColorIndex = 0
    .TintAndShade = 0
    .Weight = xlMedium
End With
Range("A1:B" & son).Interior.ThemeColor = xlNone
For i = 2 To son
    If WorksheetFunction.WeekNum(Cells(i, "A"), 12) <> WorksheetFunction.WeekNum(Cells(i + 1, "A"), 12) Then
        With Range("A" & i & ":B" & i).Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlMedium
        End With
    End If
Next

For j = 3 To son
    If WorksheetFunction.WeekNum(Cells(j, "A"), 12) <> WorksheetFunction.WeekNum(Cells(j - 1, "A"), 12) Then
        If Cells(j - 1, "A").Interior.ThemeColor = xlNone Then
            Range("A" & j & ":B" & j).Interior.ThemeColor = xlThemeColorDark2
        Else
            Range("A" & j & ":B" & j).Interior.ThemeColor = xlNone
        End If
    Else
        Range("A" & j & ":B" & j).Interior.ThemeColor = Cells(j - 1, "A").Interior.ThemeColor
    End If
Next

End Sub

 

[hayaletinizi]

Yusuf Bey oncelikle cok tesekkur ederim yanitiniz icin
Fakat
Makro denemis olsam da paylasmis oldugum fonsksiyon veya baska bir dizi formulunden yola cikarak yapilabilir mi? Ilk mesajimda Ulasmis oldugum formulde tek sorun atlanan haftalar oldugu taktirde bir onceki haftaya ait olan renkle ayni rengin uygulanmis olmasiydi. Bu konudayardimci olabilecek olan var mi acaba?

 

[YUSUF44]

Maalesef benim bilgim fazlasına yetmiyor.

 

[hayaletinizi]

Konuyla ilgili bilgisi olan ve yardimci olabilecek olan var mi?

 

[hayaletinizi]

Konuyla ilgili bilgisi olan ve yardimci olabilecek olan var mi?

 

[hayaletinizi]

Tekrardan konuyu gundeme getirip sormak istedigim. yukarida orjinal mesajda sormus oldugum konuyla ilgili yardimci olabilecek arkadaslar var midir ?

 

[alicimri]

Koşullu biçimlendirme ile aşağıdaki formülü uygulayarak yapılabiliniyor.

=MOD(HAFTASAY(A1;1);2)=1

Not Hafta başı Pazar, Koşullu biçimlendirmeyi A1 hücresine uygulayıp aşağı doğru Koşullu biçimlendirmeyi genişletin

 

[alicimri]

Sonradan fark ettim. Eğer Ardışık iki hücre arasında tarih aralığı 7 günden fazla 14 günden az ve bunun katlarında gibi durumlarda aynı haftadaymış gibi sonuç veriyor. Çözüm bulabilrsem eklerim.

 

[Hepgel]

Merhaba @hayaletinizi
Deneyebilir misiniz.

A2:B16 yada A2:B1000 gibi alan seçiliyken,
beyaz arkaplan rengi uygulayıp kenarlıkları kaldır.
Birinci formülü kullanarak ve alt kenarlığı seçerek koşullu biçimlendirme yap
yardımcı alan için C2 hücresine ikinci formülü uygulayıp aşağı doğru kopyala
sonrada üçüncü formülü kullanıp başka bir renk uygulayarak koşullu biçim yap

=VE($A2<>"";HAFTASAY($A2;2)<>HAFTASAY($A3;2))
=EĞER($A2="";"";EĞER(HAFTASAY($A2;2)<>EĞERHATA(HAFTASAY($A1;2);HAFTASAY($A2;2)-1);$C1+1;$C1))
=ÇİFTMİ($C2)