1 sayfadan 1. sayfa

Bir değerin karşılığını yazan makro kodu

İletiTarih: 15 Tem 2019 21:58
EKREM
Saygıdeğer Arkadaşlar..! "F5:F124" sütun aralığındaki hücrelere; (C, P, T, Y, M, H) harflerinden biri girildiğinde;
sağ hizasına, aşağıdaki karşılıkların otomatik olarak gelmesi için, nasıl bir makro kodu düzenlenir.?
Örneğin; F5 hücresine T girildiğinde, G5 hücresine Resmitatil yazması gibi.. Yani; şu formülün işlevini yapan makro, =EĞER(F5="C";"CUMARTESİ";EĞER(F5="P";"PAZAR";EĞER(F5="T";"RESMİTATİL";EĞER(F5="Y";"YILLIKİZİN";EĞER(F5="M";"MAZERETİZNİ";EĞER(F5="H";"HASTALIKİZNİ";""))))))

C=Cumartesi
P=Pazar
T=Resmitatil
Y=Yıllıkizin
M=Mazeretizni
H=Hastalıkizni

Cevap: Bir değerin karşılığını yazan makro kodu

İletiTarih: 16 Tem 2019 10:19
Ali ÖZ
Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Target, Range("f5:f124")) Is Nothing Then Exit Sub
  If Target.Value = "C" Then Range("g" & Target.Row) = "Cumartesi"
  If Target.Value = "P" Then Range("g" & Target.Row) = "Pazar"
  If Target.Value = "T" Then Range("g" & Target.Row) = "Resmitatil"
  If Target.Value = "Y" Then Range("g" & Target.Row) = "Yıllıkizin"
  If Target.Value = "M" Then Range("g" & Target.Row) = "Mazeretizni"
  If Target.Value = "H" Then Range("g" & Target.Row) = "Hastalıkizni"
End Sub

Cevap: Bir değerin karşılığını yazan makro kodu

İletiTarih: 16 Tem 2019 17:08
EKREM
Saygıdeğer Ali hocam çok çok teşekkürler.. Muvaffakiyetler dileğiyle hoşça kalınız..

Cevap: Bir değerin karşılığını yazan makro kodu

İletiTarih: 18 Tem 2019 12:06
Ali ÖZ
Rica ederim,iyi çalışmalar.