uygun excel fonksiyonu/fonksiyonları

[msoffice2007]

Merhaba,

Excel'de farklı sheet'lerde iki tabloya sahibim.Table-1 ve Table-2.

Tablo-1:Aşağıdaki sütunları içermekte.
Bayi Adı,Bölge,Mıntıka,Ziyaret Tarihi

Table-2:Aşağıdaki sütun başlıklarınıiçermekte.
Ocak,Şubat,Mart,Nisan,Mayıs,Haziran,Temmuz,Ağustos,Eylül,Ekim,Kasım,Aralık

Tablo-2:Aşağıdaki satır başlıklarını içermekte.
1,2,3,4,......................................,30


2.tablonun bulunduğu sheet'de herhangi bir hücrede bir bayi seçip,o bayi için
1.tablodan aylık yapılan tüm ziyaretlere ait tarihleri belirleyip,ikinci tablodaki uygun ay/gün ifade eden hücrelerini renklendirmek istiyorum.

Öneri ve yorumlarınızı rica ederim.

Süleyman Bozkurt

 

[sarpkayhan]

Selam
dosya yüklerseniz daha hızlı çözüme kavusursunuz
iyi çalışmalar

 

[msoffice2007]

Merhaba,

Ben dosya ekleme seçeneklerini göremiyorum.
Bu durum abonelik türü ile ilgili midir?

Saygılarımla,
Süleyman Bozkurt

 

[ÖmerBey]

Evet doğrudur, siteye dosya eklemek altın üyelik kapsamına alınmıştır.
Ancak dosyanızı herhangi bir dosya paylaşım sitesine yükleyip link vererek dosyanızı paylaşabilirsiniz.

 

[msoffice2007]

Merhaba Tekrar,

İlgili dosyayı aşağıdaki linke aktardım.

http://speedy.sh/pSxMX/UygunFonksiyon.xlsx

Süleyman Bozkurt

 

[ÖmerBey]

Dosyanızdaki Table-2 isimli sayfanın kod bölüne aşağıdaki kodları yazınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B2")) Is Nothing Then Exit Sub
Set t1 = Sheets("Table-1")
Set t2 = Sheets("Table-2")
bayi = t2.Range("B2")
t2.Range("D3:O33").Interior.ColorIndex = 0
    For i = 2 To t1.Range("D65500").End(3).Row
        If t1.Cells(i, "D") = bayi And t1.Cells(i, "A") <> "" Then
            ay = Month(t1.Cells(i, "A")) + 3
            gün = Day(t1.Cells(i, "A")) + 2
            t2.Cells(gün, ay).Interior.ColorIndex = 3
        End If
    Next
End Sub

Örnek dosyanız da aşağıdaki linktedir.
http://dosya.co/z3bzgjcwzhea/UygunFonksiyon.rar.html

...