Yavaş olan kodu hızlandırma

[ultraslan38080]

Arkadaşlar hafta sonlarının olduğu yeri renklendiren bir kod yazdım. Ancak kod çok yavaş çalışıyor. Bu kodda nasıl hızlandırma yapılabilir?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 5 To 35
For j = 7 To 37
If Sayfa6.Cells(6, i) = "Cumartesi" Or Sayfa6.Cells(6, i) = "Pazar" Then
With Sayfa6.Cells(j, i).Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    End If
Next j
Next i
End Sub

 

[Muzaffer Ali]

Merhaba.

Koşullu biçimlendirme kullansanız olmaz mı?

 

[ultraslan38080]

Koşullu biçimlendirme konusunda zayıfım.

 

[Muzaffer Ali]

Renklendirmek istediğiniz hücrelerden birini seçin.

Giriş sekmesinde - Koşullu biçimlendirme altında "Kuralları Yönet" seçin.

"Yeni Kural" tıklatın "Yanlızca şunu içeren hücreleri biçimlendir" seçin
Açılır listelerden "Hücre Değeri" ve "eşit" seçin yanındaki boş kutuya "Cumartesi" yazın.
"Biçimlendir" tıklatın. Açılan pencereden biçimlendirmeyi yapın. (Yani hücrede Cumartesi yazıyorsa ne renk olsun istiyorsanız ayarlayın) Tamamı tıklatın. Tekrar Tamamı tıklatın.

"Yeni Kural" tıklatın ve yukarıdakileri "Pazar" kelimesi için de yapın.
İsterseniz Pazar için farklı bir biçimlendirme ayarlayabilirsiniz.

Koşullu Biçimlendirme yaptığımız hücreyi kopyalayın.
Renklendirmek istediğiniz hücrelerin tamamını seçin Sağ tıklatın Özel yapıştr seçin açılan pencereden Biçimleri yanın daki onay kutusunu işaretleyin ve tamama tıklatın.

İşlem bu kadar.

 

[ultraslan38080]

Renklendirmek istediğiniz hücrelerden birini seçin.

Giriş sekmesinde - Koşullu biçimlendirme altında "Kuralları Yönet" seçin.

"Yeni Kural" tıklatın "Yanlızca şunu içeren hücreleri biçimlendir" seçin
Açılır listelerden "Hücre Değeri" ve "eşit" seçin yanındaki boş kutuya "Cumartesi" yazın.
"Biçimlendir" tıklatın. Açılan pencereden biçimlendirmeyi yapın. (Yani hücrede Cumartesi yazıyorsa ne renk olsun istiyorsanız ayarlayın) Tamamı tıklatın. Tekrar Tamamı tıklatın.

"Yeni Kural" tıklatın ve yukarıdakileri "Pazar" kelimesi için de yapın.
İsterseniz Pazar için farklı bir biçimlendirme ayarlayabilirsiniz.

Koşullu Biçimlendirme yaptığımız hücreyi kopyalayın.
Renklendirmek istediğiniz hücrelerin tamamını seçin Sağ tıklatın Özel yapıştr seçin açılan pencereden Biçimleri yanın daki onay kutusunu işaretleyin ve tamama tıklatın.

İşlem bu kadar.

Ama Şöyle bir durum var.
E6:AI6 aralığında günler var. bu günler cumartesi veya pazar olduğunda;
E7:AI37 aralığında, yukarıdaki aralıkta cumartesi veya pazara denk gelen sütunların sarı olması dediğiniz şekilde yapamadım.

 

[Muzaffer Ali]

Ozaman aşağıdaki şekilde yapacağız.

E6 dan AI6 ya kadar bütün satırı seçin

Giriş sekmesinde - Koşullu biçimlendirme altında "Kuralları Yönet" seçin.

"Yeni Kural" tıklatın "Biçimlendirilecek hücreleri belirlemek için formül kullan " seçin
Aşağıdaki boş kutuya =$F6="Cumartesi" yazın.
"Biçimlendir" tıklatın. Açılan pencereden biçimlendirmeyi yapın. (Yani hücrede Cumartesi yazıyorsa ne renk olsun istiyorsanız ayarlayın) Tamamı tıklatın. Tekrar Tamamı tıklatın.

"Yeni Kural" tıklatın ve yukarıdakileri "Pazar" kelimesi için de yapın. Boş kutuya =$F6="Pazar" yazacaksınız.

Koşullu Biçimlendirme yaptığımız hücreleri kopyalayın. (E6 dan AI6 ya kadar )
Renklendirmek istediğiniz hücrelerin tamamını seçin Sağ tıklatın Özel yapıştır seçin açılan pencereden Biçimleri yanındaki onay kutusunu işaretleyin ve tamama tıklatın.

Eğer yapamazsanız dosyanızı ekleyin ben yapayım.

 

[ultraslan38080]

Ozaman aşağıdaki şekilde yapacağız.

E6 dan AI6 ya kadar bütün satırı seçin

Giriş sekmesinde - Koşullu biçimlendirme altında "Kuralları Yönet" seçin.

"Yeni Kural" tıklatın "Biçimlendirilecek hücreleri belirlemek için formül kullan " seçin
Aşağıdaki boş kutuya =$F6="Cumartesi" yazın.
"Biçimlendir" tıklatın. Açılan pencereden biçimlendirmeyi yapın. (Yani hücrede Cumartesi yazıyorsa ne renk olsun istiyorsanız ayarlayın) Tamamı tıklatın. Tekrar Tamamı tıklatın.

"Yeni Kural" tıklatın ve yukarıdakileri "Pazar" kelimesi için de yapın. Boş kutuya =$F6="Pazar" yazacaksınız.

Koşullu Biçimlendirme yaptığımız hücreleri kopyalayın. (E6 dan AI6 ya kadar )
Renklendirmek istediğiniz hücrelerin tamamını seçin Sağ tıklatın Özel yapıştır seçin açılan pencereden Biçimleri yanındaki onay kutusunu işaretleyin ve tamama tıklatın.

Eğer yapamazsanız dosyanızı ekleyin ben yapayım.

Yaptım da E6:AI6 aralığı tatamen sarı renk oldu. Yani istediğim koşullu biçimlendirme.

 

[ultraslan38080]

=E6$="Cumartesi"
şeklinde çalıştı. Deneme yanılma ile. teşekkür ederim çok sağolun.