Aynı rakam yazılı olan hücreler renklensin.

[kelkitli]

Değerli Dostlar,
Geçmiş aylara ait çalışma listesinde yaka numarası yazılı olan bir listede bir hücreye yaka numarası girilince aynı numaraların yazılı olduğu hücreler renklensin istiyorum. Teşekkürler.

 

[N.Ziya Hiçdurmaz]

yanıt

Sayfa kod bölümüne yazın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B3:X56]) Is Nothing Then Exit Sub
For Each bak In Range("B3:V56")
bak.Font.ColorIndex = 0
If bak = [X3] Then
bak.Font.ColorIndex = 3
End If
Next
End Sub

 

[kelkitli]

Sn.V.Basic For Applications,
Teşekkür ederim sağol varol. Konuyu görüntüleyenler kısmına baktığımda bağlı olduğunuzu görünce sizin cevap göndereceğinizi tahmin ettim sağolun.

 

[N.Ziya Hiçdurmaz]

Sizde sağolun.

 

[chopper07]

merhaba

şu şekilde bi form vardı umarım işinize yarar.

farklı renklendirmeler yapabilirsiniz.
istediğiniz sayfaya gidebilirsiniz.
en son kullandığınız sayfadaki en son hücreye gidebilirsiniz.

 

[kelkitli]

Sn.chopper07
Teşekkür ederim güzel bir form