kodlama listesi

Katılım
11 Mart 2007
Mesajlar
3
Excel Vers. ve Dili
excel 2003 türkçe
selam arkadaşlar;
excel'e yeni başlayan biri olarak bir konuda bana yardımcı olursanız çok sevineceğim.
Şöyleki:
Bir ürün listesinde bir harf-sayı yazarak ona ait ürünü tanımlamak istiyorum.Örneğin "B001" yazdığımda hücrede "Bavul Sarı" görünsün."V005" yazdığımda da "Valiz Kırmızı".
Yardımlarınız için çok teşekkürler.
 
Katılım
11 Mart 2007
Mesajlar
3
Excel Vers. ve Dili
excel 2003 türkçe
Sn.Ali Bey
Hızlı yanıtınız için sağolun.Ben konuyu size yeterince açıklayamadım.Bir ek gönderiyorum.İncelerseniz memnun olurum.Çok teşekkürler.
 
Son düzenleme:

Ali

Uzman
Katılım
21 Temmuz 2005
Mesajlar
7,895
Excel Vers. ve Dili
İş:Excel 2016-Türkçe
Bu durumda makro kullanmak gerekecek.

İlgili sayfanızın sayfa sekmesini sağ tuş ile tıklayıp kod görüntüle kısmını seçtikten sonra aşağıdaki kodları ekleyin.

Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C:C]) Is Nothing Then Exit Sub
Select Case Target
Case "B001": Target.Value = "Bavul Sarı"
Case "V005": Target.Value = "Valiz Kırmızı"
End Select
End Sub
Kod:
If Intersect(Target, [C:C]) Is Nothing Then Exit Sub
C sütununa bu verileri yazdığınız kabul ettim. Siz hangi sütun ise onun adını verebilirsiniz Target, [F:F] yada sadece belirli alanda olacak ise F5:F30 aralığında gibiyse

Kod:
If Intersect(Target, [F5:f30]) Is Nothing Then Exit Sub
olarak değiştirebilirsiniz.

Koşulunuza görede
Kod:
Case "V005": Target.Value = "Valiz Kırmızı"
olan satırları siz artırırsınız.
 
Katılım
23 Haziran 2008
Mesajlar
13
Excel Vers. ve Dili
ofis 2010
merhaba

aynı kodu bende kullandım sorun yok ama belirli hücreleri silmesi için macro atadığımda 13 numaralı hata veriyor ikisini kullanabilirmiyim ne yapmam gerekiyor kolaygelsin
 
Üst