T

Çözüldü E sutunundaki Kritere göre S sutununa

tahsinanarat

Normal Üye
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Ekli örnek dosyamda belirttiğim gibi E sutununda yazılı olan kritere görğe S sutununa Belirtilen kelimeyi yazdırma.

E sutununda RE,KR,SV yazıyorsa S sutununa Alacak yazsın
E sutununda VR,SA yazıyorsa S sutununa Virman yazsın gibi
 

Ekli dosyalar

Merhabalar Sn. @tahsinanarat
Alternatif olarak For Next ve If ElseIf için örnek kod.
-- ElseIf satırlarını çoğaltarak yeni seçenekler ekleyebilirsiniz.
-- Kodu herhangi bir nesneye atayıp, tıklama ile çalıştırabilirsiniz.
VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(28 satır)
 
Bu da alternatif olsun.
kod = Array(...... ve snc = Array(..... kısımlarına, ÇİFT TIRNAK arasında ve VİRGÜLle ayırarak istediğiniz gibi ekleme yapabilirsiniz.
Dikkat edilecek şey; bu ikisindeki verilerin sıralaması, kod'un 5'inci elemanının anlamı, snc'nin 5'inci elemanıdır gibi "KARŞILIKLILIK".
Bu alternatif büyük veri yığınlarında daha hızlı sonuç verecektir.

VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(14 satır)
 
Üst