On Jun 20, 7:20*pm, Chance224
wrote:
I recorded a macro that copies a list in column AN2:AN60 and then transposes
the list into AO1 (across the row). Is there a way to have it paste the list
in every other cell?
It would paste it Ao1= First value, skip AP1, AQ1= next value, skip
AR1,AS1=next value, etc…
Here is the code I have so far:
Sub Jobs_Across()
'
* * Range("AN2:AN60").Select
* * Selection.Copy
* * Range("AO1").Select
* * Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
* * * * False, Transpose:=True
End Sub

Thanks

May b this can help:::::::::::

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 6/20/2008 by Nayab
'

'
Dim r As Range
Dim i, j As Integer
Range("A1:A7").Select
i = 0
j = 0

For Each r In Selection
r.Select
r.Copy
Selection.Offset(i, j + 1).PasteSpecial
Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=True
ActiveWindow.SmallScroll ToRight:=3
i = i - 1
j = j + 2
Next r
End Sub