Sütun toplama

[omeryılmaz]

Arkadaşlar 25 sağlık Ocağına ait veriler ay ay işlenerek aşağıdaki kodlarla verilerini grafiklere aktarmam gerekli. Tek sütun olarak aktarıyor ancak yanyana 2 sütunu veya 3 sütunu toplayarak 12 aylık olarak nasıl aktara bilirim.
Private Sub Şubat_Click()
Sheets("Veri").Range("PA1W1000").ClearContents
Sheets("Veri").Range("PA1") = 2
Sheets("Veri").Range("PA5A1000") = Sheets("Veri").Range("H5:H1000").Value + Sheets("Veri").Range("I5:I1000").Value
Sheets("Veri").Range("PA5A1000") = Sheets("Veri").Range("H5:H1000").Value + Sheets("Veri").Range("W5:W1000").Value
Sheets("Veri").Range("PA5A1000") = Sheets("Veri").Range("H5:H1000").Value + Sheets("Veri").Range("AK5:AK1000").Value
Sheets("Veri").Range("PA5A1000") = Sheets("Veri").Range("H5:H1000").Value + Sheets("Veri").Range("I5:I1000").Value
'............
End Sub
Private Sub Mart_Click()
Sheets("Veri").Range("PA1W1000").ClearContents
Sheets("Veri").Range("PA1") = 3
Sheets("Veri").Range("PA5A1000") = Sheets("Veri").Range("H5:H1000").Value + Sheets("Veri").Range("I5:I1000") + Sheets("Veri").Range("J5:J1000").Value
Sheets("Veri").Range("PA5A1000") = Sheets("Veri").Range("H5:H1000").Value + Sheets("Veri").Range("W5:W1000") + Sheets("Veri").Range("X5:X1000").Value
Sheets("Veri").Range("PA5A1000") = Sheets("Veri").Range("H5:H1000").Value + Sheets("Veri").Range("AK5:AK1000") + Sheets("Veri").Range("AL5:AL1000").Value
Sheets("Veri").Range("PA5A1000") = Sheets("Veri").Range("H5:H1000").Value + Sheets("Veri").Range("I5:I1000") + Sheets("Veri").Range("AZ5:AZ1000").Value
'............
End Sub
Örnekte olduğu gibi Aylık sütunları nasıl toplayarak ("PA5A1000") sütununa yazırabilirim.

 

[Kemal Demir]

Ömer bey,

Sıkıntı yaratmayacak ise örnek dosya ekleyebilirmisiniz.

 

[omeryılmaz]

Sütun Toplama

Örnek dosya 5 sağlık ocağı için özet tasarladım. Asıl çalışma dosyasının küçük örneğidir.Sütunlar değişmemektedir ancak satırlardaki veriler devamlı değiştiği için (SATIR EKLEME YAPILDIĞI İÇİN) Formül yöntemi Devamlı bozulmaktadır. Makro ile aynı sayfadaki verileri toplatarak diğer grafik ve bildirimlerde kullanmak, daha anlamlı olmaktadır. Programı Ofis 2007 programında çalışmaktayım. Vereceğiniz cevap bir çok Sağlık Kuruluşuna hizmet verecektir... Çalışma arkadaşlarıma yardımcı olmak amacıyla sizleri sık sık rahatsız ediyorum. İlginiz için şükranlarımı sunuyorum. Saygılar...

 

[omeryılmaz]

Arkadaşlar Örneklerde anlatmak istediğim

1 No'lu Şubat Ayı için

CA5 = (H5:H1000)+ (I5: I1000)
CA5 = 3
CA6= 4 olmalı

2 No'lu
CB5=(V5:V1000)+(W5:W1000)
CB5= 9
CB6=14
Makro ile ve diğer aylar…

 

[omeryılmaz]

Azmin elinden birşey kurtulmaz.
Private Sub Şubat_Click()
Dim i As Integer
For i = 5 To 1000
Cells(i, 79).FormulaR1C1 = WorksheetFunction.Sum(Val(Cells(i, 8).Value) + Val(Cells(i, 9).Value))
Cells(i, 80).FormulaR1C1 = WorksheetFunction.Sum(Val(Cells(i, 22).Value) + Val(Cells(i, 23).Value))
Cells(i, 81).FormulaR1C1 = WorksheetFunction.Sum(Val(Cells(i, 36).Value) + Val(Cells(i, 37).Value))
Cells(i, 82).FormulaR1C1 = WorksheetFunction.Sum(Val(Cells(i, 50).Value) + Val(Cells(i, 51).Value))
Cells(i, 83).FormulaR1C1 = WorksheetFunction.Sum(Val(Cells(i, 64).Value) + Val(Cells(i, 65).Value))
Next i
End Sub

 

[omeryılmaz]

For i = 5 To 500
Cells(i, 417).FormulaR1C1 = WorksheetFunction.Sum(Val(Cells(i, 8).Value) + Val(Cells(i, 9).Value) + Val(Cells(i, 10).Value))
Cells(i, 418).FormulaR1C1 = WorksheetFunction.Sum(Val(Cells(i, 22).Value) + Val(Cells(i, 23).Value) + Val(Cells(i, 24).Value))
Cells(i, 419).FormulaR1C1 = WorksheetFunction.Sum(Val(Cells(i, 36).Value) + Val(Cells(i, 37).Value) + Val(Cells(i, 38).Value))
Cells(i, 420).FormulaR1C1 = WorksheetFunction.Sum(Val(Cells(i, 50).Value) + Val(Cells(i, 51).Value) + Val(Cells(i, 52).Value))
Cells(i, 421).FormulaR1C1 = WorksheetFunction.Sum(Val(Cells(i, 64).Value) + Val(Cells(i, 65).Value) + Val(Cells(i, 66).Value))

Yukarıdaki formül işimi görmekte ancak hesap sütunu aylık olarak fazlalaştıkça işlem zamanı uzun sürmektedir. Hızlı işlem yapabilmek için ne yapılabilir....