Hello - I am trying to copy data from one worksheet to another. However the code below doesn't seem to be pasting the copied data (from Assurance Plan 2013-14) into the next available line on my other worksheet (Action Monitoring Sheet1). I am using Check boxes linked to specifc rows.
Can someone please help?
Thank you in advance.
Dim x As Integer
Dim y As Integer
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Range("D649:G649").Select
Selection.Copy
Sheets("Action Monitoring Sheet1").Activate
x = 1
Do Until ActiveSheet.Cells(x, 1) = vbNullString
x = x + 1
Loop
ActiveSheet.Range("B" & x).Select
Selection.PasteSpecial
Sheets("Assurance Plan 2013-14").Select
End If
If CheckBox1.Value = False Then
'No Action - this a control measure to prevent accidental deletion of actions added to tracker'
End If
End Sub
Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then
Range("D650:G650").Select
Selection.Copy
Sheets("Action Monitoring Sheet1").Activate
y = 1
Do Until ActiveSheet.Cells(y, 1) = vbNullString
y = y + 1
Loop
ActiveSheet.Range("B" & y).Select
Selection.PasteSpecial
Sheets("Assurance Plan 2013-14").Select
End If
If CheckBox2.Value = False Then
'No Action - this a control measure to prevent accidental deletion of actions added to tracker'
End If
End Sub
Private Sub CheckBox3_Click()
If CheckBox3.Value = True Then
Range("D651:G651").Select
Selection.Copy
Sheets("Action Monitoring Sheet1").Activate
y = 1
Do Until ActiveSheet.Cells(y, 1) = vbNullString
y = y + 1
Loop
ActiveSheet.Range("B" & y).Select
Selection.PasteSpecial
Sheets("Assurance Plan 2013-14").Select
End If
If CheckBox3.Value = False Then
'No Action - this a control measure to prevent accidental deletion of actions added to tracker'
End If
End Sub
Private Sub CheckBox4_Click()
If CheckBox4.Value = True Then
Range("D652:G652").Select
Selection.Copy
Sheets("Action Monitoring Sheet1").Activate
y = 1
Do Until ActiveSheet.Cells(y, 1) = vbNullString
y = y + 1
Loop
ActiveSheet.Range("B" & y).Select
Selection.PasteSpecial
Sheets("Assurance Plan 2013-14").Select
End If
If CheckBox4.Value = False Then
'No Action - this a control measure to prevent accidental deletion of actions added to tracker'
End If
End Sub
Bookmarks