farklı sayfalarda koşullu biçimlendirme

[silenzi]

Arkadaşlar sheet 1 ve sheet 2 deki il açıklamaları aynıdır benim amacım sheet 1 de bulunan pzr alanındaki sayı sheet 1 de bulunan pzr alanındakinden büyük ise yazıların rengi değişsin ekte örneğini koydum.Nasıl yapabilirim.

 

[halit3]

Bunu denermisiniz.

Sub reng()
Worksheets("Sheet1").Columns("B:B").Font.ColorIndex = 0
For r = 3 To Worksheets("Sheet1").Cells(Rows.Count, "A").End(3).Row
aranan1 = Sheets("Sheet1").Cells(r, 1).Value
aranan2 = Sheets("Sheet1").Cells(r, 2).Value
If Sheets("Sheet1").Cells(r, 1).Value <> "" Then
For i = r To Worksheets("Sheet2").Cells(Rows.Count, "A").End(3).Row
bulunan1 = Sheets("Sheet2").Cells(i, 1).Value
bulunan2 = Sheets("Sheet2").Cells(i, 2).Value
If aranan1 = bulunan1 Then
If aranan2 < bulunan2 Then
Sheets("Sheet2").Cells(i, "b").Font.ColorIndex = 3
End If
End If
Next i
End If
Next r
MsgBox "işlem tamam"
End Sub

 

[silenzi]

makro kullanmadan yapamazmıyım .çünkü makrom iyi değil ve buna benzer farklı dosyalarım var. formül ile açıklamanız mümkün müdür ?

 

[halit3]

makro kullanmadan yapamazmıyım .çünkü makrom iyi değil ve buna benzer farklı dosyalarım var. formül ile açıklamanız mümkün müdür ?

Sayın silenzi

Ben formüllerden pek anlamayorum onun için çözümünüzü makro ile yapmıştım.

Herhalde koşullu biçimlendirmede diğer çalışma sayfası ve kitabına yapılan başvurular kullanılamıyor.

 

[İhsan Tank]

makro kullanmadan yapamazmıyım .çünkü makrom iyi değil ve buna benzer farklı dosyalarım var. formül ile açıklamanız mümkün müdür ?

ad tanımlama ile yapabilirsiniz.

 

[halit3]

ekli dosyanıza bir bakınız.