Veri alma

[excelience]

Merhaba saygı değer hocalarım abilerim kardeşlerim satışların oluştuğu bir listenin başka bir sayfada aylara ve tüm yıla göre analizini oluşturmayı istediğim bir excel sayfası oluşturmaya çalıştım . Analiz kısmı için yardımlarınıza ihtiyacım var şimdiden emeği geçen herkese teşekkür ederim. Soru gönderdiğim ekte de mevcuttur.

 

[excelience]

Yardım edebilecek bir üstad yok mu acaba? var olduğunu çok iyi biliyorum çünkü

 

[çıtır]

Genel için isteğinizi anlamdım,Sadece seçili şirket kayıtlarının tümü mü yoksa kayıtların tümü mü ? Birde maksimum kayıt sayısı ?300 satır yaptım.Dosyanız ekte.Kolay gelsin.

 

[excelience]

merhaba çıtır hocam satış listesinde ki karma bilgileri sayfa ikide arama seçeneğine göre toplam olarak bulmak istiyorum. ör: a firması ocak uzun dediğimde uzun ürün toplamı,kısa dediğimde kısa toplamı . a firmasını seçip genel dediğim zaman hemen uzun hem kısa toplamları ; firma kısmı için genel diyip ürün için genel dediğim zaman tüm firmalar için ürün toplamları yıl bazında olmalı

 

[çıtır]

Sayın excelience; ilk yaptığım gibi şartları taşıyan kayıtlarım listeliyeçek
Yoksa şartları taşıyan kayıtların SATIŞLİSTESİ SAYFASINDAKİ G Sütunudaki toplamlarımı alınaçak .İlk yaptığım firmaya liste aya türe göre olan listeleme olmuş mu? istediğiniz gibi mi?

 

[excelience]

Sayın excelience; ilk yaptığım gibi şartları taşıyan kayıtlarım listeliyeçek
Yoksa şartları taşıyan kayıtların SATIŞLİSTESİ SAYFASINDAKİ G Sütunudaki toplamlarımı alınaçak .İlk yaptığım firmaya liste aya türe göre olan listeleme olmuş mu? istediğiniz gibi mi?

Merhaba hocam toplamları alması yeterli veya hem listeleyip yan tarafa da toplamlı şekilde yapma imkanınız varsa muhteşem ötesi bir çalışma olur emeğiniz için şimdiden çook teşekkür ederim

 

[çıtır]

Toplam ile ilgili dosyanızın çözümü ektedir.Kolay gelsin.

 

[YUSUF44]

Alternatif olarak Makrolu çözüm isterseniz aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

Sub rapor()
Set s1 = Sheets("SATISLİSTESİ")
Set s2 = Sheets("SATISRAPOR")
eski = WorksheetFunction.Max(s2.Cells(Rows.Count, "B").End(3).Row, 7)
s2.Range("B7:I" & eski).ClearContents
s2.Range("B7:I" & eski).Borders.LineStyle = xlNone
firma = s2.[B4]
dönem = s2.[C4]
tür = s2.[D4]
son = s1.Cells(Rows.Count, "A").End(3).Row
For I = 3 To son
    If dönem = "GENEL" Then
        ay = "GENEL"
    Else
        ay = WorksheetFunction.Index(Sheets("BİLGİLER").Range("C4:C15"), Month(s1.Cells(I, "B")))
    End If
    If firma = "GENEL" Or s1.Cells(I, "C") = firma Then
        If ay = dönem Then
            If tür = "GENEL" Or s1.Cells(I, "D") = tür Then
                yeni = s2.Cells(Rows.Count, "B").End(3).Row + 1
                s2.Cells(yeni, "B") = yeni - 6
                s1.Range("B" & I & ":H" & I).Copy s2.Cells(yeni, "C")
            End If
        End If
    End If
Next
tablo = s2.Cells(Rows.Count, "B").End(3).Row
s2.Range("B7:I" & tablo).Borders.LineStyle = xlContinuous
End Sub

 

[excelience]

Toplam ile ilgili dosyanızın çözümü ektedir.Kolay gelsin.

hocam emeğinize sağlık çok güzel olmuş fakat o türe ait toplamları da altta sıralama şansımız var mı yani türü genel dediğimizde uzun 1000 kısa 500 gibi ve uzunun toplam tutarları yaninda olacak şekide

 

[excelience]

Alternatif olarak Makrolu çözüm isterseniz aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

Sub rapor()
Set s1 = Sheets("SATISLİSTESİ")
Set s2 = Sheets("SATISRAPOR")
eski = WorksheetFunction.Max(s2.Cells(Rows.Count, "B").End(3).Row, 7)
s2.Range("B7:I" & eski).ClearContents
s2.Range("B7:I" & eski).Borders.LineStyle = xlNone
firma = s2.[B4]
dönem = s2.[C4]
tür = s2.[D4]
son = s1.Cells(Rows.Count, "A").End(3).Row
For I = 3 To son
    If dönem = "GENEL" Then
        ay = "GENEL"
    Else
        ay = WorksheetFunction.Index(Sheets("BİLGİLER").Range("C4:C15"), Month(s1.Cells(I, "B")))
    End If
    If firma = "GENEL" Or s1.Cells(I, "C") = firma Then
        If ay = dönem Then
            If tür = "GENEL" Or s1.Cells(I, "D") = tür Then
                yeni = s2.Cells(Rows.Count, "B").End(3).Row + 1
                s2.Cells(yeni, "B") = yeni - 6
                s1.Range("B" & I & ":H" & I).Copy s2.Cells(yeni, "C")
            End If
        End If
    End If
Next
tablo = s2.Cells(Rows.Count, "B").End(3).Row
s2.Range("B7:I" & tablo).Borders.LineStyle = xlContinuous
End Sub

teşekkürler yusuf hocam bu hangi konuya giriyor yardımcı olabilirmisiniz farklı sayflardan veri çekme excelde bu kısmı bir türlü öğrenemedim

 

[excelience]

Çıtır hocam formülünüzü düzenleyerek istediğim diğer çözüme ulaştım.Tekrardan Çok TEŞEKKÜRLER. Yusuf hocam sizinde emekleriniz için çok teşekkürler.Yeni yılınızın sağlık mutluluk ve başarı dolu geçmesini dilerim.

 

[YUSUF44]

“Başka sayfadan kriter(ler)e göre veri getirme” olabilir

Size de mutlu yıllar.