Friday, 31 August 2012

Macro To Copy Entire Column To Another Column

Macro To Copy Entire Column  To Another Column 

Sub ColShuffle()
Dim x As Integer
Dim Y As Integer
Dim Z As Integer

Y = InputBox("Enter Column No. To Move ")
Z = InputBox("Enter Destination Column No.")
For x = 1 To 100
Cells(x, Z) = Cells(x, Y)
Next x
End Sub

Sub duntill()
Dim x
x = 0
Do Until x = 20
x = x + 1
Selection.Offset(x, 0) = Selection.Value
Loop
End Sub

No comments:

Post a Comment

Follow Me by Email

ExcelKingdom-Popular Posts

ExcelKingdom-Random Posts