Microsoft Office Forums - View Single Post - How to copy format of a column using spin button

macropod · 03-08-2014, 10:47 PM

You could use code like:

Code:

Option Explicit
Dim i As Long, lRow As Long
 
Private Sub SpinButton1_SpinDown()
i = 1
End Sub
 
Private Sub SpinButton1_SpinUp()
If i = 16 Then Exit Sub
i = i + 1
With ActiveSheet
  lRow = .Cells.SpecialCells(xlCellTypeLastCell).Row
  .Range("A1:A" & lRow).Copy
  .Cells(1, i).PasteSpecial Paste:=xlPasteFormats
End With
End Sub

Note: As coded, any spin-down resets to Column A.

PS: When posting code, please use the code tags. They're on the 'Go Advanced' tab.