Home |
Search |
Today's Posts |
#3
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Renster wrote:
*** Rubbish mostly, that is now snipped *** No matter folks, I cracked it myself. Revised Function: Sub LatestRun() ActiveCell.Offset(1, 0).Select Do While Not IsEmpty(ActiveCell) ActiveCell.Offset(1, 0).Select Loop ActiveCell.FormulaR1C1 = "=today()" For x = 2 To 17 ActiveCell.Offset(0, 1).Select ActiveCell.Formula = "='C:\[rip-perform.csv]rip-perform'!$C$" & x ActiveCell.Copy ActiveCell.PasteSpecial (xlPasteValues) Next End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Inserting Rows...but losing "FORMAT" | Excel Discussion (Misc queries) | |||
Excel - Golf - how to display "-2" as "2 Under" or "4"as "+4" or "4 Over" in a calculation cell | Excel Discussion (Misc queries) | |||
change "true" and "false" to "availble" and "out of stock" | Excel Worksheet Functions | |||
inserting a conditional "go to" command on a excel "if" function | Excel Worksheet Functions | |||
Inserting "template" rows | Excel Programming |