T
Tealina.Mairs
I am trying to write a code that when the Copy Prior Line checkbox is
clicked, it copies the line two rows above and paste special (values
only) into the same line as the checkbox (i.e. copies line 27 into line
29). But I want to make one general macro that I can apply to every
Copy Prior Line checkbox, but I seem to have to use a line number...
Please help!
Also, can I apply this macro to every checkbox? Thank you and I really
appreciate the help...
Private Sub CheckBox2_Click()
Dim k As Integer
If CheckBox2.Value = True Then
Application.ScreenUpdating = False
With Range("B27:B300")
For k = 29 To 300
If Range("B" & k) = "True" Then
Range("B" & k - 2, "BI" & k - 2).Select
Range("B" & k - 2, "BI" & k - 2).Copy
Range("B" & k, "BI" & k).Select
Selection.PasteSpecial xlPasteValues
Application.CutCopyMode = False
Range("B" & k).Select
Else: GoTo 10
End If
Next k
10
End With
End If
End Sub
clicked, it copies the line two rows above and paste special (values
only) into the same line as the checkbox (i.e. copies line 27 into line
29). But I want to make one general macro that I can apply to every
Copy Prior Line checkbox, but I seem to have to use a line number...
Please help!
Also, can I apply this macro to every checkbox? Thank you and I really
appreciate the help...
Private Sub CheckBox2_Click()
Dim k As Integer
If CheckBox2.Value = True Then
Application.ScreenUpdating = False
With Range("B27:B300")
For k = 29 To 300
If Range("B" & k) = "True" Then
Range("B" & k - 2, "BI" & k - 2).Select
Range("B" & k - 2, "BI" & k - 2).Copy
Range("B" & k, "BI" & k).Select
Selection.PasteSpecial xlPasteValues
Application.CutCopyMode = False
Range("B" & k).Select
Else: GoTo 10
End If
Next k
10
End With
End If
End Sub