range yazmada hata

[mersilen]

selamlar
tablo renklendirmede aşağıda ki macro kodunu kullanıyorum
yalnız hata veriyor, inceleyebilir miyiz?

Range("A" & 408 & ":ad" & 408, "af" & 408 & ":ar" & 408, "BA" & 408 & ":CE" & 408).Interior.ColorIndex = 43


birde formüldeki sayılarla oynamak yerine
c5 hücresine 408 değerini girsem
c6 hücresinede 43 renk kodu sayısını girsem
bunu formüle nasıl adapte edebilirim

 

[hamitcan]

Sub FarkliBolgeleriRenklendir()
    Union([A408:ad408], [af408:ar408], [ba408:ce408]).Interior.ColorIndex = 43
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu ilgili sayfanın kod bölümüne uygulayınız. Siz C5 ve C6 hücrelerine değer girdikçe ilgili satırlar renklenir.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Cells.Interior.ColorIndex = xlNone
    Range("A" & Range("C5") & ":AD" & Range("C5") & ",AF" & Range("C5") & ":AR" & Range("C5") & ",BA" & Range("C5") & ":CE" & Range("C5")).Interior.ColorIndex = Range("C6")
End Sub

 

[mersilen]

hızlı cevap için teşekkürler
her iki kodda çalışıyor
korhan bey sizin kod tam istediğim gibi olmuş

 

[mersilen]

selamlar
Korhan bey bu formülde c5 hücrelerinin olduğu kısma toplama işlemi konabilir mi ? mesela (+200) gibi

örnek
Range("A" & Range("C5"+200) & ":AD" & Range("C5"+200) & ",AF" & Range("C5"+200) & ":AR" & Range("C5"+200) & ",BA" & Range("C5"+200) & ":CE" & Range("C5"+200)).Interior.ColorIndex = Range("C6"+200)

 

[Korhan Ayhan]

Selamlar,

Tam olarak ne yapmak istediğinizi anlamadım. C5 hücresindeki değerin üzerine +200 ekleyerekmi adreslemek istiyorsunuz. Eğer istediğiniz bu yönde ise kırmızı bölümdeki gibi yazmalısınız.

Örnek;

C5 = 50

Range("A" & Range("C5") + 200) ----> Range("A250")

 

[mersilen]

Korhan bey birbirinin aynı 4-5 tane çalışma tablosu mevcut
bayramlar gibi izinli olunan günlerin satırlarını hepsinde renklendirmeyi amaçlıyorum
bunun için kodları sabitlemeyi amaçlıyordum
sizin sayenizde bir noktadaki değişiklikle tüm tablolardaki benzer satırlar renklenecek

cevap için teşekkürler