Originally Posted by
Pastry_chef
Ok, I just realized that I gave the wrong cell count.
Yeh, sure.
Talk about moving the goal posts. You've changed their width, made 'em taller than they're wide, oh, and changed the name of the game to Tennis.
Sub blah()
With Sheets("Sheet9").Cells(3, Columns.Count).End(xlToLeft).Offset(, 1).Resize(14) 'destination sheet, to the right of data in row 3
.Value = Sheets("Sheet1").Range("P11:P24").Value 'source sheet and range 1
.Offset(, 1).Value = Sheets("Sheet1").Range("X11:X24").Value 'source sheet and range 2
If .Column = 5 Then .Offset(, -1).ClearContents 'removes formulae from column D
.Offset(, 2).FormulaR1C1 = "=RC[-2]-RC[-5]" 'add a formulae in the next column
End With
If UCase(Sheets("Sheet9").Range("A1").Value) <> "STOP" Then Application.OnTime Now() + TimeValue("00:01:00"), "blah"
End Sub
Reply With Quote
