Verileri Başka Sayfaya Özetleme

Sadece kod ile değil formüllede olabilir..

Formülle çözüm önerim şöyle:
-- Aşağıdaki birinci formülü MIP sayfası T8 hücresine uygulayıp liste boyunca kopyalayın (yardımcı alan).
-- Aşağıdaki ikinci formülü de ÖZET sayfası B2 hücresine uygulayıp, B5 hücresine kadar kopyalayın.

Hocam harikasınız ya nasıl yaptınııız

İlk formüldeki (kritik olan bu formül zaten) hareket noktası
L40X40X4-S235JR ....... L150X150X14-S355J2 gibi ibarelerde ikinci X ile - işareti arasında kalan sayının tespit edilmesi.
Örneğin bunlardan birincisi için bu değer 4, ikincisi için ise 14.
Bu sonucu da ARA işlevinde ARANAN olarak kullanarak {1;6;13} dizisinden hangisine denk geliyorsa,
{1;2;3} dizisinde buna karşılık gelen elemanın hangisi olduğu bulunuyor.
Örneğe göre;
-- birincisi için ARANAN 4, ARAMA DİZİSİnin 1'inci elemanına denk geliyor, sonuç dizisinin 1'inci elemanı da 1 (sonuç)
-- ikincisi için ARANAN 14, ARAMA DİZİSİnin 3'üncü elemanına denk geliyor, sonuç dizisinin 3'üncü elemanı da 3 (sonuç)
Son olarak da bu SONUÇ değerlere göre ETOPLA işlemi yapılıyor ve kriter olarak SATIR()-1 kullanılıyor.

Umarım açıklayıcı olmuştur.

Uyarı: Dikkat ederseniz ikinci X'ten sonraki kısımdan hareket edildi yani, L40X40X veya L150X150X kısmıyla ilgilenilmedi.

Çok mantıklı hocam evet anladım cok sağ olun..

Hocam spill uyarını aldım asagıdaki ekte, yanlıs mı cevirdim acaba

Hocam diğer dosyadakileri ekledim bı bakabilir misiniz

@selis
Son örnek belgeye bakmadım.

İlk belgede tüm verilerde L100X100X10-S355J2 gibi arada TİRE işareti ve sonrasında harf/sayı da var idi.
Son belgenizde ise sadece tire öncesi kısım var.
Bu nedenle formülü şöyle değiştirin.

Ekli dosyayı görüntüle ÖRNEK.xlsm

Hocam böyle bir uyarı geldi

Ben bir sorun göremedim.
İşlemi belgeye uyguladım, sonuçları kontrol edersiniz.

Hocam oldu cok teşekkür ediyorum yalnızca şunu sormak istiyorum, kod ile bunu yapmak mümkün mü nasıl yapabiliriiz?

Şöyle olabilir.
Kod 8 - 68'inci satır aralığındaki verileri kontrol eder ve ÖZET sayfasında sonuçları gösterir.
Formül cevabı verirken belirttiğim kriterler burada da geçerli.
L ile başlamayanlar 4, L ile başlayanlar, ikinci X'in sağındaki sayıya göre değerlendirilir.

Hocam 68 değilde grand totale kadar alsa olur mu çünkü 68 100 bazen 200 olabiliyor, grand totale kadar alsa daha iyi olur.

Koddaki 68 yerine WorksheetFunction.Match("Grand Total", m.[A:A], 0) - 1 yazılması yeterli olur.
Önceki koddaki cevabımı buna göre güncelledim.

Hocam böyle bır hata verdı

Oldu hocam elinize saglık cok teşekkürler..