Seçmeli ifadeye sayısal değer atama

[umutozkans]

Merhabalar,

ekli dosyada da görebileceğiniz gibi kullanıcı 3 farklı ifadeden ( örn. az kirli, orta, çok kirli ) birini seçtiğinde yanındaki hücreye bu 3 ifadenin karşılığı olan bir sayısal değer gelsin.

Not: İfadeleri seçmeli kutudan seçmeliyiz.

 

[Muhammet Okumuş]

Maerhaba,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("D2") = ActiveCell.Offset(0, 1)
End Sub

kodu deneyiniz.

 

[sametozyavuz]

dosyanız ekte