İki Ayrı Sütundaki Verileri Üçüncü Sütunda Toplatmak - Makro-VBA

ExcelTürk

A ce B sütunundaki verileri C sütünda toplatmak için yazılmış makro.

Kod: Tümünü seç: Sub Topla() Dim i As Integer On Error GoTo 10 For i = 1 To 50 If Cells(i, 1).Value <> Empty And Cells(i, 2).Value <> Empty And _ IsNumeric(Cells(i, 1).Value) And IsNumeric(Cells(i, 2).Value) Then Cells(i, 3).FormulaR1C1 = WorksheetFunction.Sum(Val(Cells(i, 1).Value) + Val(Cells(i, 2).Value)) Else 10 MsgBox "Geçersiz değer bulundu, lütfen kontrol ediniz ", vbExclamation, "H A T A !!! " Exit Sub End If Next i End Sub