REKLAM DÖNÜŞÜM TABLOSU OTOMATİK HALE NASIL GELECEK?

[ali semerci]

REKLAM DÃ?NÜÞÜM TABLOSU OTOMATÝK HALE NASIL GELECEK?

arkadaşlar ekte gönderdiğim dosyada reklam dönüşüm tablosu var. bu tabloyu manuel ayarlayabiliyorum ancak; müşterilere anlatmakta zorlanıyorum. istiyorum ki müşteri sadece grupları işaretleyince her dört günde bir otomatik saatleri göstersin. bir türlü bu konuda fikir yürütemedim. lütfen bir bakın.

 

[veyselemre]

[vb:1:6be5a37c46]Sub isaretle()
gun = Day([r3])
sut = Int(gun / 4)
If (gun Mod 4) <> 0 Then sut = sut + 1
sut = sut * 2
Range("a835").Interior.ColorIndex = xlNone
Range(Cells(8, sut), Cells(35, sut)).Select
For x = 5 To 12
If Cells(x, "s") <> "x" Then GoTo git:
For y = 8 To 35
If Cells(y, sut) = x - 4 Then Range(Cells(y, sut - 1), Cells(y, sut)).Interior.ColorIndex = 6
Next y
git:
Next x
End Sub
[/vb:1:6be5a37c46]

 

[ali semerci]

sayın veysel emre, çok teşekkür ederim emeğiniz için.
yalnız bu kodları çalıştıramadım. dosyaya ekli olarak gönderebilirseniz çok sevineceğim.

 

[veyselemre]

ekteki örneği inceleyin, açılışta otomatik olarak çalışır fakat grupları değiştirdiğinizde kendiniz çalıştırmak zorundasınız.

 

[ali semerci]

çooook teşekkür ederim. çözümsüz dert yokmuş. elinize sağlık. k:: :bravo: