vba'da düşeyara formulu

[asi_kartal]

slm arkadaşlar düşeyara fonsiyonunu vba olarak istiyorum. yardımcı olursanız sevinirim.

 

[hamitcan]

Linki inceleyin.
http://www.excel.web.tr/archive/index.php/t-14710.html

 

[asi_kartal]

Linki inceleyin.
http://www.excel.web.tr/archive/index.php/t-14710.html

yok hocam yapamadım inceledim ama kod bilgim baya baya zayıf olduğu için yorumlayamadım.

 

[hamitcan]

Sub nn()
On Error Resume Next
satir = WorksheetFunction.Match(Sheets("Sayfa1").[t7], Sheets("öğrenci").[b2:b5000], 0)
On Error GoTo 0
Sheets("Sayfa1").[t6] = Sheets("öğrenci").Cells(satir, 3)
Sheets("Sayfa1").[t9] = Sheets("öğrenci").Cells(satir, 8)
Sheets("Sayfa1").[t11] = Sheets("öğrenci").Cells(satir, 5)
Sheets("Sayfa1").[t12] = Sheets("öğrenci").Cells(satir, 4)
Sheets("Sayfa1").[t13] = Sheets("öğrenci").Cells(satir, 7) & "/" & Sheets("öğrenci").Cells(satir, 6)
End Sub

 

[aptillah]

bende bi çalışma yaptım eki inceleyin ..

 

[asi_kartal]

Sub nn()
On Error Resume Next
satir = WorksheetFunction.Match(Sheets("Sayfa1").[t7], Sheets("öğrenci").[b2:b5000], 0)
On Error GoTo 0
Sheets("Sayfa1").[t6] = Sheets("öğrenci").Cells(satir, 3)
Sheets("Sayfa1").[t9] = Sheets("öğrenci").Cells(satir, 8)
Sheets("Sayfa1").[t11] = Sheets("öğrenci").Cells(satir, 5)
Sheets("Sayfa1").[t12] = Sheets("öğrenci").Cells(satir, 4)
Sheets("Sayfa1").[t13] = Sheets("öğrenci").Cells(satir, 7) & "/" & Sheets("öğrenci").Cells(satir, 6)
End Sub

bende bi çalışma yaptım eki inceleyin ..

kusura bakmayın biraz geç oldu ama yardımlarınız için teşekkür ederim.

 

[fatiherol06]

Merhaba

Arkadaşlar düşeyaranın bu formüllerinin makrosu gerekiyor bir türlü yapamadım
kodu girip tıklayınca düşeyaradaki gibi değerlerin atmasını istiyorum yardımcı olabilirmisiniz formül aşağıdaki gibi
EĞERHATA(DÜŞEYARA(A16;Sayfa2!$A$4:$I$1500;2;YANLIŞ);"")

birde c16 e16 çarpılıp f16 yazılmasını f16:f68 değerlerin toplanıp f69 a yazılmasını istiyorum.
çok oluyor biliyorum ama A16:A68 B16:B68 e arama motoru çıkmasını istiyorum mesela ürün kodu veya ismi yazıldığında yazılan harflerle ilgili olan cümlelerin çıkması gerekiyor
yardımcı olabilirmisiniz.

Teşekkürler şimdiden

 

[Orion1]

Merhaba

Arkadaşlar düşeyaranın bu formüllerinin makrosu gerekiyor bir türlü yapamadım
kodu girip tıklayınca düşeyaradaki gibi değerlerin atmasını istiyorum yardımcı olabilirmisiniz formül aşağıdaki gibi
EĞERHATA(DÜŞEYARA(A16;Sayfa2!$A$4:$I$1500;2;YANLIŞ);"")

birde c16 e16 çarpılıp f16 yazılmasını f16:f68 değerlerin toplanıp f69 a yazılmasını istiyorum.
çok oluyor biliyorum ama A16:A68 B16:B68 e arama motoru çıkmasını istiyorum mesela ürün kodu veya ismi yazıldığında yazılan harflerle ilgili olan cümlelerin çıkması gerekiyor
yardımcı olabilirmisiniz.

Teşekkürler şimdiden

Örnek dosyanızı link verin veya forumda find komutunu arayın.

 

[fatiherol06]

https://www.wetransfer.com/download...5c41092be12a2c3b9bf7188f20150927163508/b08ae3

merhaba
indirme linki ektedir
A16:A68 ve B16:B68 e arama motoru koymak istiyorum
birde miktarla fiyatın çarpımları ve onların toplamlarını
verileri girdiğimde otomatik atmasını istiyorum düşeyara daki gibi
Yok hatasının EgerHata gibi giderilmeside olursa çokmakbule geçer
teşekkürler şimdiden

 

[fatiherol06]

Örnek dosyanızı link verin veya forumda find komutunu arayın.

,

merhaba

Find fonksiyonuna baktım fakat bulamadım bişiler linkteki örneğime göre bana yardımcı olabilirmisiniz