Soru Macro ile hücredeki değere göre başka bir hücreye değer yazdırma

hamza2011

Altın Üye
Katılım
21 Eylül 2018
Mesajlar
52
Beğeniler
9
Excel Vers. ve Dili
2010/Türkçe
#1
Merhaba;

Ek' li dosyada ihtiyacım olan durumu anlatmaya çalıştım. Lütfen konu hakkında yardım eder misiniz.
 

Ekli dosyalar

dalgalikur

Destek Ekibi
Destek Ekibi
Katılım
4 Haziran 2006
Mesajlar
1,889
Beğeniler
171
Excel Vers. ve Dili
2007-2013
#2
Merhaba.

Sayfa adını sağ tıklatıp "Kod Görüntüle" seçin. Aşağıdaki kodları açılan sayfaya kopyalayın.

Kod:
Sub Test()
    Dim SatirSay As Long
    Dim Bak As Range
    SatirSay = Cells(Rows.Count, "O").End(3).Row
    For Each Bak In Range("O2:O" & SatirSay)
        If Bak.Value = "K" Then
            Bak(1, 2).Value = "01"
            Bak(1, 3).Value = "KAYIP"
            Bak(1, 4).Value = "Y.E.R"
            Bak(1, 5).Value = "04"
        ElseIf Bak.Value = "Y" Then
            Bak(1, 2).Value = "02"
            Bak(1, 3).Value = "HASARLI"
            Bak(1, 4).Value = "H.Y.E.T"
            Bak(1, 5).Value = "05"
        ElseIf Bak.Value = "D" Then
            Bak(1, 2).Value = "03"
            Bak(1, 3).Value = "DARA"
            Bak(1, 4).Value = "DR"
            Bak(1, 5).Value = "06"
        End If
    Next
End Sub
 

hamza2011

Altın Üye
Katılım
21 Eylül 2018
Mesajlar
52
Beğeniler
9
Excel Vers. ve Dili
2010/Türkçe
#3
Geç dönüş yaptığım için üzgünüm kusura bakmayın lütfen.
Çok ama çokk teşekkür ederim Hocam. Çok güzel olmuş hoşçakalın.
 
Üst