Excel Konusunda Yardım İstiyorum

[mbayrali]

İyi Akşamlar,
Ben aşağıda belirttiğim konuda yardım istiyorum.
Eğer A1 hücresi 1 ise B1 Hücresine C1 hücresindeki değeri,  A1 hücresi 2 ise B1 Hücresine C1+D1 Hücresindeki değeri yani (1,5+3), A1 hücresi 3 ise B1 Hücresine C1+D1+E1 Hücresindeki değeri (yani 1,5+3+4,5), A1 hücresi 4 ise B1 Hücresine C1+D1+E1+F1 Hücresindeki değeri (yani 1,5+3+4,5+6), A1 hücresi 5 ise B1 Hücresine C1+D1+E1+F1+G1 Hücresindeki değeri (yani 1,5+3+4,5+6+7,5), A1 hücresi 6 ise B1 Hücresine C1+D1+E1+F1+G1+H1 Hücresindeki değeri (yani 1,5+3+4,5+6+7,5+9), ................  A1 hücresi 36 ise B1 Hücresine C1+D1+E1+F1+G1+H1+I1+J1+K1+L1+M1+N1+O1+P1+Q1+R1+S1+T1+U1+V1+W1+X1+Y1+Z1+AA1+AB1+AC1+AD1+AE1+AF1+AG1+AH1+AI1+AJ1+AK1+AL1) Hücresindeki değerleri (yani 1,5+3+4,5+6+........59) Şeklinde aralarında + (artı) işareti olacak şekilde nasıl yazdırırım? Bu konuda bilgi sahibi arkadaşların yardımını bekliyorum. Bu konuda zaman ayırıp yardım edebilecek arkadaşlara şimdiden şükranlarımı sunuyorum. Mehmet Bayralı Fen ve Teknoloji Öğretmeni                                                                               
                                                                              
                                                                              
                                                                              
                                                                              
                                                                              

[Bülent Öztürk]

Merhaba hocam,

Mevcut yerleşik fonksiyonlarla değil de Kullanıcı Tanımlı Fonksiyon ile aşağıdaki gibi bir çözüm olabilir;

Modüle yazılacak kodlar:

Public Function ExcelceTopla(say As Integer)
Dim i As Integer
Dim toplam As Long

Application.Volatile
For i = 3 To say + 2
    toplam = toplam + Cells(1, i).Value
Next i
ExcelceTopla = toplam
End Function

B1 hücresine yazılacak formül:

=ExcelceTopla(A1)