gelen değerlere karşı excelin beni uyarması

[ndrnprn]

yapmak istediğim sey basit gibi duruyor ama olmuyor. örnekte açıklaması mevcut

 

[Metin Karaağaç]

renklendirme olur mu?

 

[ndrnprn]

öncelikle ilgin için teşekkür ederim.
fikir olabilir yani renk değişebilir fakat olmamış orası her koşulda kırmızı gelen değere göre değişmiyor

 

[Recep İpek]

Bu nasıl olmuş.

 

[ndrnprn]

süper olmuş

ellerine sağlık ama bi sorunum var bunu ben kopyaladığım zaman yanıp sönmüyo onu nasıl ayarlıyabilirim.
ve bunu o6 dan o125 kadar her hücre için ayrı değerler olmak koşulu ile nasıl yapabilirim?
eğer hücre 0(sıfır) ise "yok" yazmasını istiyorum.

bana yardım elleriniz uzatın.

 

[Recep İpek]

Sanırım bu şekil birşey istiyorsunuz.

 

[alfa&omega]

O sutunun tamamına uygulacak sekılde bıu dosya gonderebılır mısn?

 

[Recep İpek]

Aşağıdaki değişikliği yapmanız yeterlidir.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Application.CutCopyMode = xlCopy Then Exit Sub
If Application.CutCopyMode = xlCut Then Exit Sub
For Each alan In Range("O[b][color=red]1[/color][/b]:O[b][color=red]65000[/color][/b]")
If alan.Value = "DİKKAT" Then
alan.Font.ColorIndex = Choose((Int(Rnd * 6) + 1), 3, 4, 5, 6, 7, 8)
ElseIf alan.Value = "YOK" Then
alan.Font.ColorIndex = 1
Else
Exit Sub
End If
Next
End Sub

 

[ndrnprn]

öncelikle ilginiz için teşekkür ederim

ekteki form ana çalışmadır yapılmak istenen şey tükeniyor yazan yerlerin farklı şekilde renk değiştirmesi. ve şimdilik boş olan hücrelere formül girildiğinde aynı tepkiyi vermeleri.

ilginiz ve yapacaklarınız için müteşekkür olacağım.

 

[Recep İpek]

Ekli dosyayı inceleyiniz.

Dosyanızın boyutu büyük olduğu için biraz yavaş çalışıyor.

 

[ndrnprn]

çooook teşekkür ederim

ne desem bilemiyorum. izmirde iseniz size kahve ısmarlayabilirim!!!

 

[Recep İpek]

İzmir'de değilim ama, ara sıra gidiyorum.
Alacağım olsun.