DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
=EÃER(A2="";"Bir Sayı Giriniz.";A2*B1/A1)
Private Sub ToggleButton1_Click()
If Range("A1") = "" Then
soru = MsgBox("A1 Hücresini Boş Geçtiniz.Boş Geçerseniz Hesaplama Yapılamaz.Devam Edeyimmi?", vbYesNo, "A1 Hücresi Boş!")
Range("A1").Select
If soru = vbYes Then GoTo devam
If soru = vbNo Then Exit Sub
End If
If Range("A2") = "" Then
soru = MsgBox("A2 Hücresini Boş Geçtiniz.Devammı?", vbYesNo, "A2 Hücresi Boş!")
Range("A2").Select
If soru = vbYes Then GoTo devam
If soru = vbNo Then Exit Sub
End If
devam:
If ToggleButton1.Value = True Then
ToggleButton1.Caption = "Sil"
Range("b2") = Range("A2") * Range("b1") / Range("A1")
Else
ToggleButton1.Caption = "Yüzdesini Bul"
Range("A2").ClearContents
Range("b2").ClearContents
End If
End Sub