makroyla yatayara düseyara fonksiyonu kullanımı

[manutd]

bu konularla ilgili forumda birdolu baslık olmasina ragmen ben kendime yarayanlari ne kullanabildim nede ekteki dosyalari bilgisayarima indirip inceleyebildim.benim tek istedigim herhangi bir ornekte ne olursa olsun makroyla düseyara yatayara fonksiyonlarının kullanıldıgı bır uygulamaya sahip olmak.yardımcı olmak ısteyenler yada elinde boyle bir uygulama olan arkadaslarımdan abilerimden yardım bekliyorum.eger maille gondermek ısterseniz:denyxx@mynet.com adresim.şimdiden tesekkurler..

 

[asabi45]

Basit ve kullanışlı bir düşeyara örneği

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Kaynak = Range("A2:B100")
Set Sonuc = Range("E2:E" & [D65536].End(3).Row)
Set Bul = Range("D2" & [D65536].End(3).Row)
Sonuc.Value = Application.VLookup(Bul.Value, Kaynak, 2, False)
End Sub

Koddaki Sonuc.Value = Application.VLookup(Bul.Value, Kaynak, 2, False) satırı tanıdık gelmiştir sanırım.

(D2 iki nokta üstüste D) yazdım smiley çıktı kodda.

 

[manutd]

ilginiz icin tesekkurler fakat benim istedigim biraz daha karısık bi ornek we makroyla duseyara ve yatayara fonksiyonlarının kullanımı.ayrıca ornegınde bana acıklanmasını ıstıorum ne sekılde ne aranmıstır nası bı komut gırılmıstır gibi..

 

[Kemal Demir]

Asabi45 arkadasımız cevaplamıs ama bende bir cevap yazmak istedim.


örnek olarak a1:a10 arası değerleriniz mevcut
ve c1:c3 değerleri arasında da a1:a10 daki değer aratılıdıgını varsayalım.

Sub bul()
'aratılan değer aralığı
for x=1 to 10
'aranılan değer aralıgı
for y=1 to 3

if Range("c"&y).value=Range("a"&x).value then
'bulunan değerleri B kolonuna bulundu olarak yazdıralım
Range("b"&x).value="Bulundu"
end if
Next
Next
End Sub


Umarım anlatabilmişimdir.

Ek'te bir Dosya Yollamıs olsaydınız sizin için daha acıklayacı olabilirdi.

İyi Çalışmalar.

 

[manutd]

cok tesekkuler.maalesef ekte bi dosya sunamıyorum cunku zaten bu benden istenen bi ödev ve benim ne yapabilirim hicbir fikrim yok sadece konu belli makroyla düseyara ve yatayara uyulaması.bildigim teksey bu