Farklı dosyada düşeyara fonksiyonu

[özmer_mühendislik]

daha forumda düşey ara ile ilgili yardım istemiştim ve bazı arkadaşlar yardım etmişti hatta bana makro kodları vermişlerdi. bu kodlar cok işime yaradı ama benim acımdan bazı eksiklikleri var

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
If Target = "" Then
Range("b" & Target.Row & ":e" & Target.Row).ClearContents
Exit Sub
End If
[z1] = "=VLOOKUP(A3,'C:\deneme\[2007bf.xls]A'!$A$2:$K$65536,2,0)"
Target.Offset(0, 1) = [z1]
[z1] = "=VLOOKUP(A3,'C:\deneme\[2007bf.xls]A'!$A$2:$K$65536,8,0)"
Target.Offset(0, 2) = [z1]
[z1] = "=VLOOKUP(A3,'C:\deneme\[2007bf.xls]A'!$A$2:$K$65536,10,0)"
Target.Offset(0, 3) = [z1]
[z1] = "=VLOOKUP(A3,'C:\deneme\[2007bf.xls]A'!$A$2:$K$65536,11,0)"
Target.Offset(0, 4) = [z1]
[z1] = ""
End Sub

yukarıdaki kodlarda görüldüğü üzere sadece a3 hücresinde calısıyor diger hücrelere a3 hücresindekinin aynısını atıyor ben tum A sutununda kullanmak ıstıyorum...
mümkünse bu makroyu fonksiyon halıne getirebilrmiyiz
mesela =yaz(1.1.2) şeklinde bu makroyu heryerde kullanmamı saglayacak

İLGİLENEN ARKADASLARA ŞİMDİDEN TEŞEKKÜR EDERİM...

 

[Leoncio]

Sorunuzu örnek bir dosya ekleyerek sorsanız daha anlaşılır olur.

 

[özmer_mühendislik]

haklısınız....
dosyayı ekte sundum TEŞEKKÜRLER

 

[Leoncio]

Ekte bulunan dosyayı inceleyiniz.

 

[özmer_mühendislik]

sayın leventer eger dosyayı incelediyseniz ben düşeyara fonksiyonunu kullanıyorum makro kısmına baktıysanız ben bu moakroyu sadece A3 satırında kullanabılıyorum ben tum A sutunlsrında kullanmak ıstıyorum ve bu makroyu fonksıyon olarak kullanmak ıstıyorum örnekte belirttiğim gibi
İLGİNİZ VE ALAKANIZA TEŞEKKÜRLER....

 

[özmer_mühendislik]

sanırım bu konu kimsenin hosuna gitmedi.........

 

[özmer_mühendislik]

bana yardım edecek kımse yokmu?

 

[tahsinanarat]

Ekli dosyayı inceleyiniz

Klasör yolunu kendinize göre ayarlayınız (evvelki tarihlerde bu siteden indirilmiştir)

 

[özmer_mühendislik]

Klasör yolunu kendinize göre ayarlayınız (evvelki tarihlerde bu siteden indirilmiştir)

ilgilendiğiniz için teşekkür ederim. ama ben sorunumu kısmen hallettim suan tek sıkıntım fonksıyon haline getirebilmem bana yardım ederseniz memnun olurum...