laxmandilip
New Member
- Joined
- Mar 5, 2020
- Messages
- 14
- Office Version
- 2016
- Platform
- Windows
Hi , i have created Excel vba code for checkbox , when i click the check box its going to get the data from current sheet to another sheet .......... i want to create check boxes for entire column , is there an easy way to copy the code for each box ???? i have 200 check boxes , for each check box the range changes
Here's the code, i wrote for one check box
Private Sub CheckBox1_Click()
Dim strPath2 As String
Dim WbWorkbook1 As Workbook
Dim WbWorkbook2 As Workbook
strPath2 = "U:\F.P.EM-13 Trial Workbook.xlsx"
Set WbkWorkbook1 = ThisWorkbook
Set WbkWorkbook2 = Workbooks.Open(strPath2)
WbkWorkbook1.Worksheets("Sheet1").Range("H$7").Copy
WbkWorkbook2.Worksheets("Action List").Range("H17:J17").PasteSpecial
WbkWorkbook1.Worksheets("Sheet1").Range("G$7").Copy
WbkWorkbook2.Worksheets("Action List").Range("E7").PasteSpecial xlPasteValues
WbkWorkbook1.Worksheets("Sheet1").Range("C$7").Copy
WbkWorkbook2.Worksheets("Action List").Range("E12").PasteSpecial xlPasteValues
WbkWorkbook1.Worksheets("Sheet1").Range("E$7").Copy
WbkWorkbook2.Worksheets("Action List").Range("E14").PasteSpecial xlPasteValues
WbkWorkbook1.Worksheets("Sheet1").Range("D$7").Copy
WbkWorkbook2.Worksheets("Action List").Range("E13").PasteSpecial xlPasteValues
End Sub
Here's the code, i wrote for one check box
Private Sub CheckBox1_Click()
Dim strPath2 As String
Dim WbWorkbook1 As Workbook
Dim WbWorkbook2 As Workbook
strPath2 = "U:\F.P.EM-13 Trial Workbook.xlsx"
Set WbkWorkbook1 = ThisWorkbook
Set WbkWorkbook2 = Workbooks.Open(strPath2)
WbkWorkbook1.Worksheets("Sheet1").Range("H$7").Copy
WbkWorkbook2.Worksheets("Action List").Range("H17:J17").PasteSpecial
WbkWorkbook1.Worksheets("Sheet1").Range("G$7").Copy
WbkWorkbook2.Worksheets("Action List").Range("E7").PasteSpecial xlPasteValues
WbkWorkbook1.Worksheets("Sheet1").Range("C$7").Copy
WbkWorkbook2.Worksheets("Action List").Range("E12").PasteSpecial xlPasteValues
WbkWorkbook1.Worksheets("Sheet1").Range("E$7").Copy
WbkWorkbook2.Worksheets("Action List").Range("E14").PasteSpecial xlPasteValues
WbkWorkbook1.Worksheets("Sheet1").Range("D$7").Copy
WbkWorkbook2.Worksheets("Action List").Range("E13").PasteSpecial xlPasteValues
End Sub