Renklerle Animasyon

[okan32]

Arkadaşlar Renklerle Animasyon örneğidir....

 

[baydeniro]

Arkadaşlar Renklerle Animasyon örneğidir....

Paylaşım için teşekkürler

 

[YUSUF44]

Paylaşım için teşekkürler.

Naçizane birkaç önerim olacak:

Başkasıyla paylaştığınız dosyalardaki makrolarda o kişinin çalışma düzenini etkileyebilecek değişiklikler yapmaktan kaçınmanızı öneririm. Örneğin ben excelde sütun başlıklarının, sekmelerin, kaydırma çubuklarının, menünün kapatılmasını istemem, her zaman açık olsun isterim. Sizin paylaştığınız dosyada ise en başta tüm bu değişiklikler yapılıyor. Halbuki dosyanın işlerliği için bu değişikliklerin hiçbir gerekliliği yok.

İkinci olarak uğraşmış ve her hal için ayrı kod yazmış ve bunun da Case olayıyla kullanım şeklini çok güzel bir şekilde göstermişsiniz. Ancak kodunuzda hücrenin seçilmesi için olan satıra gerek yok, renk değişimi seçim yapılmadan da olabilir.

İki ayrı döngü yerine For Each ile tek döngüde de işlem tamamlanabilir. Aşağıdaki kod sizin birinci kodunuzun işlemini yapmaktadır:

Sub col_one()
For Each hucre In [A1:AM40]
    If hucre <> "" Then hucre.Interior.ColorIndex = 1
Next
End Sub

İşin daha kolay olacak kısmı ise modüldeki ayrı kodlar yerine sayfa olayındaki kodun aşağıdaki gibi değiştirilmesiyle olur. Böylece AR4:AR28 aralığındaki hücrelere tıklandığında, A1:AM40 aralığındaki dolu hücreler tıklanan hücrenin rengine döner:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [AR4:AR28]) Is Nothing Then Exit Sub
For Each hucre In [A1:AM40]
    If hucre <> "" Then hucre.Interior.Color = Target.Interior.Color
Next
End Sub

 

[okan32]

Teşekkür ederim Yusuf Bey sizin yazdığınız kodlar sade ve güzel olmuş

 

[Tevfik_Kursun]

Sayın Yusuf44 Hocam,
Teşekkürler
Saygılarımla