Yalnız Mesajı Göster
Eski 19-05-2017, 13:51  
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 18,999
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Merhaba,

Bu işlemi VBA da kodlama ile de yapabilirsiniz. Sayfa üzerinde formül ile de yapabilirsiniz.

Kod:

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Yaz()
    
    If [c7] = "kalem" Then
        [c8] = "10tl"
    ElseIf [c7] = "silgi" Then
        [c8] = "5tl"
    End If
    
End Sub
Formül ile:

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
=EĞER(C7="kalem";"10tl";EĞER(C7="silgi";"5tl";""))
Gibi.

Yalnız ölçüt sayınız fazla ise data oluşturup düşeyara fonksiyonunu kullanmak daha mantıklı.

Ekte küçük bir örnek hazırladım.

http://s9.dosya.tc/server2/ir497x/Kitap1.rar.html

.
__________________
.
Ömer Çevrimdışı   Alıntı Yaparak Cevapla