Diğer sayfalarda koşullu arama

[sakiogluo]

Tablomda ürünün üretim bölümlerinden hangisinde beklediğine dair formül kurmaya çalıştım ama işin içinden çıkamadım. yardımcı olan olursa sevinirim.Ã?rnekte açıklama mevcut

 

[veyselemre]

[vb:1:8d18317671]Sub aktarsu()
Dim MyColl As New Collection

SAYFA = "KESİM"
son = Sheets(SAYFA).[b65536].End(3).Row
GoSub diziyeyukle

SAYFA = "BOYA"
GoSub sayfalaraaktar
GoSub diziyeyukle

SAYFA = "YAPIÞTIRMA"
GoSub sayfalaraaktar
GoSub diziyeyukle

SAYFA = "PAKETLEME"
GoSub sayfalaraaktar

Exit Sub

sayfalaraaktar:
son = Sheets(SAYFA).[b65536].End(3).Row
a = 0
For xx = 1 To MyColl.Count / 5
For yy = 2 To 6
a = a + 1
Sheets(SAYFA).Cells(xx + son, yy) = MyColl(a)
Next yy
Next xx
Return

diziyeyukle:
For x = 6 To son
For y = 2 To 6
MyColl.Add Sheets(SAYFA).Cells(x, y)
Next y
Next x
Return

End Sub[/vb:1:8d18317671]

 

[sakiogluo]

Diğer sayfalarda koşullu arama açıklama

Sayın veyselemre, emekleriniz için çok teşekkür ederim ama iyi anlatamadığımdan farklı bir çalışma yapmışsınız. Açıklamayı yayarak yeni bir ek gönderiyorum

 

[sakiogluo]

Anlatmak istediğim formül basitçe şu; = ara Sayfa1A1:10"2210" varsa C1:C10 da satırdaki karşılığı olan değer,Yoksa, ara Sayfa2A1:10"2210" varsa C1:C10 da satırdaki karşılığı olan değer,Yoksa, ara Sayfa3A1:10"2210" varsa C1:C10 da satırdaki karşılığı olan değer....
Kısaca ara sayfa1 de, yoksa sayfa2 de, yoksa sayfa3 de
Sayfa sayısı 10 geçebilir.

 

[manevra]

4 sayfalik versiyonu ekte. umarim dogru yapmisimdir. sayfa sayisini artirmak da sana kalmis. biraz zahmetli bi is oluyor sayfalar arttıkca.

kolay gelsin....

 

[sakiogluo]

EÐER(EHATALIYSA(DÜÞEYARA formülünde limit sıkıntısı

Sayın manevra, formülünü biraz değiştirip kullandım ancak
EÐER(EHATALIYSA(DÜÞEYARA formülünde limit sıkıntısı çekiyorum
alternatif bir formül veya makro yazabilecek bir arkadaş varsa yardımlarını bekliyorum..

 

[Levent Menteşoğlu]

Sorunuz için bir kullanıcı tanımlı fonksiyon hazırladım bunu deneyin. Fonksiyonun doğru çalışması için sayfalar proses sırasına göre sıralı olmalıdır.

[vb:1:3c3902de51]Function durumbul(isemrino)
indeks = ActiveSheet.Index
For a = 1 To indeks - 1
Set s1 = Sheets(a)
say = WorksheetFunction.CountIf(s1.[b6:b65536], isemrino)
If say > 0 Then
sat = WorksheetFunction.Match(isemrino, s1.[b6:b65536], 0) + 5
durumbul = s1.Name
Exit Function
End If
If say = 0 Then durumbul = ActiveSheet.Name
Next
End Function
[/vb:1:3c3902de51]

 

[manevra]

asagidaki linkten eger kullanmada limit sıkıntısını giderme yollarini bulabilirsiniz zannedersem!

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

 

[sakiogluo]

Sayın Leventm, Eklenti gayet güzel çalışıyor ilaç gibi geldi. yalnız bölümlerde değişiklikler olduğunda "durumbul" formülü hücrenin içi seçilmeden güncellenmiyor buna bir çözüm bulabilirmisin.