koşullu biçimlendirmede makro yardımı

[engam]

koşullu biçimlendirmede aldığım sayısal verileri makroda nasıl yazıya çevirebilirim. örneğin 1 olan rakama VAR yada 4 olan rakam YOK gibi
verileri otomatik aldığımda sayıyı yazıya çevirmek istiyorum.

 

[Levent Menteşoğlu]

Bir örnek dosya eklermisiniz.

 

[engam]

levent bey örnek yollaım yardımcı olursanız sevinirim

 

[Levent Menteşoğlu]

Sorunuzu biraz daha açarmısınız. 1 olan rakama var, 4 olana yok yazılacaktan kastınız nedir? aradaki 2 ve 3 rakamlarına bir işlem yapılmayacakmıdır? Ayrıca var yada yok verisi nereye yazılacaktır.

 

[engam]

1=ALMA 2=SAT 3=AL 4=TUT diye yazmak istiyorum,veri aldığım zaman koşullu biçimlendirmede bu rakamları gördüğünde karşısına bu sözcükleri yazsın istiyorum.birde macro ilk defa yapacam ayrıntılı anlatırsanız sevinirim saygılar,eğer macro dışında bir yöntem varsa oda olur

 

[Levent Menteşoğlu]

1=ALMA 2=SAT 3=AL 4=TUT diye yazmak istiyorum,veri aldığım zaman koşullu biçimlendirmede bu rakamları gördüğünde karşısına bu sözcükleri yazsın istiyorum.

Karşısına derken hangi sütuna yazmasını kasdediyorsunuz.

 

[engam]

sütun önemli değil o rakamlar hangi sütunda varsa oraya yazacak zaten

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfanın kod sayfasına kopyalayın. Hücreye 1-4 arası bir rakam yazdığınızda yine o hücreye gereken kelimeyi yazacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
If IsNumeric(Target) = False Or Target > 4 Or Target < 1 Then Exit Sub
deg = Array("ALMA", "SAT", "AL", "TUT")
Target = deg(Target - 1)
End Sub