V

Çözüldü Satır Renklendirme

  • Konuyu başlatan Konuyu başlatan vurkan
  • Başlangıç tarihi Başlangıç tarihi
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
V

vurkan

Normal Üye
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Arkadaşlar Merhaba ;
Aşağıdaki kodla satır renklendirmesi yapıyorum ama;

a) Bu kodda değişiklik yaparak D2:BO56 aralığında renklenirme yapmak,
b) Sayfa korumalıyken de kodları çalıştırmak (korumalı sayfada çalışmıyor) için ne yapmalıyım. Saygılar.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count > 1 Then Exit Sub
Cells.Interior.Color = xlNone
'Range(Cells(1, Target.Column), Cells(Rows.Count, Target.Column)).Interior.ColorIndex = 34
Range(Cells(Target.Row, 1), Cells(Target.Row, Columns.Count)).Interior.ColorIndex = 34
Target.Interior.ColorIndex = 36
End Sub
 
Tarihe göre sırala Oylamaya göre sırala
Bir alternatif de benden olsun.
Vereceğim alternatifte; ilgili alanda elle uygulanmış renkler olduğu gibi kalır ve
istenilen renklendirme koşullu biçimlendirme kullanılarak gerçekleştirilir.

İşlem adımları aşağıda açıklandı.
-- KOŞULLU BİÇİMLENDİRME için:
Belirtilen hücre aralığı (D2:BO56) seçili drumdayken;
>> =YADA($BP2=1;D$1=1) formülü kullanılıp YEŞİL renk seçilerek,
>> =TOPLA($BP2;D$1)=2 formülü kullanılıp SARI renk seçilerek
KOŞULLU BİÇİMLENDİRME uygulandı.

-- SAYFA KORUMASI için:
1'inci satır ve BP sütunu (GRİ zeminli alan) hariç (bu satır ve sütuna kod ile 1 değeri yazılıyor)
tüm hücrelerin KİLİTLİ ve GİZLİ seçenekleri işaretli hale getirildi,
1'inci satır ve BP sütununun KİLİTLİ özelliği işaretli DEĞİL
şeklinde hücre biçimlendirmesi yapıldıktan sonra, sayfa koruması uygulama ekranındaki seçeneklerden
sadece ilk ikisi işaretli olacak şekilde ve parola olarak 12345 değeri kullanılarak sayfa koruması uygulandı.

Sayfa kilitliyken de (kod üzerinden SAYFA KORUMASI KALDIRILMAZ) sorunsuz işlem gerçekleşir.
Birden fazla hücre seçiliyken renklendirmenin değişmesini istemiyorsanız kırmızı renklendirdiğim kod satırlarını silebilirsiniz.
Ayrıca örnek belge ekte.
VBA: 
Görüntülemek için giriş yapmanız gerekmektedir.
(10 satır)
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst