Script needed for macro

  • Thread starter Thread starter Bob Vance
  • Start date Start date
B

Bob Vance

--
From Active Cell down 6000 cells and across 7 cells
Copy/Paste/Format/Value
back into there exact cells they where copied from


Thanks in advance.........Bob Vance
 
That worked great, Can you alter it so as I can have this in front of your
script
Cells(1, Cells(1, 256).End(xlToLeft).Column + 1).Select
So actually what gets Copied and pasted is -11 to -18 columns and 6000 rows
down from where the cell is selected... TIA...BOB
 
One way:

With ActiveCell.Offset(-11, 0).Resize(6000, 7)
.Value = .Value
End With
 
I am getting a yellow line error:
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 8/05/2004 by Bob Vance
'
' Keyboard Shortcut: Ctrl+Shift+K
'
Cells(1, Cells(1, 256).End(xlToLeft).Column + 1).Select
With ActiveCell.Offset(-11, 0).Resize(6000, 7).Value = .Value
End With

End Sub
 
Invalid reference on the last .Value

Bob Vance said:
I am getting a yellow line error:
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 8/05/2004 by Bob Vance
'
' Keyboard Shortcut: Ctrl+Shift+K
'
Cells(1, Cells(1, 256).End(xlToLeft).Column + 1).Select
With ActiveCell.Offset(-11, 0).Resize(6000, 7).Value = .Value
End With

End Sub
Click to expand...
 
Back
Top