kod daki değerleri renklendirmek

[engam]

Sub Ornek()
'1.Satır ile En son satırı İfade Eder
For x = 1 To Cells(65536, 1).End(xlUp).Row
'1.Kolon ile 3.Kolona kadar ifade eder
For y = 1 To 3
'eğer x,y koordinatlarında değer 1 ise x,y koordinatlarındaki değerleri Alma yap
If Cells(x, y) = "1" Then
Cells(x, y) = "Alma"
End If
'eğer x,y koordinatlarında değer 2 ise x,y koordinatlarındaki değerleri Sat yap

If Cells(x, y) = "2" Then
Cells(x, y) = "Sat"
End If
'eğer x,y koordinatlarında değer 3 ise x,y koordinatlarındaki değerleri tut yap

If Cells(x, y) = "3" Then
Cells(x, y) = "Al"
End If
'eğer x,y koordinatlarında değer 4 ise x,y koordinatlarındaki değerleri Al yap

If Cells(x, y) = "4" Then
Cells(x, y) = "Tut"
End If
Next
Next
End Sub


arkadaşlar bu koddaki değerleri 1=ALMA (KIRMIZI) 2=SAT (SARI) 3=AL )YEŞİL)
4=AL (MAVİ OLARAK) hücre ve yazı olarak yapabilirmisiniz.

 

[Recep İpek]

Siz A:B:C kolonlarındaki 1,2,3,4 değerlerini ALMA-SAT-AL-TUT ve ilgili renkte mi yapmak istiyorsunuz?

 

[engam]

evet macro çalıştırdığım zaman o renkleri yazsın

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde denermisiniz.

Sub Örnek()
    '1.Satır ile En son satırı İfade Eder
    For x = 1 To Cells(65536, 1).End(xlUp).Row
    '1.Kolon ile 3.Kolona kadar ifade eder
    For y = 1 To 3
    'eğer x,y koordinatlarında değer 1 ise x,y koordinatlarındaki değerleri Alma yap
    If Cells(x, y) = 1 Then
    Cells(x, y) = "Alma"
    Cells(x, y).Interior.Color = vbRed
    End If
    'eğer x,y koordinatlarında değer 2 ise x,y koordinatlarındaki değerleri Sat yap
    
    If Cells(x, y) = 2 Then
    Cells(x, y) = "Sat"
    Cells(x, y).Interior.Color = vbYellow
    End If
    'eğer x,y koordinatlarında değer 3 ise x,y koordinatlarındaki değerleri tut yap
    
    If Cells(x, y) = 3 Then
    Cells(x, y) = "Al"
    Cells(x, y).Interior.Color = vbGreen
    End If
    'eğer x,y koordinatlarında değer 4 ise x,y koordinatlarındaki değerleri Al yap
    
    If Cells(x, y) = 4 Then
    Cells(x, y) = "Tut"
    Cells(x, y).Interior.Color = vbBlue
    End If
    Next
    Next
End Sub

 

[Recep İpek]

Benim hazırladığımda boşa gitmesin.

Not:Sorunuzda renk yazsın demişsiniz.Burayı anlamayadım.
Eğer yaptığımızdan farklı birşey istiyorsanız küçük bir örnek ekleyebilirmisiniz.