Logodan Hesap Bakiyelerini Çekme

hbgny

Altın Üye
Katılım
28 Eylül 2005
Mesajlar
177
Excel Vers. ve Dili
Microsoft Excel Office 2013 Türkçe
Tamam, hatırlatacağım inşallah.
 

hbgny

Altın Üye
Katılım
28 Eylül 2005
Mesajlar
177
Excel Vers. ve Dili
Microsoft Excel Office 2013 Türkçe
Merhaba,

Çok teşekkür ederim. Tam istediğim gibi olmuş. Ellerine sağlık. Acaba işyerinin altına, bölüm numarası da eklemen mümkün olabilir mi?
 

koboy

Altın Üye
Katılım
1 Ağustos 2006
Mesajlar
179
Bölüm numarası dediğin kısmı anlayamadım resim eklersen bölüm ile ilgili kısmı halletmeye çalışırım
 

hbgny

Altın Üye
Katılım
28 Eylül 2005
Mesajlar
177
Excel Vers. ve Dili
Microsoft Excel Office 2013 Türkçe
Resmi ekledim. Bir de çok fazla uğraştırmayacaksa bölümün altına, seviye de ekleyebilir misin? (Hesap planı seviyesi)
 

Ekli dosyalar

koboy

Altın Üye
Katılım
1 Ağustos 2006
Mesajlar
179
Tamam gördüm akşama yapar gönderirim. Biz bölüm kısmını ambar diye kullandığımız için ilk anlayamadım şimdi oldu. seviye kısmınıda anlamdım var mı resim filan akşam hepsini hallederim
 

hbgny

Altın Üye
Katılım
28 Eylül 2005
Mesajlar
177
Excel Vers. ve Dili
Microsoft Excel Office 2013 Türkçe
İlgine çok teşekkür ederim. Seviye ile ilgili resmi de ekledim.
Not: Bölümden hariç, ambar diye kısımda var programda. Karıştırmadın değil mi?
 

Ekli dosyalar

koboy

Altın Üye
Katılım
1 Ağustos 2006
Mesajlar
179
Seviye kısmına bakmam gerekli hiç öyle birşey yapmadım seviye ile ilgili ben bölüm kısmını alacam ambarla isim Yok
 

hbgny

Altın Üye
Katılım
28 Eylül 2005
Mesajlar
177
Excel Vers. ve Dili
Microsoft Excel Office 2013 Türkçe
Ya da şöyle örnekle izah edeyim.
0. seviye =120
1. seviye =120.01
2. seviye =120.01.01
3. seviye =120.01.01.01
4. seviye =120.01.01.01.A01 gibi.
Yani her noktadan sonra 1 seviye ekleniyor. Fazla yormayacaksa yap, çok uğraştıracaksa eğer, yaptığında çok makbule geçti zaten. Çok teşekkür ederim
 

koboy

Altın Üye
Katılım
1 Ağustos 2006
Mesajlar
179
Merhabalar bende tam yazacaktım seviye kısmı için de kod girmen gerekli örnek 100 yazdın 0-99 arasından 100 bağlı alt kayıtları getirme işlemi
yapıyor ançak sen hesap koduna bağlı çekme yapmayacağına göre gerek yok
bölüm ekledim sarı bölüm yaptım isyeri ve bölüm numaralarını yaz liste olarak gelecek
 

Ekli dosyalar

hbgny

Altın Üye
Katılım
28 Eylül 2005
Mesajlar
177
Excel Vers. ve Dili
Microsoft Excel Office 2013 Türkçe
Çok teşekkür ederim. Çok güzel olmuş. Hiç işyeri ve bölüm numarasını boş bırakırsam, hepsini birden getirebilir misin? Birde hesap koduna göre sıralı olarak. Kolay ise yap. Eğer vaktini alırsa böyle de işimi görüyor. Daha fazla sizi yormak istemem.
 

koboy

Altın Üye
Katılım
1 Ağustos 2006
Mesajlar
179
Merhaba hesap bölümünü boş bırakırsan getirmez onun için ayrı kod yazılması lazım istersen onu makro bölümüyle görüş where kısmını boş ise where aktif olmasın doluysa where gelsin gibisinden hesap adına tıkla filtre koy sırala istediğin gibi
 

hbgny

Altın Üye
Katılım
28 Eylül 2005
Mesajlar
177
Excel Vers. ve Dili
Microsoft Excel Office 2013 Türkçe
Böylede çok işime yaradı. Teşekkür ederim.
 

hbgny

Altın Üye
Katılım
28 Eylül 2005
Mesajlar
177
Excel Vers. ve Dili
Microsoft Excel Office 2013 Türkçe
Size de kolay gelsin.
 
Katılım
4 Ocak 2010
Mesajlar
2,074
Excel Vers. ve Dili
OFFICE 2007 PRO TR - Win7 X64
Selamlar,

Alternatif olarak aşağıdaki şekilde alabilirsiniz.

SQL:
WITH PIVOT_ AS (
SELECT  SUBSTRING(EMFLINE.ACCOUNTCODE,1,3) AS [HESAP KODU],
MONTH(EMFLINE.DATE_) AYNO,CAST(SUM(EMFLINE.DEBIT-EMFLINE.CREDIT) AS decimal(38,2)) BAKIYE
FROM LG_006_01_EMFICHE EMFICHE(NOLOCK)
LEFT OUTER JOIN LG_006_01_EMFLINE EMFLINE (NOLOCK) ON EMFLINE.ACCFICHEREF = EMFICHE.LOGICALREF
LEFT OUTER JOIN LG_006_EMUHACC EMUHACC (NOLOCK) ON EMFLINE.ACCOUNTREF = EMUHACC.LOGICALREF  
LEFT OUTER JOIN GODATA..L_CAPIDIV ISYERI (NOLOCK) ON ISYERI.NR=EMFICHE.BRANCH AND ISYERI.FIRMNR='6'
LEFT OUTER JOIN GODATA..L_CAPIDEPT BOLUM (NOLOCK) ON BOLUM.NR=EMFICHE.DEPARTMENT AND BOLUM.FIRMNR='6'
WHERE (EMFLINE.CANCELLED=0) AND(ISNULL(ISYERI.NAME,'') LIKE'%%') and (ISNULL(BOLUM.NAME,'') LIKE'%%')
GROUP BY  SUBSTRING(EMFLINE.ACCOUNTCODE,1,3),MONTH(EMFLINE.DATE_)
),
PIVOT_1 AS(
SELECT * FROM PIVOT_ AS Y
PIVOT(SUM(BAKIYE)FOR AYNO IN ([1],[2],[3],[4],[5],[6],[7],[8],[9],[10],[11],[12]))
AS Pvt)
SELECT [HESAP KODU],(SELECT TOP 1 T.DEFINITION_ FROM LG_006_EMUHACC T WHERE SUBSTRING(T.CODE,1,3)=P2.[HESAP KODU]
ORDER BY SUBSTRING(T.CODE,1,3) ASC)[Hesap Adı],ISNULL([1],0)OCAK,ISNULL([2],0)ŞUBAT,ISNULL([3],0)MART,ISNULL([4],0)NİSAN,
ISNULL([5],0)MAYIS,ISNULL([6],0)HAZİRAN,ISNULL([7],0)TEMMUZ,ISNULL([8],0)AĞUSTOS,ISNULL([9],0)EYLÜL,ISNULL([10],0)EKİM,ISNULL([11],0)KASIM,ISNULL([12],0)ARALIK,
(SELECT SUM(P.BAKIYE) FROM PIVOT_ P WHERE P.[HESAP KODU]=P2.[HESAP KODU] ) [Genel Toplam] FROM PIVOT_1 P2
UNION ALL
SELECT 'Genel Toplam','',SUM(ISNULL([1],0)),sum(ISNULL([2],0)),sum(ISNULL([3],0)),sum(ISNULL([4],0)),sum(ISNULL([5],0)),sum(ISNULL([6],0)),sum(ISNULL([7],0)),sum(ISNULL([8],0)),sum(ISNULL([9],0)),sum(ISNULL([10],0)),
sum(ISNULL([11],0)),sum(ISNULL([12],0)),ISNULL((SELECT SUM(P.BAKIYE) FROM PIVOT_ P),0) [Genel Toplam] FROM PIVOT_1 P2
 
Son düzenleme:

hbgny

Altın Üye
Katılım
28 Eylül 2005
Mesajlar
177
Excel Vers. ve Dili
Microsoft Excel Office 2013 Türkçe
Selam,

İlginize teşekkür ederim. Gönderdiğiniz kodu sql üzerinde kendi firmama göre uyarlayınca çalıştı. Ama bunu exceldeki dosyama nasıl uyarlayacağımı bilemedim. :(
 
Katılım
4 Ocak 2010
Mesajlar
2,074
Excel Vers. ve Dili
OFFICE 2007 PRO TR - Win7 X64
Selamlar,

Yukarıda örnek dosya var VBA kısmıda açık benim verdiğim kodu aynı mantıkta ekleye bilirsiniz.
 

hbgny

Altın Üye
Katılım
28 Eylül 2005
Mesajlar
177
Excel Vers. ve Dili
Microsoft Excel Office 2013 Türkçe
Sizin örneğiniz, kendimi geliştirebilmem için bir ödev olsun. Boş kaldıkça yapmaya çalışacağım. İnşallah başarabilirim.
 

koboy

Altın Üye
Katılım
1 Ağustos 2006
Mesajlar
179
Merhaba seviye ekleme bölümünü yaptım bölüm iş yeri boş bırakmayı yaptım incelersin kolay gelsin
 

Ekli dosyalar

Üst