F
fgwiii
I have modified some existing code and for some reason when the paste happens
instead of only pasting to the "D" column, it is pasting to multiple columns
and throwing my data out of format. Can you please tell me what is wrong and
how do I fix it?
ActiveWindow.LargeScroll Down:=1
Range("J23790").Select
ActiveCell.FormulaR1C1 = "1"
Range("J23790").Select
Selection.NumberFormat = "0"
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Range("J23790").Select
Selection.Copy
Range("D223501").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
With Selection.Font
.Name = "Tahoma"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Thank you,
Fred
instead of only pasting to the "D" column, it is pasting to multiple columns
and throwing my data out of format. Can you please tell me what is wrong and
how do I fix it?
ActiveWindow.LargeScroll Down:=1
Range("J23790").Select
ActiveCell.FormulaR1C1 = "1"
Range("J23790").Select
Selection.NumberFormat = "0"
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Range("J23790").Select
Selection.Copy
Range("D223501").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
With Selection.Font
.Name = "Tahoma"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Thank you,
Fred