Hücre Rengi

[10layn]

burada ilk sayfada hücreye verilen rengin bi sonra ki sayfalara aynı satıra eklenmesi (2-3-4-vs.vs.)


forumda aradım sanırım bulamadım bu konuya ait bir içerik?
macro ile aram zayıf : (





_________________
Excel'in gücü adınaa!

 

[xxcell]

shift tuşuna basılı tutarak birden çok sayfayı seçersen bir sayfada yaptığın değişiklik diğer sayfalarda da aynı şekilde olacaktır.

Bu sayede bir sayfada bir hücreyi renklendirdiğinde [Grup] 'un içindeki diğer sayfalarda da aynı hücre; aynı rengi alır.

Yanlız [Grup] işlemlerinde birden çok sayfayı aynı anda düzenleyeceğiniz için dikkatli olmalısınız.

 

[10layn]

diğer sayfalar buradan data çekmeli sabit olmalılılar sadece değişkenlerinde problemim yok ancak ilk sayfaya hücre rengi verdiğimde ise diğerlerinde de aynı değişim olması

 

[xxcell]

Anladığım kadarıyla ASIL sayfasında bir hücrenin rengini değiştirince diğer sayfalarda da aynı hücre değişsin istiyorsunuz. Ve bu renk değişikliğini sık sık yapacak gibisiniz.

Excel'de yok yok. Eğer değişikliğin yapılacağı sayfalara

Private Sub Worksheet_Activate()
Sheets("ASIL").Range("B10:d19").Copy
Range("B10:d19").PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub


kodunu kopyalarsanız. O sayfalar aktif olduklarında B10:d19 arası hücreleri ASIL isimli sayfanın B10:d19 arasındaki hücrelerin biçimlerini alır. Ben özellikle B10:d19 arasını aldım. Örneğinde buna benzer bir veri aralığı vardı. Siz istediğiniz gibi değiştirin.

Tabi eğer istersen renklendirmeyi verdiğin anda diğer sayfalarda aynı anda renk değişimi olabilir. Ama olayı basit tutmak her zaman iyidir.

 

[Seyit Tiken]

Aşağıdaki kodu deneyin, işinize yar mı?

Sub Sayfa3_Düğme1_Tıklat()
For a = 1 To Sheets.Count
Sheets(a).[B1].Interior.ColorIndex = 6
Next
End Sub

 

[10layn]

Anladığım kadarıyla ASIL sayfasında bir hücrenin rengini değiştirince diğer sayfalarda da aynı hücre değişsin istiyorsunuz. Ve bu renk değişikliğini sık sık yapacak gibisiniz.

Excel'de yok yok. Eğer değişikliğin yapılacağı sayfalara

Private Sub Worksheet_Activate()
Sheets("ASIL").Range("B10:d19").Copy
Range("B10:d19").PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub


kodunu kopyalarsanız. O sayfalar aktif olduklarında B10:d19 arası hücreleri ASIL isimli sayfanın B10:d19 arasındaki hücrelerin biçimlerini alır. Ben özellikle B10:d19 arasını aldım. Örneğinde buna benzer bir veri aralığı vardı. Siz istediğiniz gibi değiştirin.

Tabi eğer istersen renklendirmeyi verdiğin anda diğer sayfalarda aynı anda renk değişimi olabilir. Ama olayı basit tutmak her zaman iyidir.

sanırım bu işe yarayacak gibi kısa bir test yaptım ve gayet güzel XXCEL Teşekkürler,

Seyit vermiş olduğun kodu da deneyeceğim ilginiz için teşekkürler...

_________________
Excel'in gücü adınaa!