Kod ile hücreler renklendirme

[sward175]

Herkese merhabalar,

Sayfa üzerinde çizim bulunuyor. Yapacağım işlemler için buton oluşturdum, Hangi butona basılırsa yanında yazılı hücrelerin YEŞİL renk olmasını istiyorum, Bunu yaparken de son basılan butona ait hücrelerin renklenmesi diğer hücrelerin renklenmemesi yada soluk bir renk alması.
Yardımlarınızı rica eder işlerinizde başarı ve kolaylıklar dilerim.
sward175

 

[muygun]

Merhaba;
Farklı ama daha esnek bir çözüm.
İnceleyin.
İyi çalışmalar.

 

[sward175]

Sayın, muygun,
Hatalı yerler var benden kaynaklanan senaryo sayfasında düzeltmeler yapıyorum. Ama sizden bitince şu konuda tekrar yardım rica edeceğim. Seçili hat dışında kalanlar ve daha önce seçilmiş olanlar GRİ renk olabilir mi ?
yardımınız için teşekkürü borç bilirim.

sward175

 

[muygun]

Merhaba;

Sub renksiz()
Application.ScreenUpdating = False
On Error Resume Next
Set s1 = ThisWorkbook.Worksheets("senaryo")
Set s2 = ThisWorkbook.Worksheets("Boru Hattı")
For i = 4 To s1.Range("b65536").End(xlUp).Row
sonn = s1.Cells(i, 1)
renkk = s1.Cells(3, 3).Value
For k = 4 To sonn
alann = s1.Cells(i, k).Value
Set Alan = Range(alann)
Alan.Select
Selection.Interior.ColorIndex = renkk
Next k
Next i
Range("dd2").Select
End Sub

Bu makro tüm renklendirmeleri gri yapar.

Bu işlemi her renklendirme öncesi yapmak istiyorsanız;

Sub renklendir()
Application.ScreenUpdating = False
On Error Resume Next

makrosunda 3.satırının altına;
call renksiz
yazın.

Takılırsanız yardımcı olurum.
İyi çalışmalar.

 

[sward175]

sayın: muygun,

Hataların hepsini düzelttim.
Uğraştım fakat bulamadım,
Ricam şudur, AS34:AT35;AV34:AX35;AS37:AT37;AV37:AX39 hücreleri hiç bir şekilde renklenmesin.
Bir de; makrosunda 3.satırının altına;
call renksiz
yazın.
Yapabilirseniz çok güzel olacak,

Saygılar,
sward175

 

[muygun]

Merhaba;
Senaryonuzu yada doğruluğunu bilemediğim için sadece olmasın dediğiniz alanlardan renklendirmeyi kaldırdım.
Eki deneyin.
İyi çalışmalar.

 

[sward175]

Sayın; muygun,

İsteğim olmuştur,
Teşekkür eder işlerinizde başarı yaşamınızda sağlık ve mutluluklar dilerim.
sward175