tablodan formül ile veri çekme yardım

[cuneytturkoglu]

Arkadaşlar merhaba ,

bir tablodan özet tablo oluşturmak isterken takıldım kaldım , bu konuda yardımlarınıza ihtiyacım vardır. tablo ektedir , asıl tablo ve istenen şeklinde oluşmaktadır.

Şimdiden ilginiz için teşekkür ederim.

 

[Murat OSMA]

Asıl tablo ile istenen sayfa arasında bir tutarsızlık mı var ? :dusun:
Siz de tekrar kontrol eder misiniz ?

 

[cuneytturkoglu]

Murat Bey ,

İstediğim şey mağaza mağaza hangi üründen kaçtane sattığını çekmek asıl olan tablodan.

tşk

 

[Murat OSMA]

Eğer dediğim gibi bir tutarsızlık var ise; yanlış bir çalışma yapmamak adına, sizden doğru bilgileri içeren yeni bir dosya beklemem daha doğru olacaktır.

 

[cuneytturkoglu]

Eğer dediğim gibi bir tutarsızlık var ise; yanlış bir çalışma yapmamak adına, sizden doğru bilgileri içeren yeni bir dosya beklemem daha doğru olacaktır.

tablo ekte Murat bey..

 

[Murat OSMA]

Bu kodları kullanabilirsiniz;

[FONT="Trebuchet MS"]Sub Emre()
    Dim a As Worksheet, i As Worksheet, s%, r%, x%
    Application.ScreenUpdating = False
    Set a = Worksheets("asıl tablo")
    Set i = Worksheets("istenen"): x = 2
    For s = 3 To a.Range("A65536").End(3).Row
        For r = 2 To a.Cells(1, Columns.Count).End(1).Column Step 3
            If a.Cells(s, r) > 0 Then
                i.Cells(x, 1) = a.Cells(1, r)
                i.Cells(x, 2) = a.Cells(s, 1)
                i.Cells(x, 3) = a.Cells(s, r)
                 x = x + 1
            End If
        Next r
    Next s
    i.Range("A2:C" & i.Range("C65536").End(3).Row).Sort i.Range("A2")
    Application.ScreenUpdating = True
    x = Empty: t = Empty: s = Empty: Set i = Nothing: Set a = Nothing
End Sub[/FONT]

 

[ZorBey_]

Merhaba İyi Geceler Sayın cuneytturkoglu
Sayın Murat OSMA Makro ile çözüm vermiş
Formülle Altarnetif olsun.

 

[cuneytturkoglu]

Murat Bey ;

Gerçekten çok teşekkür ederim , bir sorum daha olacak lütfen kusuruma bakmayın baştan sormam gerekliydi ama ''Stok'' çekmek istesem kod üzerinde nasıl bir değişiklik yapacağım acaba ?

Excel'e yeni başlıyorum verdiğiniz kod çok işime yaradı yardımlarınız için tekrardan çok teşekkür ederim. hayırlı geceler.

 

[Murat OSMA]

Estağfurullah.

For r = 2
Buradaki 2 rakamını 3 yapmanız yeterli olur.

 

[cuneytturkoglu]

Estağfurullah.

For r = 2
Buradaki 2 rakamını 3 yapmanız yeterli olur.

İlginiz için teşekkürler. Sorunum sayenizde çözülmüştür.

 

[Murat OSMA]

İlginiz için teşekkürler. Sorunum sayenizde çözülmüştür.

Rica ederim, size de hayırlı geceler.