Düşeyara makro ile nasıl olur.

[maverick6]

Merhaba arkadaşlar,

elimde bir tablo var 70 kişilik, bu tabloya veri sayfasından veriler alınıyor,
ve her seferinde bu tablodaki kişiler değişiyo, yani Amerikaya gidenler ayrı liste oluyo, Hollandaya gidenler ayrı Yunanistana gidenler ayrı.
Benim yapmak istediğim veri sayfasındaki isimler, liste sayfasından sicil numarasına göre düşeyara ile çağrılıyo fakat.diyelim listede sadece 30 kişi veya 20 kişi olacak. sicil girilmeyenler YOK olarak çıkıyo, bunların sıfır veya hiç olmaması için nasıl bir şey yapabiliriz. Ben formülle denedim düşeyara olmuyo, makro ile veya başka türlü nasıl yapabiliriz. Örnek dosyayı ekledim yardımcı olabilirmisiniz. Teşekkür ediyorum şimdiden.

 

[N.Ziya Hiçdurmaz]

yanıt

Formulü bir deneyiniz.

=+EĞER(EHATALIYSA(DÜŞEYARA($A$7;veri!$A$2:$G$72;2;0));"";DÜŞEYARA($A$7;veri!$A$2:$G$72;2;0))

 

[Orion1]

Merhaba.
Ekli dosyayı inceleyiniz.Şimdi #YOK# yazmıyor.EHATALISA işlevini ekledim.

 

[maverick6]

Çok teşekkür ediyorum, tam istediğim gibi oldu. Bunu makro olarak yapabilirmiyiz.

 

[muhammetozgen]

Merhaba Ayni Cevap Banada Gereklİydİ Hemen Denedİm Fakat Bu Defa FormÜlÜ Asagiya Dogru Cekİnce İlk Satirdakİ Buldugu Degerİ Tumune Yaziyor

 

[N.Ziya Hiçdurmaz]

Formüldeki $ işaretleri formül adresini sabitlemek içindir kaldırın .

 

[Orion1]

Merhaba Ayni Cevap Banada Gereklİydİ Hemen Denedİm Fakat Bu Defa FormÜlÜ Asagiya Dogru Cekİnce İlk Satirdakİ Buldugu Degerİ Tumune Yaziyor

$A$7 şöyle deneyin $A7

 

[bilal_akdeniz]

arkadaşlar bunun makro ile yapmak mümkün değilmi

 

[Seyit Tiken]

Örnek dosyayı kendinize uyarlayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
[c1] = Application.VLookup(([d1]), ([a1:b5]), 2, 0)
End Sub

 

[N.Ziya Hiçdurmaz]

yanıt

Birden fazla satır için isterseniz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [a1:a20]) Is Nothing Then Exit Sub
For ara = 1 To 20
Range("b" & ara) = WorksheetFunction.VLookup(Range("a" & ara), Range("f:h"), 2, 0)
Range("c" & ara) = WorksheetFunction.VLookup(Range("a" & ara), Range("f:h"), 3, 0)
If Range("a" & ara) = "" Then
Range("a" & ara).Offset(0, 1) = ""
Range("a" & ara).Offset(0, 2) = ""
End If
Next
End Sub

 

[arol11]

Selamlar,Sayın V.Basic For Applications,
Bunun gibi benzer uygulamalar zaman zaman gerekli oluyor.Fakat sizin kodları çalıştıramadım.Ben mi uygulayamadım bilmiyorum.Tekrar kontrol etseniz.
İyi günler dilerim.

 

[N.Ziya Hiçdurmaz]

Normal düşeyara formülü gibi mantığı var.Ekteki dosyada A sütununa girdiğiniz verilerin karşılığını b ve c de bulur.(Döngü ile istediğiniz aralığa kadar işlem görmektedir.)

 

[arol11]

Tammam.teşekkürler gözden kaçırmışım.İyi akşamlar dilerim.

 

[maverick6]

V.Basic For Applications, teşekkür ederim.