Açılışta Hücre Rengini Değiştirme ve Hücre Değeri Değişince Siyah Yapma

[katip16487]

Merhabalar, herkese kolaylıklar diliyorum.

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("B1:B17")) Is Nothing Then
Dim alan1 As Range
For Each alan1 In Target
alan1.Font.Color = RGB(0, 0, 0)
Next alan1
End If
End Sub

Yukarıda yazılı kodu kullanarak belgenin açılışında "Veri" sayfasının B1:B17 hücrelerinin fontu rengini KIRMIZI olarak ayarlıyordum. Açıldıktan sonra hücrede değişiklik yapıldığında ise hücrelerin font rengi SİYAH olarak kendiliğinden dönüşüyordu. Bu şekilde hangi hücrelerde veri girişi yaptığımı kontrol edebiliyordum.

Ancak, belgeyi farklı bir isimle kaydettikten sonra kod çalışmamaya başladı.

NOT; farklı isim ile kaydettikten sonra belgeye auto_open ve auto_close kodlarını ekledim. Bundan dolayı olabileceğini düşünerek bu kodları silerek yeniden açtım, ancak yine kod çalışmadı.

NOT; kodun yazılı olduğu sayfanın adı "Veri" olarak kayıtlıdır. auto_open ve auto_close kodları da açılış ve kapanışta "Veri" sayfasının seçili olarak gelmesini sağlamaktadır.

İlgilenen arkadaşlara teşekkür ederim.

Kolaylıklar dilerim...

 

[katip16487]

NOT; önceki belgemi açtığımda kod halen çalışmaktadır.

 

[ÖmerBey]

Yukarıda yazılı kodu kullanarak belgenin açılışında "Veri" sayfasının B1:B17 hücrelerinin fontu rengini KIRMIZI olarak ayarlıyordum.

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("B1:B17")) Is Nothing Then
Dim alan1 As Range
For Each alan1 In Target
alan1.Font.Color = RGB(0, 0, 0)
Next alan1
End If
End Sub

Merhaba,
Paylaştığınız kod bu işlemi yapmıyor.
Aksine değişiklik yapılan hücrenin font rengini siyaha dönüştürüyor. Eğer yanlışlıkla diğer kodu paylaşmadıysanız, sadece bu kodların olduğu dosyada rengin kırmızı olması diye bir şey söz konusu olmayacaktır.

 

[katip16487]

Şimdi baktım.

Doğru diyorsunuz.

Workbook Open olayında kırmızıya çeviriyormuşum.

Kod tek satırlık kod.


Atamadım şu an ..

 

[ÖmerBey]

Yukarıda paylaştığınız kodun çalışmasında bir problem yok. Değişiklik yapılan hücrenin font rengini siyaha çeviriyor. Kırmızıya çeviren kodlarınız çalışmıyorsa kodu paylaşmadan bir şey demek mümkün değil. Çalışmayan dosyanızı paylaşırsanız problem daha anlaşılabilir olacaktır. Bunun yanı sıra dosyanızda koşullu biçimlendirme varsa kodlarınız çalışsa bile koşullu biçim görüntüsü gözükeceği için çalışmıyormuş gibi gelebilir. Onu kontrol edebilirsiniz.
İyi çalışmalar...

 

[katip16487]

İlginize teşekkür ederim. Yazdıkça ortaya çıkıyor. Bu hücrelerin kilidi açık ve sayfada koruma var. Kod öncesine koruma kaldır kodunu yazdım ama yine olmadı.

 

[katip16487]

Belge çok büyük. Yeni kaydettiğim belgede çalışıyor. Örnek gönderemiyorum o yüzden