SATIRLAR ARASI TOPLAMA

[AYTEK1973]

Ekdeki dosyamda bazı hatalarım var, inceler ve yardımcı olursanız sevinirim.
İyi çalışmalar..

 

[Recep İpek]

Sayın AYTEK1973,

Kodlarınızı aşağıdaki şekilde değiştirebilirsiniz.

[vb:1:9417e97eda]
Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
ToggleButton1.Caption = "SİL"
Range("B12").Value = WorksheetFunction.Sum(Range("B3:B11"))
Range("C12").Value = WorksheetFunction.Sum(Range("C3:C11"))
Range("D12").Value = WorksheetFunction.Sum(Range("D311"))
Range("E12").Value = WorksheetFunction.Sum(Range("E311"))
Else
ToggleButton1.Caption = "TOPLA"
Range("B12").ClearContents
Range("C12").ClearContents
Range("D12").ClearContents
Range("E12").ClearContents
End If
End Sub
[/vb:1:9417e97eda]

 

[AYTEK1973]

TŞK.

İLGİNİZE ÇOK TEŞEKKÜR EDERİM.
İYİ ÇALIŞMALAR.