Skip to content

Instantly share code, notes, and snippets.

@DonKeyHot1

DonKeyHot1/.vba

Created October 30, 2018 16:07
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save DonKeyHot1/e022f9c7008dac8cf673e856b6e835a6 to your computer and use it in GitHub Desktop.
Save DonKeyHot1/e022f9c7008dac8cf673e856b6e835a6 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
.vba
Private Sub CommandButton1_Click()
For x = 3 To 50
If ActiveSheet.Rows(x).OutlineLevel = 1 Then
Range("A" & x).Value = Range("C" & x).Value
ElseIf ActiveSheet.Rows(x).OutlineLevel = 2 Then
Range("B" & x).Value = Range("C" & x).Value
End If
Next x
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment