Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: mbayrali - 13 Ocak 2019, 00:05:34

Başlık: Excel Konusunda Yardım İstiyorum
Gönderen: mbayrali - 13 Ocak 2019, 00:05:34
İ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                                                                               
                                                                              
                                                                              
                                                                              
                                                                              
                                                                              
Başlık: Ynt: Excel Konusunda Yardım İstiyorum
Gönderen: Bülent Öztürk - 14 Ocak 2019, 13:04:10
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:

Alıntı
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:
Alıntı
=ExcelceTopla(A1)