yardım lütfen

[wexcalibur20]

amacım şu
satmakta olduğum araçların giriş maliyetlerinin bulunduğu hücreyi seçtirip istediğim hücreye yazdırarak aracın satış rakamını bulmak aşağıda anlatmaya çalıştım
r
excell de bir sayfa açtık


A sütununa
1 a1 e
2 a2 ye
3 a3 e
4 a4 e
5 a5 e
6 a6 ya yazdık

B sütünuna
(sırasıyla)
10.000 b1 e
20.000 b2 e
30.000 b3 e
40.000 b4 e
50.000 b5 e
60.000 b6 ya girdik



sonra C1 hücresine 1 yazarsam D1 hücresine B1 deki sayıyı (10.000) nasıl getirtebilirim

aynı şekilde C1 hücresine 4 yazarsam D1 hücresine B4 hücresindeki sayıyı (40.000) nasıl getirtebilirim. tşk.

vb.
kısacası 1 den 6 ya kadar rakamı C1 e girdiğimde D1 e rakamların yanındaki hücredeki sayıları D1 e getirmek.

 

[Ömer]

Merhaba,

Konu başlığını sorunun içeriğini ifade edecek şekilde değiştirmenizi rica ederim. Başlığı değiştirdikten sonra sorunuzla ilgili küçük bir örnek dosya ekleyerek detaylı açıklama yaparmısnız.

Açılan Konu Başlığını Düzeltmek

Forum Kurallarina Uymayan Basliklar Hakkinda

 

[dEdE]

Merhaba,
Forumumuza hoşgeldiniz.
Aşağıdaki kodu sayfanın kod bölümüne yapıştırıp dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C1]) Is Nothing Then Exit Sub
If [C1].Value = "" Then Exit Sub
[D1].Value = Cells([C1].Value, 2).Value
End Sub

Formülle yapmak isterseniz D1 hücresine aşağıdaki formülü yazınız.

=EĞER(C1=1;B1;EĞER(C1=2;B2;EĞER(C1=3;B3;EĞER(C1=4;B4;EĞER(C1=5;B5;EĞER(C1=6;B6;""))))))

Not:Ömer bey, mesajınızı görmeden bende benzer uyarıyı yapmış yeni üye olması nedeniyle ayrıca çözüm önermiştim. Mesajınızı görünce uyarı bölümünü iptal ettim. Hoşçakalın.

 

[wexcalibur20]

Merhaba,
Forumumuza hoşgeldiniz.
Aşağıdaki kodu sayfanın kod bölümüne yapıştırıp dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C1]) Is Nothing Then Exit Sub
If [C1].Value = "" Then Exit Sub
[D1].Value = Cells([C1].Value, 2).Value
End Sub

Formülle yapmak isterseniz D1 hücresine aşağıdaki formülü yazınız.

=EĞER(C1=1;B1;EĞER(C1=2;B2;EĞER(C1=3;B3;EĞER(C1=4;B4;EĞER(C1=5;B5;EĞER(C1=6;B6;""))))))

Not:Ömer bey, mesajınızı görmeden bende benzer uyarıyı yapmış yeni üye olması nedeniyle ayrıca çözüm önermiştim. Mesajınızı görünce uyarı bölümünü iptal ettim. Hoşçakalın.

emeğinize sağlık. teşekkürler.

 

[iskava]

D1 hücresine

=+VLOOKUP($C$1;$A$1:$B$6;2;0)

yazmanız yeterli diye düşünüyorum..