Forum - VBA CheckBox

Forum (https://www.ms-office.gr/forum/)

- Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)

- - [VBA] CheckBox (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/3715-checkbox.html)

Γεια σας παιδιά,
Έχω φτιάξει μια εφαρμογή με δεδομένα 12 μηνών και μέσω μιας Userform με CheckBox Θέλω επιλεκτικά μέσω CheckBox να διαγράφω δεδομένα .
Έχω φτάσει σε κάποιο σημείο αλλά κόλλησα, θέλω τη βοήθεια σας.
Ανεβάζω συνημμένο.
Ευχαριστώ για όποια βοήθεια.

Καλησπέρα

Γιώργο, θα σου πρότεινα τον παρακάτω κώδικα:

Κώδικας:

Private Sub CommandButton3_Click()
 

'Ο κώδικας αξιοποιεί την ονομασία των CheckBox. Συγκεκριμένα:

'Η συνάρτηση Mid(c.Name, 9), επιστρέφει τον αριθμό του μήνα και

'Το στοιχείο MonthData(Mid(c.Name, 9) - 1) του Array MonthData

'Το όνομα της περιοχής των δεδομένων του μήνα.
 

    On Error GoTo ErrHandler

    Dim c As Control, MonthData As Variant

    MonthData = Array("Data1", "Data2", "Data3", "Data4", "Data5", "Data6", _

                      "Data7", "Data8", "Data9", "Data10", "Data11", "Data12")
 

    For Each c In Me.Controls

        If TypeName(c) = "CheckBox" Then

            If c Then

                Range(MonthData(Mid(c.Name, 9) - 1)).ClearContents

            End If

        End If

    Next

    MsgBox "Η διαγραφή ολοκληρώθηκε"

    Exit Sub

ErrHandler:

    MsgBox "Error #" & Err.Number & vbCrLf & Err.Description

End Sub

ΦιλικάΓιώργος

Καλησπέρα,
Γιώργο σ' Ευχαριστώ πολύ,
Δουλεύει άψογα.