çıktıya göre renk

[sturan]

örnek te açıkladığım gibi yapabilirmiyiz tesekkürler

 

[leumruk]

Örnek dosyayı inceler misiniz?

 

[leumruk]

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name <> "ÖR" Then Exit Sub
For i = 3 To [AW65536].End(3).Row
If Cells(i, "AW") = [AT3] Then
Cells(i, "AW").Offset(0, 1).Interior.ColorIndex = 6
Cells(i, "AW").Offset(0, 2) = "ÇIKTI ALINDI"
End If
Next i
End Sub

Yukarıdaki dosyayı güncelledim. Yeniden indirebilirsiniz ya da Kodu ThisWorkbook'a kopyalayın.

 

[sturan]

çok teşekkürler ellerinize sağlık

 

[leumruk]

Rica ederim.