auto added checkbox

[niailmar]

Hello everyone. I wanna ask about this problem:


I have a table of data(Sheet1), which all the data will retrieve from physical folder (C:/Data).
(as attach image)


My problem are:


1) When new data retrieved, a checkbox will automatically add, at the end of the column. The new data will be inserted row by row.
2) When the checkbox is ticked, send the ticked data to another sheet (Sheet2).
At the Sheet2, there have two column. So, both of two column is need to be automatically ticked when the checkbox at Sheet1 have ticked.




I appreciate your help to solve my problem.

-nia

-

 

[Sektor]

I can suggest you a method to add check boxes. The "OnAction" property points to Sub which will be run when check box is ticked.

Sub AddCheckBoxes()
    Dim sh1 As Worksheet
    Dim i As Long, lr As Long
    
    Set sh1 = Worksheets("Sheet1")
    lr = sh1.Cells(sh1.Rows.Count, 1).End(xlUp).Row
    
    For i = 1 To lr
        With Cells(i, 5)
            With sh1.CheckBoxes.Add(.Left, .Top, .Width, .Height)
                .Value = True
                .Caption = vbNullString
                .Name = "chkRow" & i
                .OnAction = "DoSomeAction"
            End With
        End With
    Next
End Sub

Sub DoSomeAction()
    MsgBox Worksheets("Sheet1").CheckBoxes(Application.Caller).Name
End Sub