- Katılım
- 23 Eylül 2004
- Mesajlar
- 91
Selamlar,
Aşağıdaki kod ile mizan adlı dosyadan belirlenen hesapları belirlenen tarih aralığında aşağıdaki başlıklar halinde toparlayarak Genel Gider Tablosu oluşturma istiyorum. Yani hesap numarası 720 01 01, 730 01 01 olanların Ocak - Temmuz aralığındaki değerlerini toplayarak gen_gid sayfasının 11,30 nolu hücresine yzdırmak istedim. Diğerlerinide sırasıyla 12,30 - 13,30 ...şeklinde gen_gid sayfasına yazdırmak istiyorum. Fakat al(x, 1) vektörüne değer ataması yapamadığımdan kendisi ile toplatma işleminide yapamadım. Bu işlemi yaptıktan sonra Maaş+ ikramiye ve diğer başlıklarıda aynı şekilde toplayıp gen_gid sayfasındaki ilgili hücresine getirmek için kodda nasıl bir değişiklik yada ekleme yapacağım konusunda yardımcı olabilirseniz seninirim.
Maaş-İkr.Primler
SSK+İşsizlik İşveren
Tazminatlar
Sosyal Yardımlar Vg
Sub gen_gid()
Set s1 = Workbooks("veri").Sheets("par")
Set S2 = Workbooks("but").Sheets("mizan")
Set S3 = Workbooks("but").Sheets("gen_gid")
bastay = s1.Cells(57, 3).Value
bittay = s1.Cells(57, 4).Value
farkay = s1.Cells(57, 5).Value
s2sonsat = S2.[b65536].End(3).Row
ReDim al(s2sonsat, 1)
For x = 4 To s2sonsat
For z = 1 To farkay
If S2.Cells(x, 1) = "720 01 01" Or S2.Cells(x, 1) = "730 01 01" Or S2.Cells(x, 1) = "730 02 01" Then
al(x, 1) = al(x, 1) + s1.Cells(x, 3 + z + bastay).Value
s1.Cells(11, 30) = al(x, 1)
End If
Next z
Next x
Calculate
End Sub
Aşağıdaki kod ile mizan adlı dosyadan belirlenen hesapları belirlenen tarih aralığında aşağıdaki başlıklar halinde toparlayarak Genel Gider Tablosu oluşturma istiyorum. Yani hesap numarası 720 01 01, 730 01 01 olanların Ocak - Temmuz aralığındaki değerlerini toplayarak gen_gid sayfasının 11,30 nolu hücresine yzdırmak istedim. Diğerlerinide sırasıyla 12,30 - 13,30 ...şeklinde gen_gid sayfasına yazdırmak istiyorum. Fakat al(x, 1) vektörüne değer ataması yapamadığımdan kendisi ile toplatma işleminide yapamadım. Bu işlemi yaptıktan sonra Maaş+ ikramiye ve diğer başlıklarıda aynı şekilde toplayıp gen_gid sayfasındaki ilgili hücresine getirmek için kodda nasıl bir değişiklik yada ekleme yapacağım konusunda yardımcı olabilirseniz seninirim.
Maaş-İkr.Primler
SSK+İşsizlik İşveren
Tazminatlar
Sosyal Yardımlar Vg
Sub gen_gid()
Set s1 = Workbooks("veri").Sheets("par")
Set S2 = Workbooks("but").Sheets("mizan")
Set S3 = Workbooks("but").Sheets("gen_gid")
bastay = s1.Cells(57, 3).Value
bittay = s1.Cells(57, 4).Value
farkay = s1.Cells(57, 5).Value
s2sonsat = S2.[b65536].End(3).Row
ReDim al(s2sonsat, 1)
For x = 4 To s2sonsat
For z = 1 To farkay
If S2.Cells(x, 1) = "720 01 01" Or S2.Cells(x, 1) = "730 01 01" Or S2.Cells(x, 1) = "730 02 01" Then
al(x, 1) = al(x, 1) + s1.Cells(x, 3 + z + bastay).Value
s1.Cells(11, 30) = al(x, 1)
End If
Next z
Next x
Calculate
End Sub