• FORUMU MOBİL UYGULAMADAN TAKİP EDİN

    Forumu isteyen üyelerimiz Tapatalk (Harici bir hizmet) üzerinden mobil uygulamadan takip edebilirler.
    iOS için : https://itunes.apple.com/app/id307880732?mt=8
    Android için : https://play.google.com/store/apps/details?id=com.quoord.tapatalkpro.activity
    adreslerinden indirebilirsiniz.

    Bir iki haftaya da foruma özel kendi uygulamamız yayında olacak.
ALTIN ÜYELİK Hakkında Bilgi
-----------------------

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

dalgalikur

Destek Ekibi
Destek Ekibi
Katılım
4 Haziran 2006
Mesajlar
1,718
Beğeniler
118
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
 
Katılım
21 Eylül 2018
Mesajlar
37
Beğeniler
7
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