düşeyaranın makro yazılısı varmı?

[özmer_mühendislik]

bu dusey ara yada buna benzer formullerın sagladıgı kolaylıgı bıze makrolarda saglayamazmı? bu tur formullerın makro yazılısı varmı?

 

[conari]

düşeyara zaten kendi kendine bir makrodur

parametreler i verirsiniz işi yapar.

bunun dışında nasıl bir kolaylık bekliyorsunuz.!!

 

[hamitcan]

Resimdeki gibi makro içinde de fonksiyonları kullanabilirsiniz.

 

[özmer_mühendislik]

düşeyara zaten kendi kendine bir makrodur

parametreler i verirsiniz işi yapar.

bunun dışında nasıl bir kolaylık bekliyorsunuz.!!

1)makrolarda excel eklentisiyle tüm sayfalarda işlem yapılabılıyor ama sanırım bu olay formullerde olmuyor
2) bagımsız değişkenşer istiyorum yanı duseyara ile sordugum sorunun cevabının bagımsız olmasını istiyorum

 

[İdris SERDAR]

1)makrolarda excel eklentisiyle tüm sayfalarda işlem yapılabılıyor ama sanırım bu olay formullerde olmuyor
2) bagımsız değişkenşer istiyorum yanı duseyara ile sordugum sorunun cevabının bagımsız olmasını istiyorum

Ne istediğinizi anlayamadım.

Amacınız kullanıcı tanımlı fonksiyon üretmek ise, aşağıdaki linkte yer alan makaleyi inceleyin.

http://www.excel.web.tr/showthread.php?t=4458

 

[Seyit Tiken]

Ekli dosyayı inceleyin.

kod :

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
[D1] = WorksheetFunction.VLookup([C1], [A1:B4], 2, 0)
End Sub

 

[özmer_mühendislik]

ekli dosyanızı inceledim. teşekkur ederim. evet sanırım bıraz almak ıstedıgımı aldım ama sanırım ben derdımı tam olarak anlatamadım. onun ıcın sıze eklı bır dosya hazırladım onu icelemenizi temenni ediyorum

 

[Levent Menteşoğlu]

Veriler nereden çağrılacaktır?

 

[özmer_mühendislik]

herhangi bir dosyadan. meselam excel eklentisi gibi bir dosyadan. yani herzaman cagrıllabilecek bir dosyadan olabilir

 

[Levent Menteşoğlu]

Bu şekilde cevap vermek zor, birde verilerin alınacağı dosya örneği eklerseniz, size uygun bir kod önerebiliriz.

 

[özmer_mühendislik]

Evet Haklisiniz. Ben Verİlerİnde Bulundugu Bir Ornegi Ekledim. İlgİnİz Ve Alakaniza Şİmdİden TeŞekkÜr Ederİm...

 

[Levent Menteşoğlu]

Öncelikle veri alınacak dosyanızı adını TEST2 olarak değiştirin ve c:\deneme isimli bir klasör oluşturarak bu klasöre kopyalayın. Daha sonrada aşağıdaki dosyayı açarak sayfa1 deki tabloda poznolarını seçin.

 

[Levent Menteşoğlu]

Ayrıca ExecuteExcel4Macro yöntemi ile de veriler yine VLOOKUP formülü kullanılarak alınabilir. Bu durumda yukarıdaki dosyada sayfa1 in kod sayfasındaki kodu aşağıdaki ile değiştirin.

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
Target.Offset(0, 1) = ExecuteExcel4Macro("VLOOKUP(" & """" & Target & """" & ",'C:\deneme\[TEST2.xls]VERİLERİN BULUNDUGU SAYFA'!R2C1:R65536C11,2,0)")
Target.Offset(0, 2) = ExecuteExcel4Macro("VLOOKUP(" & """" & Target & """" & ",'C:\deneme\[TEST2.xls]VERİLERİN BULUNDUGU SAYFA'!R2C1:R65536C11,8,0)")
Target.Offset(0, 3) = ExecuteExcel4Macro("VLOOKUP(" & """" & Target & """" & ",'C:\deneme\[TEST2.xls]VERİLERİN BULUNDUGU SAYFA'!R2C1:R65536C11,10,0)")
Target.Offset(0, 4) = ExecuteExcel4Macro("VLOOKUP(" & """" & Target & """" & ",'C:\deneme\[TEST2.xls]VERİLERİN BULUNDUGU SAYFA'!R2C1:R65536C11,11,0)")
End Sub

 

[özmer_mühendislik]

sayın leventm ilginiz ve alakanıza tesekkur ederım. ayrıca sunmus oldugunuz yontem ve yardımlarınız içinde tesekkur ederim. size birşey daha sormak ıstıyorum ben bu sayfayı korumak zorundayım cunku makro kodları bu sayfada yazıyor diğer sayfalarda yok ben bunu tüm sayfalrda kullanabilmek için nasıl bir sey yapmalıyım.

 

[conari]

Gene başa döndünüz o zaman xla yani eklenti yapmanız lazım.

 

[özmer_mühendislik]

xla (eklenti dosyas&#305 yaptıgım zaman beli bir komutla cagırmam gerek.
ama ben sayın leventm hocamın yaptıgı gibi deger gırerek alınan sonucun anuel olarak değiştirmek istiyorum. ben makro bilmiyorum ama soyle bir sey yapılabılırmı? belli bir makroya belli bir ad verilerek belli bir hucreye(tek bir hucreye girmek suretıyle) kod girilerek makromuzun calısması saglanabilirmi? böyle bir sey mümkünmü?

 

[Levent Menteşoğlu]

Sizin yapmak istediğiniz nedir tam olarak izah edermisiniz. Bu kodun tüm excel dosyalarındamı geçerli olmasını istiyorsunuz yoksa aynı dosyanın tüm sayfalarındamı?

Bu arada küçük bir hatırlatma kod sadece A sütununa veri girildiğinde çalışır.

 

[özmer_mühendislik]

bu kodun tum excel sayfalarında gecerli olmasını ıstıyorum! ama bu cok ugrastıracaksa ben tek bır sayfadada işlemimi yaparım yardımlarınız için cok teşekkur ederim.

 

[Levent Menteşoğlu]

Aşağıdaki kodu thisworkbook kod sayfasına kopyalarsanız, dosyadaki tüm sayfaların A sütunlarında çalışır.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, 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
Target.Offset(0, 1) = ExecuteExcel4Macro("VLOOKUP(" & """" & Target & """" & ",'C:\levent\Yeni Klasör\[TEST2.xls]VERİLERİN BULUNDUGU SAYFA'!R2C1:R65536C11,2,0)")
Target.Offset(0, 2) = ExecuteExcel4Macro("VLOOKUP(" & """" & Target & """" & ",'C:\levent\Yeni Klasör\[TEST2.xls]VERİLERİN BULUNDUGU SAYFA'!R2C1:R65536C11,8,0)")
Target.Offset(0, 3) = ExecuteExcel4Macro("VLOOKUP(" & """" & Target & """" & ",'C:\levent\Yeni Klasör\[TEST2.xls]VERİLERİN BULUNDUGU SAYFA'!R2C1:R65536C11,10,0)")
Target.Offset(0, 4) = ExecuteExcel4Macro("VLOOKUP(" & """" & Target & """" & ",'C:\levent\Yeni Klasör\[TEST2.xls]VERİLERİN BULUNDUGU SAYFA'!R2C1:R65536C11,11,0)")
End Sub

 

[özmer_mühendislik]

sayın leventm ilginize ve alakanıza teşekkür ederim. benim demek istediğim tam olarak bu deildi. size kısaca soyle tanımlayayım:
herhangi bir excel sayfasında A sutundaki bir hüzreye =poz(44.2.1) seklinde girdigimde bana B -C - D sutunlarındaki karsılıgını versin tabi yine bu A sutunu hariç diğier sutunlarda değişiklik yapabileyim. Biliyorum cok sey ıstıyorum. yardımlarınız için cok teşekkür ederim.