[Çözüldü]  Bir değerin karşılığını yazan makro kodu

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

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

İleti#1)  EKREM » 15 Tem 2019 21:58

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
Kullanıcı avatarı
EKREM
Siteye Alışmış
 
Adı Soyadı:Ekrem Baltacıoğlu
Kayıt: 26 Oca 2011 10:24
Konum: --
Meslek: Kamu
Yaş: 57
İleti: 171
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa / Mustafakemalpaşa

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

İleti#2)  Ali ÖZ » 16 Tem 2019 10:19

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
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 38
İleti: 9814
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

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

İleti#3)  EKREM » 16 Tem 2019 17:08

Saygıdeğer Ali hocam çok çok teşekkürler.. Muvaffakiyetler dileğiyle hoşça kalınız..
Kullanıcı avatarı
EKREM
Siteye Alışmış
 
Adı Soyadı:Ekrem Baltacıoğlu
Kayıt: 26 Oca 2011 10:24
Konum: --
Meslek: Kamu
Yaş: 57
İleti: 171
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa / Mustafakemalpaşa

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

İleti#4)  Ali ÖZ » 18 Tem 2019 12:06

Rica ederim,iyi çalışmalar.
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 38
İleti: 9814
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Yandex[Bot] ve 2 misafir

Bumerang - Yazarkafe