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
Bu forumu gezen kullanıcılar: Hiç bir kayıtlı kullanıcı yok ve 0 misafir
Bu foruma yeni başlıklar gönderemezsiniz Bu forumdaki başlıklara cevap veremezsiniz Bu forumdaki mesajlarınızı düzenleyemezsiniz Bu forumdaki mesajlarınızı silemezsiniz
Başa Dön
Forum ana sayfa
İki Ayrı Sütundaki Verileri Üçüncü Sütunda Toplatmak
