Koşullu Biçimlendirme

[ozcanya]

arkadaşlar Ekdeki dosyada benim yapamadım koşullu reklendirme var sizden rıca etsem bana yardım edermisiniz (Makro da olabir )

 

[Orion1]

Dosyanız ekte.

 

[edkaya]

arkadaşlar Ekdeki dosyada benim yapamadım koşullu reklendirme var sizden rıca etsem bana yardım edermisiniz (Makro da olabir )

ustalardan ogrendigim kadariyla. evren beyin dosyasına bakamadim rar dosyasi acamiyorum ama bir alternatif olabilir belki.
dosya ektedir

 

[ozcanya]

teşekkür

sayın evren üstatım ve diğer arkadaşım.teşekkürü borç bilirim vede saygılar sunarım
iyi çalışmalar

 

[N.Ziya Hiçdurmaz]

Yanıt

Alternatif örnek.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo HATA
Dim DEG As Range
If Intersect(Target, [B1:B39]) Is Nothing Then Exit Sub
Target.Interior.ColorIndex = 6
For Each DEG In Range("L10:L39")
If Target = DEG Then
Target.Interior.ColorIndex = DEG.Interior.ColorIndex
End If
Next
HATA:
End Sub

 

[ozcanya]

Sayin Evren Hocam bİr sorunum var rakamlari sİldİğİm de Renk kaliyor
Dolayisi İle ben Yanliş rakam gİrdİğim de renk kaliyor.teşekkür Ederİm.

 

[Orion1]

Sayin Evren Hocam bİr sorunum var rakamlari sİldİğİm de Renk kaliyor
Dolayisi İle ben Yanliş rakam gİrdİğim de renk kaliyor.teşekkür Ederİm.

Durumu düzelltim.
Dosyanız ekte.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim k As Range
If Intersect(Target, [B10:K40]) Is Nothing Then Exit Sub
On Error GoTo son
If Target.Value = "" Then
    Target.Interior.ColorIndex = 27
    Exit Sub
End If
Target.Interior.ColorIndex = 27
Set k = Range("L10:L500").Find(Target.Value, , xlValues, xlWhole)
    If Not k Is Nothing Then
        Target.Interior.ColorIndex = k.Interior.ColorIndex
    End If
son:
Set k = Nothing
End Sub

 

[ozcanya]

teşekkürler

üstat tamam eline koluna sağlık

 

[Orion1]

üstat tamam eline koluna sağlık

Rica ederim.
Kolay gelsin.

 

[ozcanya]

hocam kusura bakma çalışınca hatalar ortaya çıkıyor.Bilgleri toptan sılınce renkler kalıyor.Ancak tek tek silince gidiyor bu konuda yardım rıca etsem
teşekkür ederim.

 

[Orion1]

hocam kusura bakma çalışınca hatalar ortaya çıkıyor.Bilgleri toptan sılınce renkler kalıyor.Ancak tek tek silince gidiyor bu konuda yardım rıca etsem
teşekkür ederim.

Ekli dosyayı inceleyiniz.

 

[ozcanya]

evren bey teşekkür ederim Saygılar sunarım İyi çalışmalar

 

[Orion1]

evren bey teşekkür ederim Saygılar sunarım İyi çalışmalar

Rica ederim.
İyi çalışmalar.

 

[hakanakbey06]

çalışmadan yararlandım teşekkürler.