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
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
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
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.
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..
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]
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.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.