malzemeleri tarihe göre düzenleme

[siyar0044]

arkadaşlar sayfa1 in b sutunuda tarihler bulunmakta c sutunuda ise tarihleirn karşısında renkler bulunmakta
amaç:sayfa2 de b sutunuda haftalık perriyotlar var o hafta içerisinde kullanılan renkleri c sutununa yazdırmak ancak o hafta içerisinde aynı renk 1 den fazla kullanılmışsa sadece 1 defa yazdıracaz
d sutunuda ise haftayı kapsayan periyot içerisinde renk kullanılmışsa sıra numaralarını d sütünuna yazdır yardım ederseniz seinirim

 

[siyar0044]

yardımlarınızı bekliyorum

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanızdaki verilere göre formülle çözüm mümkün gibi görünmüyor. Size makro ile hazırladığım çözümü sunuyorum. Ekteki örnek dosyayı incelermisiniz.

Tarihleri örnek dosyadaki biçimde girerseniz sıkıntı yaşamadan kullanabilirsiniz.

Option Explicit
 
Sub RENKLER()
    Dim HÜCRE As Range, TARİH As Range, AYIR As Variant
    Dim İLK_TARİH As Date, SON_TARİH As Date
 
    Sheets("Sayfa2").Range("C4:D65536").ClearContents
 
    For Each TARİH In Sheets("Sayfa2").Range("B4:B" & [Sayfa2!B65536].End(3).Row)
        AYIR = Split(TARİH, "-")
        İLK_TARİH = AYIR(0)
        SON_TARİH = AYIR(1)
 
    For Each HÜCRE In Sheets("Sayfa1").Range("B2:B" & [Sayfa1!B65536].End(3).Row)
        If HÜCRE >= İLK_TARİH And HÜCRE <= SON_TARİH Then
        TARİH.Offset(0, 2).NumberFormat = "@"
        TARİH.Offset(0, 2) = IIf(TARİH.Offset(0, 2) = "", HÜCRE.Offset(0, -1), TARİH.Offset(0, 2) & "-" & HÜCRE.Offset(0, -1))
        If HÜCRE.Offset(0, 1) <> "" And InStr(1, TARİH.Offset(0, 1), HÜCRE.Offset(0, 1)) = 0 Then
        TARİH.Offset(0, 1) = IIf(TARİH.Offset(0, 1) = "", HÜCRE.Offset(0, 1), TARİH.Offset(0, 1) & "-" & HÜCRE.Offset(0, 1))
        End If
        End If
    Next
    Next
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[siyar0044]

sn<. korhan ayhan tşk ederim ancak sayfa1 deki tabloda örneğin aynı haftalık periyotlar içinde 1 renk 1 den fazla kullanılmışsa c sutununda 1 defa yazılacak ancak d sutunundaki yerde hepsi gözükmesi gerekiyordu (d sutununda eğer aynı hafta içerisinde renk 1 den fazla kullanıllımışsa kullanıllanılan bütün sıra numaraları olmalı)

 

[Korhan Ayhan]

Selamlar,

Üstteki mesjaımdaki kodu ve dosyayı güncelledim. İncelermisiniz.