ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Worksheet Functions (https://www.excelbanter.com/excel-worksheet-functions/)
-   -   Paste Special in a macro (https://www.excelbanter.com/excel-worksheet-functions/7522-paste-special-macro.html)

CMAC
Paste Special in a macro
 
Hi,
while recording a macro i've selected multiple sections of data and then
divided a value to all of the data selected by copying the cell with the
value in it and selecting paste special, checking off divide, and values. It
seems to work on all sections when i'm recording the macro, however, when i
run the macro on another sheet it only seems to work on the first section of
data i selected. would anyone know why this is?
Many thanks in advance

Frank Kabel
Hi
post your used code

--
Regards
Frank Kabel
Frankfurt, Germany

"CMAC" schrieb im Newsbeitrag
...
Hi,
while recording a macro i've selected multiple sections of data and
then
divided a value to all of the data selected by copying the cell with
the
value in it and selecting paste special, checking off divide, and
values. It
seems to work on all sections when i'm recording the macro, however,
when i
run the macro on another sheet it only seems to work on the first
section of
data i selected. would anyone know why this is?
Many thanks in advance

CMAC
not sure what is or is not useful to you. the action i'm refering to is
about 3/4's the way down

Columns("J:J").Select
Selection.Cut
Columns("G:G").Select
Selection.Insert Shift:=xlToRight
Columns("J:J").Select
Selection.Cut
Columns("H:H").Select
Selection.Insert Shift:=xlToRight
ActiveWindow.SmallScroll ToRight:=7
Columns("K:L").Select
Selection.Cut
Columns("U:U").Select
Selection.Insert Shift:=xlToRight
Columns("R:R").Select
Selection.Cut
Columns("K:K").Select
Selection.Insert Shift:=xlToRight
Columns("Q:Q").Select
Selection.Cut
Columns("L:L").Select
Selection.Insert Shift:=xlToRight
Columns("P:P").Select
Selection.Cut
Columns("O:O").Select
Selection.Insert Shift:=xlToRight
Columns("M:M").Select
Selection.Cut
Columns("P:P").Select
Selection.Insert Shift:=xlToRight
Columns("Q:Q").Select
Selection.Cut
Columns("O:O").Select
Selection.Insert Shift:=xlToRight
Columns("R:R").Select
Selection.Cut
Columns("O:O").Select
Selection.Insert Shift:=xlToRight
ActiveWindow.SmallScroll ToRight:=6
Columns("X:X").Select
Selection.Cut
Columns("S:S").Select
Selection.Insert Shift:=xlToRight
Columns("Y:Y").Select
Selection.Cut
Columns("S:S").Select
Selection.Insert Shift:=xlToRight
Columns("X:X").Select
Selection.Cut
Columns("W:W").Select
Selection.Insert Shift:=xlToRight
Range("W8").Select
Selection.EntireColumn.Insert
Selection.EntireColumn.Insert
ActiveWindow.SmallScroll ToRight:=4
ActiveWindow.ScrollColumn = 1
Range("H8").Select
Selection.EntireColumn.Insert
Range("J8").Select
Selection.EntireColumn.Insert
Range("L8").Select
Selection.EntireColumn.Insert
Range("N8").Select
Selection.EntireColumn.Insert
Range("P8").Select
Selection.EntireColumn.Insert
Range("R8").Select
Selection.EntireColumn.Insert
Range("T8").Select
Selection.EntireColumn.Insert
Range("V8").Select
Selection.EntireColumn.Insert
Range("X8").Select
Selection.EntireColumn.Insert
Range("Z8").Select
Selection.EntireColumn.Insert
Range("AB8").Select
Selection.EntireColumn.Insert
Range("AD8").Select
Selection.EntireColumn.Insert
Range("AF8").Select
Selection.EntireColumn.Insert
Range("AH8").Select
Selection.EntireColumn.Insert
Range("AJ8").Select
Selection.EntireColumn.Insert
Range("AM8").Select
Selection.EntireColumn.Insert
Range("AP8").Select
Selection.EntireColumn.Insert
Range("AR8").Select
Selection.EntireColumn.Insert
Range("AT8").Select
Selection.EntireColumn.Insert
Range("AV8").Select
Selection.EntireColumn.Insert
Selection.End(xlToLeft).Select
Range("G11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("G11"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="" & Chr(10) & "", FieldInfo:=Array(Array(1, 1), Array(2, 1))
Range("I11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("I11"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="" & Chr(10) & "", FieldInfo:=Array(Array(1, 1), Array(2, 1))
Range("K11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("K11"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="" & Chr(10) & "", FieldInfo:=Array(Array(1, 1), Array(2, 1))
ActiveWindow.SmallScroll ToRight:=9
Range("M11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("M11"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="" & Chr(10) & "", FieldInfo:=Array(Array(1, 1), Array(2, 1))
Range("O11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("O11"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="" & Chr(10) & "", FieldInfo:=Array(Array(1, 1), Array(2, 1))
Range("Q11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("Q11"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="" & Chr(10) & "", FieldInfo:=Array(Array(1, 1), Array(2, 1))
Range("S11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("S11"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="" & Chr(10) & "", FieldInfo:=Array(Array(1, 1), Array(2, 1))
Range("U11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("U11"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="" & Chr(10) & "", FieldInfo:=Array(Array(1, 1), Array(2, 1))
ActiveWindow.SmallScroll ToRight:=9
Range("W11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("W11"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="" & Chr(10) & "", FieldInfo:=Array(Array(1, 1), Array(2, 1))
Range("Y11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("Y11"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="" & Chr(10) & "", FieldInfo:=Array(Array(1, 1), Array(2, 1))
Range("AA11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("AA11"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="" & Chr(10) & "", FieldInfo:=Array(Array(1, 1), Array(2, 1))
Range("AC11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("AC11"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="" & Chr(10) & "", FieldInfo:=Array(Array(1, 1), Array(2, 1))
Range("AE11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("AE11"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="" & Chr(10) & "", FieldInfo:=Array(Array(1, 1), Array(2, 1))
ActiveWindow.SmallScroll ToRight:=10
Range("AG11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("AG11"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="" & Chr(10) & "", FieldInfo:=Array(Array(1, 1), Array(2, 1))
Range("AI11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("AI11"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="" & Chr(10) & "", FieldInfo:=Array(Array(1, 1), Array(2, 1))
Range("AK11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("AK11"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="" & Chr(10) & "", FieldInfo:=Array(Array(1, 1), Array(2, 1))
Range("AO11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("AO11"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="" & Chr(10) & "", FieldInfo:=Array(Array(1, 1), Array(2, 1))
ActiveWindow.SmallScroll ToRight:=8
Range("AQ11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("AQ11"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="" & Chr(10) & "", FieldInfo:=Array(Array(1, 1), Array(2, 1))
Range("AS11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("AS11"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="" & Chr(10) & "", FieldInfo:=Array(Array(1, 1), Array(2, 1))
Range("AU11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("AU11"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="" & Chr(10) & "", FieldInfo:=Array(Array(1, 1), Array(2, 1))
Range("AW11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("AW11"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="" & Chr(10) & "", FieldInfo:=Array(Array(1, 1), Array(2, 1))
Range("AV8").Select
Selection.End(xlToLeft).Select
Range("H7").Select
ActiveCell.FormulaR1C1 = "10"
Range("H7").Select
Selection.Copy
Range("H11").Select
Range(Selection, Selection.End(xlDown)).Select
Range("H11:H15,J11").Select
Range("J11").Activate
Range(Selection, Selection.End(xlDown)).Select
ActiveWindow.SmallScroll ToRight:=6
Range("H11:H15,J11:J15,L11").Select
Range("L11").Activate
Range(Selection, Selection.End(xlDown)).Select
Range("H11:H15,J11:J15,L11:L15,N11").Select
Range("N11").Activate
Range(Selection, Selection.End(xlDown)).Select
Range("H11:H15,J11:J15,L11:L15,N11:N15,P11").Selec t
Range("P11").Activate
Range(Selection, Selection.End(xlDown)).Select
Range("H11:H15,J11:J15,L11:L15,N11:N15,P11:P15,R11 ").Select
Range("R11").Activate
Range(Selection, Selection.End(xlDown)).Select
ActiveWindow.SmallScroll ToRight:=4
Range("H11:H15,J11:J15,L11:L15,N11:N15,P11:P15,R11 :R15,T11").Select
Range("T11").Activate
Range(Selection, Selection.End(xlDown)).Select

Range("H11:H15,J11:J15,L11:L15,N11:N15,P11:P15,R11 :R15,T11:T15,V11").Select
Range("V11").Activate
Range(Selection, Selection.End(xlDown)).Select
ActiveWindow.SmallScroll ToRight:=7

Range("H11:H15,J11:J15,L11:L15,N11:N15,P11:P15,R11 :R15,T11:T15,V11:V15,X11").
_
Select
Range("X11").Activate
Range(Selection, Selection.End(xlDown)).Select
Range( _

"H11:H15,J11:J15,L11:L15,N11:N15,P11:P15,R11:R15,T 11:T15,V11:V15,X11:X15,Z11"). _
Select
Range("Z11").Activate
Range(Selection, Selection.End(xlDown)).Select
Range( _

"H11:H15,J11:J15,L11:L15,N11:N15,P11:P15,R11:R15,T 11:T15,V11:V15,X11:X15,Z11:Z15,AB11" _
).Select
Range("AB11").Activate
Range(Selection, Selection.End(xlDown)).Select
Range( _

"H11:H15,J11:J15,L11:L15,N11:N15,P11:P15,R11:R15,T 11:T15,V11:V15,X11:X15,Z11:Z15,AB11:AB15,AD11" _
).Select
Range("AD11").Activate
Range(Selection, Selection.End(xlDown)).Select
ActiveWindow.SmallScroll ToRight:=9
Range( _

"H11:H15,J11:J15,L11:L15,N11:N15,P11:P15,R11:R15,T 11:T15,V11:V15,X11:X15,Z11:Z15,AB11:AB15,AD11:AD15 ,AF11" _
).Select
Range("AF11").Activate
Range(Selection, Selection.End(xlDown)).Select
Range( _

"H11:H15,J11:J15,L11:L15,N11:N15,P11:P15,R11:R15,T 11:T15,V11:V15,X11:X15,Z11:Z15,AB11:AB15,AD11:AD15 ,AF11:AF15,AH11" _
).Select
Range("AH11").Activate
Range(Selection, Selection.End(xlDown)).Select
Range( _

"H11:H15,J11:J15,L11:L15,N11:N15,P11:P15,R11:R15,T 11:T15,V11:V15,X11:X15,Z11:Z15,AB11:AB15,AD11:AD15 ,AF11:AF15,AH11:AH15,AJ11" _
).Select
Range("AJ11").Activate
Range(Selection, Selection.End(xlDown)).Select
Range( _

"H11:H15,J11:J15,L11:L15,N11:N15,P11:P15,R11:R15,T 11:T15,V11:V15,X11:X15,Z11:Z15,AB11:AB15,AD11:AD15 ,AF11:AF15,AH11:AH15,AJ11:AJ15,AL11" _
).Select
Range("AL11").Activate
Range(Selection, Selection.End(xlDown)).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlDivide,
SkipBlanks:= _
False, Transpose:=False
Range("H8").Select
Application.CutCopyMode = False
Range("H7").Select
Selection.ClearContents
Columns("F:F").Select
Selection.Delete Shift:=xlToLeft
Range("F10").Select
ActiveCell.FormulaR1C1 = "RTG"
With ActiveCell.Characters(Start:=1, Length:=3).Font
.Name = "MS Sans Serif"
.FontStyle = "Bold"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("G10").Select
ActiveCell.FormulaR1C1 = "(000's)"
With ActiveCell.Characters(Start:=1, Length:=7).Font
.Name = "MS Sans Serif"
.FontStyle = "Bold"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("F10:G10").Select
Selection.Copy
Range("F10:AW10").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.End(xlToRight).Select
Selection.End(xlToRight).Select
Selection.End(xlToLeft).Select
Range("AL9").Select
ActiveCell.FormulaR1C1 = "Mopes"
With ActiveCell.Characters(Start:=1, Length:=5).Font
.Name = "MS Sans Serif"
.FontStyle = "Bold"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("AK10").Select
Selection.End(xlToLeft).Select
Range("F11").Select
ActiveWindow.SmallScroll Down:=-18
End Sub
Sub NielsenSELALDEM()
'
' NielsenSELALDEM Macro
' Macro recorded 12/3/2004 by Christopher McLennan
'

'
Range("I14").Select
ActiveWindow.SmallScroll ToRight:=7
Columns("I:I").Select
Range("I5").Activate
Selection.Cut
Columns("K:K").Select
Range("K5").Activate
Selection.Insert Shift:=xlToRight
Columns("K:K").Select
Range("K5").Activate
Selection.Cut
Columns("M:M").Select
Range("M5").Activate
Selection.Insert Shift:=xlToRight
Columns("M:M").Select
Range("M5").Activate
Selection.Cut
Columns("O:O").Select
Range("O5").Activate
Selection.Insert Shift:=xlToRight
Columns("O:O").Select
Range("O5").Activate
Selection.Cut
Columns("Q:Q").Select
Range("Q5").Activate
Selection.Insert Shift:=xlToRight
ActiveWindow.SmallScroll ToRight:=6
Columns("Q:Q").Select
Range("Q5").Activate
Selection.Cut
Columns("S:S").Select
Range("S5").Activate
Selection.Insert Shift:=xlToRight
Columns("S:S").Select
Range("S5").Activate
Selection.Cut
Columns("U:U").Select
Range("U5").Activate
Selection.Insert Shift:=xlToRight
Columns("U:U").Select
Range("U5").Activate
Selection.Cut
Columns("W:W").Select
Range("W5").Activate
Selection.Insert Shift:=xlToRight
ActiveWindow.SmallScroll ToRight:=7
Columns("W:W").Select
Range("W5").Activate
Selection.Cut
Columns("Y:Y").Select
Range("Y5").Activate
Selection.Insert Shift:=xlToRight
Columns("Y:Y").Select
Range("Y5").Activate
Selection.Cut
Columns("AA:AA").Select
Range("AA5").Activate
Selection.Insert Shift:=xlToRight
Columns("AA:AA").Select
Range("AA5").Activate
Selection.Cut
Columns("AC:AC").Select
Range("AC5").Activate
Selection.Insert Shift:=xlToRight
Columns("AC:AC").Select
Range("AC5").Activate
Selection.Cut
Columns("AE:AE").Select
Range("AE5").Activate
Selection.Insert Shift:=xlToRight
Columns("AE:AE").Select
Range("AE5").Activate
Selection.Cut
Columns("AG:AG").Select
Range("AG5").Activate
Selection.Insert Shift:=xlToRight
Columns("AG:AG").Select
Range("AG5").Activate
Selection.Cut
Columns("AI:AI").Select
Range("AI5").Activate
Application.CutCopyMode = False
Selection.Cut
Columns("AG:AG").Select
Range("AG5").Activate
Application.CutCopyMode = False
Selection.Cut
Columns("AI:AI").Select
Range("AI5").Activate
Selection.Insert Shift:=xlToRight
ActiveWindow.SmallScroll ToRight:=7
Columns("AI:AI").Select
Range("AI5").Activate
Selection.Cut
Columns("AK:AK").Select
Range("AK5").Activate
Selection.Insert Shift:=xlToRight
Columns("AK:AK").Select
Range("AK5").Activate
Selection.Cut
Columns("AM:AM").Select
Range("AM5").Activate
Selection.Insert Shift:=xlToRight
Columns("AM:AM").Select
Range("AM5").Activate
Selection.Cut
Columns("AO:AO").Select
Range("AO5").Activate
Selection.Insert Shift:=xlToRight
ActiveWindow.SmallScroll ToRight:=4
Columns("AO:AO").Select
Range("AO5").Activate
Selection.Cut
Columns("AQ:AQ").Select
Range("AQ5").Activate
Selection.Insert Shift:=xlToRight
Columns("AQ:AQ").Select
Range("AQ5").Activate
Selection.Cut
Columns("AS:AS").Select
Range("AS5").Activate
Selection.Insert Shift:=xlToRight
Columns("AS:AS").Select
Range("AS5").Activate
Selection.Cut
Columns("AU:AU").Select
Range("AU5").Activate
Selection.Insert Shift:=xlToRight
Columns("AU:AU").Select
Range("AU5").Activate
Selection.Cut
Columns("AW:AW").Select
Range("AW5").Activate
Selection.Insert Shift:=xlToRight
Columns("AW:AW").Select
Range("AW5").Activate
Selection.Cut
Columns("AY:AY").Select
Range("AY5").Activate
Selection.Insert Shift:=xlToRight
ActiveWindow.SmallScroll ToRight:=6
Columns("AY:AY").Select
Range("AY5").Activate
Selection.Cut
Columns("BA:BA").Select
Range("BA5").Activate
Selection.Insert Shift:=xlToRight
Columns("BA:BA").Select
Range("BA5").Activate
Selection.Cut
Columns("BC:BC").Select
Range("BC5").Activate
Selection.Insert Shift:=xlToRight
Columns("BC:BC").Select
Range("BC5").Activate
Selection.Cut
Columns("BE:BE").Select
Range("BE5").Activate
Selection.Insert Shift:=xlToRight
ActiveWindow.SmallScroll ToRight:=4
Columns("BE:BE").Select
Range("BE5").Activate
Selection.Cut
Columns("BG:BG").Select
Range("BG5").Activate
Selection.Insert Shift:=xlToRight
Range("F11").Select
End Sub

"Frank Kabel" wrote:

Hi
post your used code

--
Regards
Frank Kabel
Frankfurt, Germany

"CMAC" schrieb im Newsbeitrag
...
Hi,
while recording a macro i've selected multiple sections of data and
then
divided a value to all of the data selected by copying the cell with
the
value in it and selecting paste special, checking off divide, and
values. It
seems to work on all sections when i'm recording the macro, however,
when i
run the macro on another sheet it only seems to work on the first
section of
data i selected. would anyone know why this is?
Many thanks in advance


All times are GMT +1. The time now is 09:24 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com