Etopla Ve HÜcre BİrleŞtİrmenİn Makrosu

[mbattal]

Arkadaşlar merhaba,
Ekteki dosyama bakıp yardım edebilirseniz çok sevinirim
Çok teşekkürler.

 

[Orion1]

Merhaba.
Aşağıdaki kodları kendinize göre uyarlayınız.
Etopla İçin.............

Sub e_topla()
For i = 3 To 16
Cells(i, "B").Value = WorksheetFunction.SumIf(Sheets("YILLIK").Range("A3:A60000"), Sheets("AYLIK").Cells(i, "A").Value, Sheets("YILLIK").Range("B3:B60000"))
Next
MsgBox "ETOPLA Yapıldı..", vbOKOnly
End Sub

Birleştirme için.........

Sub birlesir()
For i = 3 To 10
    Cells(i, "L").Value = Cells(i, "H").Value & Cells(i, "I").Value & Cells(i, "J").Value & Cells(i, "K").Value
Next
MsgBox "Birleştirme Sona Erdi..", vbOKOnly
End Sub