Soru CheckBox Seçili İse Otomatik Artır CheckBox Seçili Değilse Sil

[ormann]

İyi günler ekli dosyada CheckBox1 seçili iken sil butonuna bastığımda J8 hücresinde girilen rakamı 1 artırıp; CheckBox1 seçili değilken ise sil butonuna bastığımızda J8:J20,K8,K11 hücrelerindeki verileri sildirebilir miyiz ?

İndir örnek

Dosyayı indir örnek

dosya.co

 

[Muzaffer Ali]

Merhaba.
Sil kodları aşağıdaki gibi olmalı.

Sub SİLM3()
    Beep
    Dim s  As String, Dosya_Yolu As String
    Dim STR, ss As Long, SR As VbMsgBoxResult
    Dim syf As Worksheet
    Dim S1 As Worksheet
    Dim S2 As Worksheet
 
    Set syf = Sheets("veri girişi")
    syf.Unprotect 123
    If syf.CheckBox1.Value Then
        syf.Range("J8") = syf.Range("J8") + 1
    Else
        SR = MsgBox(" SAYFANIZI TEMİZLEMEK İSTİYORMUSUNUZ?", vbYesNo, "TEMİZLEME")
        If SR = vbYes Then
            syf.Range("J8:J20,K8,K11").ClearContents
            MsgBox "TEMİZLEME İŞLEMİ BAŞARIYLA TAMAMLANDI", vbInformation, ""
        End If
    End If
End Sub

 

[ÖmerFaruk]

Sub SilCheck()
If CheckBox1.Value Then
    [J8] = [J8] + 1
Else
    Range("J8:J20").Clear
    Range("K8:K20").Clear
End If
End Sub

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Sub sva()
If Me.CheckBox1 Then
[j8] = [j8] + 1
Else
[j8:j20,k8:k11] = ""
End If
End Sub

 

[ormann]

Merhaba.
Sil kodları aşağıdaki gibi olmalı.

Sub SİLM3()
    Beep
    Dim s  As String, Dosya_Yolu As String
    Dim STR, ss As Long, SR As VbMsgBoxResult
    Dim syf As Worksheet
    Dim S1 As Worksheet
    Dim S2 As Worksheet
 
    Set syf = Sheets("veri girişi")
    syf.Unprotect 123
    If Sayfa1.CheckBox1.Value Then
        syf.Range("J8") = syf.Range("J8") + 1
    Else
        SR = MsgBox(" SAYFANIZI TEMİZLEMEK İSTİYORMUSUNUZ?", vbYesNo, "TEMİZLEME")
        If SR = vbYes Then
            syf.Range("J8:J20,K8,K11").ClearContents
            MsgBox "TEMİZLEME İŞLEMİ BAŞARIYLA TAMAMLANDI", vbInformation, ""
        End If
    End If
End Sub

Sayın dalgalıkur CheckBox1 seçili iken J8 1 artacak, J9:J20,K8,K11 silinecek

 

[Muzaffer Ali]

Sayın dalgalıkur CheckBox1 seçili iken J8 1 artacak, J9:J20,K8,K11 silinecek

Zaten yazdığım kodlar da bunu yapıyor.
Silince J8 silinmemesi gerekiyorsa kodlarda gerekli yeri siz de değiştirebilirsiniz.
J8'i J9 yapın yeterli aşağıdaki gibi.

Sub SİLM3()
    Beep
    Dim s  As String, Dosya_Yolu As String
    Dim STR, ss As Long, SR As VbMsgBoxResult
    Dim syf As Worksheet
    Dim S1 As Worksheet
    Dim S2 As Worksheet
   
    Set syf = Sheets("veri girişi")
    syf.Unprotect 123
    If Sayfa1.CheckBox1.Value Then
        syf.Range("J8") = syf.Range("J8") + 1
    Else
        SR = MsgBox(" SAYFANIZI TEMİZLEMEK İSTİYORMUSUNUZ?", vbYesNo, "TEMİZLEME")
        If SR = vbYes Then
            syf.Range("J9:J20,K8,K11").ClearContents
            MsgBox "TEMİZLEME İŞLEMİ BAŞARIYLA TAMAMLANDI", vbInformation, ""
        End If
    End If
End Sub