Dostlar iyi günler excele yeni başladım. Bir arkadaşımın bu konuda ödevi var ve yardımcı olmak istiyorum. Önceden yazılmış ürünler ve fiyatlar var. Bunun yanında ürünün adını yazınca ürünün fiyatını gösteren 2 kutucuk yapmamız gerekiyor. Bunu nasıl yapabiliriz?
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Soru ÜRÜN ADINDAN FİYATI BULABİLME FONKSİYONU
- Katılım
- 15 Mart 2005
- Mesajlar
- 41,561
- Excel Vers. ve Dili
- Microsoft 365 Tr-En 64 Bit
DÜŞEYARA fonksiyonunu araştırınız.
NADİR YILDIZ
Altın Üye
- Katılım
- 7 Ocak 2006
- Mesajlar
- 1,288
- Excel Vers. ve Dili
- 2016 Türkçe
- Altın Üyelik Bitiş Tarihi
- 09-02-2026
düşeyara formülü kullanabilirsiniz
seddur
Altın Üye
- Katılım
- 12 Nisan 2012
- Mesajlar
- 531
- Excel Vers. ve Dili
- Microsoft office professional plus 2019
- Altın Üyelik Bitiş Tarihi
- 18-12-2024
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo hata
Dim KeyCells As Range
Set KeyCells = Range("A2")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
If KeyCells.Value <> "" Then
Dim urunBul As Range
Set urunBul = Worksheets("Liste").UsedRange.Find(KeyCells.Value, Lookat:=xlWhole)
Range("B2") = urunBul.Offset(0, 1).Value
End If
End If
Exit Sub
hata:
Range("B2").Value = "Ürün bulunamadı."
End Sub
"A2" ye ürünadı yazıyorsun "B2"de sonucu görüyorsun.
On Error GoTo hata
Dim KeyCells As Range
Set KeyCells = Range("A2")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
If KeyCells.Value <> "" Then
Dim urunBul As Range
Set urunBul = Worksheets("Liste").UsedRange.Find(KeyCells.Value, Lookat:=xlWhole)
Range("B2") = urunBul.Offset(0, 1).Value
End If
End If
Exit Sub
hata:
Range("B2").Value = "Ürün bulunamadı."
End Sub
"A2" ye ürünadı yazıyorsun "B2"de sonucu görüyorsun.