BİRDEN FAZLA ÇALIŞMA SAYFASINDAN DÜŞEYARA

[eerdem]

BÝRDEN FAZLA ÇALIÞMA SAYFASINDAN DÜÞEYARA

Sayfa 7 ye , Sayfa 1,2,3,4,5,6 daki verilerin düşeyara ile getirmek istiyorum.Aradığım numara sayfa 1 de yoksa gitsin sayfa 2 den arasın,orda yoksa sayfa 3 den arasın vs. devam etsin.Bu formülü çözümlemekte yardımcı olurmusunuz.

 

[mehmett]

Ã?rnek dosya ekleyebilir misiniz?

 

[yayalar]

Re: BÝRDEN FAZLA ÇALIÞMA SAYFASINDAN DÜÞEYARA

AÞAGIDAKİ LİNKLI INCELEYINIZ

http://www.excel.web.tr/viewtopic.php?t=8896

SORULARINIZI SORMADAN ONCE MUTLAKA SİTE İÇİ ARAMA YAPINIZ..boylece sorularınıza daha cabuk cevap alabılırsınız

 

[Merhum İdris SERDAR]

Sayın eerdem,
Bunun için hazırlanan fonksiyonun vb kodlarını aşağıda veriyorum. Ayrıca, ekteki dosyayı inceleyin.

Function DUSEYARASAYFALAR(Look_Value As Variant, Tble_Array As Range, _
Col_num As Integer, Optional Range_look As Boolean)
Dim wSheet As Worksheet
Dim vFound

On Error Resume Next

For Each wSheet In ActiveWorkbook.Worksheets
With wSheet
Set Tble_Array = .Range(Tble_Array.Address)
vFound = WorksheetFunction.VLookup _
(Look_Value, Tble_Array, _
Col_num, Range_look)
End With
If Not IsEmpty(vFound) Then Exit For
Next wSheet

Set Tble_Array = Nothing
DUSEYARASAYFALAR = vFound

End Function

 

[Merhum İdris SERDAR]

Sayın eerdem,
Dosyanız üzerinde uyguladım. Dosyanız ekte.

 

[eerdem]

Dosyanın altına bir numara yazıp test ettiğimde bozuluyor

 

[Merhum İdris SERDAR]

Nasıl bozuluyor?
1.Numarayı yanlış giriyorsunuz.
2. Formülü aşağıa doğru kopyalamanız gerekir.

=DUSEYARASAYFALAR(A3;$A$2:$C$100;3;FALSE)
Bu formülü aşağıya doğry kopyalayınız.

 

[eerdem]

örnek dosyayı inceleybildinizmi?

 

[eerdem]

06.54059-0007 #AD?

şekil bu ne yapabilirim?

 

[Ali]

Sn eerdem, Sn yurttas, ın verdiği örnek çok güzel ve sorunsuz çalışıyor. Deneme sayfasındaki B3 Hücresine

=DUSEYARASAYFALAR(A3;$A$2:$C$100;3;0) yazıp aşağıda doğru çoğaltınızda verileriniz düzgün bir şekilde getiriyor.

 

[Merhum İdris SERDAR]

06.54059-0007

verdiğiniz bu kodu dosyanızda yazdım.

Sonuç pozitif. Siz Kodu girerken yanlış griyorsunuz herhalde.

Dosyanız ekte.

 

[haticee]

BANA BİRİSİ MAKRO KULLANIMIYLA İLGİLİ YARDIMCI OLSUN LÜTFEENN
SİZİN YAZDIÐINIZ BAZI MAKROLARI KAYDEDİP KULLANMAK İSTİYORUM AMA
YAPAMIYORUM.
ARAÇLAR MENÜSÜNDEN MAKROYU AÇIYORUM AMA OLMUYOR

 

[haticee]

YURTTAÞ BEY SİZ BU KONUDA OLDUKÇA İYİSİNİZ BANADA Ã?ÐRETİN OLMAZ MI

 

[Merhum İdris SERDAR]

Bu Forumun "Excel Dersanesi'nde yer alan aşağıdaki linklerden başlayabilirsiniz.

http://www.excel.web.tr/viewtopic.php?t=4597
http://www.excel.web.tr/viewtopic.php?t=4153
http://www.excel.web.tr/viewtopic.php?t=4673
http://www.excel.web.tr/viewtopic.php?t=4673
http://www.excel.web.tr/viewtopic.php?t=5868
http://www.excel.web.tr/viewtopic.php?t=11000
http://www.excel.web.tr/viewtopic.php?t=4012
http://www.excel.web.tr/viewtopic.php?t=1900
http://www.excel.web.tr/viewtopic.php?t=1910
http://www.excel.web.tr/viewtopic.php?t=1902
http://www.excel.web.tr/viewtopic.php?t=1901

 

[eedtr1]

ellerinizi ve aklınıza sağlık sn.yurttas

 

[omyuga]

bu konu ile ilgili birşey sormak istiyorum.
bu macro yu kullandığımda tüm sayfalarda arama yapıyor. peki ben sayfa3'te aramasın diyebilirmiyim. yada sadece sayfa 1de sayfa2 de sayfa 4 te ara diyebilirmiyim????

 

[omyuga]

diyemiyorum sanırım :roll:

 

[Levent Menteşoğlu]

bu macro yu kullandığımda tüm sayfalarda arama yapıyor. peki ben sayfa3'te aramasın diyebilirmiyim. yada sadece sayfa 1de sayfa2 de sayfa 4 te ara diyebilirmiyim????

Elbette diyebilirsiniz, bunun için kod içinde bir if komutu ile şart oluşturursunuz, örneğin.

[vb:1:1e2a0dc881]for a=1 to sheets.count
if sheets(a)name<>"Sayfa3" then
.
.Kodlarınız
.
end if
next[/vb:1:1e2a0dc881]

 

[Ridan]

Sayın leventm, verdiğiniz kodları fonksiyona uyarlayamadım. Sadece belirtilen sayfalarda arama yapsın. Diğer sayfalarda yapmasın.