gruplandır seviyelendir Ekteki dosya gibi

[a_self_lion]

Selam arkadaşlar;

Burda anlatmam mümkünolmadığından ekte dosyada yaptım manuel ve açıklamasını da o şekilde yaptım Lütfen bir bakıp yardımlarınızı ve engin bilgilerinizi esirgemezseniz çok sevinirim. Teşekkürler.

 

[a_self_lion]

İnş. yapabilirim. bunu çünkü bunu yaparsak el birliği ile daha buna benzer bir çok raporum var ki bu da sanırım akdeniz bölgesi ve ege bölgesinde bir çok arkadaşın işlerini hızlandıracaktır inş.

 

[Korhan Ayhan]

Selamlar,

Makro ile gruplandırma yapılabilir. Verilerinizin ham halini örnek olarak eklerseniz daha faydalı olacaktır.

 

[a_self_lion]

Sayın Korhan verilerimin ham hali envanter taplosunu gönderebilrim bir ayın
onu mu demek istediniz.

 

[Korhan Ayhan]

Selamlar,

Ekte gönderdiğiniz envanter formatı ile ilk gönderdiğiniz dosyadaki formatı oluşturmak için departman adı , stok grubu gibi bilgilerde gerekmektedir. Bunlarıda gösteren bir tablonuz olmalı yada ilk dosyanızın tam listesi varsa onuda ekleyebilirsiniz.

 

[a_self_lion]

Selamlar,

Ekte gönderdiğiniz envanter formatı ile ilk gönderdiğiniz dosyadaki formatı oluşturmak için departman adı , stok grubu gibi bilgilerde gerekmektedir. Bunlarıda gösteren bir tablonuz olmalı yada ilk dosyanızın tam listesi varsa onuda ekleyebilirsiniz.

Korhan Bey Envanter dosyasının sql den alınmış ham halini gönderiyorum.

İlgilenebilirseniz sevinirim. Teşekkürler.

 

[zeynep.yurtcu]

teşekkürler

 

[Tarkan VURAL]

Ham haldeki dosya ile gruplandırılmış dosya arasındaki ilk 4 alanda fark var. Ortak yönler nasıl alınacak anlamaya çalışıyorum ama pek anlayamadım. SQL Veritabanından alınmış listelemede STKMLZ_KOD STKMLZ_ADI1 STKENV_CPFACD CPFACD_ACK1
gibi alan adları var. Bunları nasıl filtre ettirmeliyiz ? İzah edebilir misiniz ?

 

[beyrek1972]

Rapor

SQL den nasıl çekilir ona kod yazmayı bilmemde derdini iyi anlatmak adına burdaki yaptğım tablo belki yardımcı olur diye düşündüm.

 

[a_self_lion]

11 YİYECEK STOKLARI
1 ANA DEPO
1101 ET STOKLARI
1102 AV KÜMES HAYVANLARI
4 MUTFAK DEPOSU
1101 ET STOKLARI
1102 AV VE KÜMES
12 İÇECEK STOKLARI
1 ANA DEPO
1201 ALKOLSÜZ
1202 ALKOLLÜ
4 MUTFAK
1201 ALKOLSÜZ
1202 ALKOLLÜ

Gibi olucak ektede göndermiştim.
Ama size göre bu reapor bu tablodan çıkmaz ama şunları şunları şu şekilde getirirseniz daha kolay alınabilir derseniz biz de o şekilde sql den çekebiliriz
bizim stok kodlarımız 11 birinci kırılım 1101 ikinci kırılım 110101 üçüncü kırılım olmak üzere üç tanedir ondan sonra malmeye ait kod gelir 110101001 dana eti gibi bu demek dir ki 11 yiyecek stoklarından 1101 et grubundan 110101 Dana etleri bölümüne ait olan dana kargası ifade etmektedir.
Burda yapmak istediğimiz esasen

Otelde yiyecek stoklarını içecek stoklarını Temizlik vb.. stoklarını
+ 11 yiyecek
+ 12 içecek
+ 13 temizlik
....
şeklinde göremek ve + ya basınca hangi depoda bunlar kullanılmış
+ 1 ana depo
+ 2 mutfak
+ 3 xxx
+ 4 yyy
depolarında kullanılmış

depolarada basınca 1101 ikinci kırılımlar
1101 et gurubu
1102 av kümes
1103 deniz ürünleri
şeklinde bir sıralama ile rapor oluşturabilmek

burda istersek
+ 1101 et dana
+ 1102 kümes hayvanları
+ 1103 deniz ürünleri diye listeyi aşağı doğru çekebiliriz ama bize üsttekine kadar olsa yeter. işte bu raporu bu şekilde oluşturabilmem için bana gerekli olucak tabloyu şu şekilde olur derseniz biz o şekilde çıkartabiliriz. Teşekkürler.

 

[Tarkan VURAL]

Sn beyrek1972;
Şu kodlamayı o dosyanızda çalıştırıp sonucu inceleyiniz.

DefObj O
Dim sorgu As String
Dim i As Integer
Sub toplamal()
Rem 18-07-2009
Rem Tarkan VURAL
Set objcon = CreateObject("adodb.connection")
objcon.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.FullName & _
";extended properties=""excel 8.0;hdr=yes"""
sorgu = "select STKMLZ_ADI1,sum(DEVIR) as DEVIR, sum(GIRIS) as GİRİŞ,sum(CIKIS)as ÇIKIŞ,sum(HASAR)as HASAR,sum(SARFIYAT)as SARFİYAT from [Sayfa1$a4:I" & Sheets("sayfa1").Range("I65536").End(3).Row & "] group by STKMLZ_ADI1 order by STKMLZ_ADI1 asc"
Set objrs = objcon.Execute(sorgu)
With objrs
For i = 0 To .fields.Count - 1
    Sheets("sayfa2").Cells(1, i + 1).Value = .fields(i).Name
Next i
Sheets("sayfa2").Range("a2").CopyFromRecordset objrs
End With
objcon.Close
Set objrs = Nothing
Set objcon = Nothing
sorgu = vbNullString
i = Empty
End Sub