koşullu biçimlendirmede makro yardımı

Katılım
29 Ekim 2006
Mesajlar
32
Excel Vers. ve Dili
türkçe
microsoft office excell
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

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Bir örnek dosya eklermisiniz.
 
Katılım
29 Ekim 2006
Mesajlar
32
Excel Vers. ve Dili
türkçe
microsoft office excell
levent bey örnek yollaım yardımcı olursanız sevinirim
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
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.
 
Katılım
29 Ekim 2006
Mesajlar
32
Excel Vers. ve Dili
türkçe
microsoft office excell
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

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
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.
 
Katılım
29 Ekim 2006
Mesajlar
32
Excel Vers. ve Dili
türkçe
microsoft office excell
sütun önemli değil o rakamlar hangi sütunda varsa oraya yazacak zaten
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
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.

Kod:
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
 
Üst