Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Hardcode
Hello. Given the following code, how can I have the result of the
formulas hardcoded? I tried simply adding .value at the end of each, but that did not work! Thanks! LastRow = Worksheets("Log").Cells(Cells.Rows.Count, "A").End(xlUp).Row With Worksheets("Log") .Range("A" & LastRow + 1).Formula = "='Extended Terms'!C8" .Range("B" & LastRow + 1).Formula = "='Extended Terms'!C6" .Range("C" & LastRow + 1).Formula = "='Extended Terms'!C5" .Range("D" & LastRow + 1).Formula = "='Extended Terms'!C7" .Range("E" & LastRow + 1).Formula = "='Extended Terms'!C17" .Range("F" & LastRow + 1).Formula = "='Extended Terms'!C23" .Range("G" & LastRow + 1).Formula = "='Extended Terms'!C11" .Range("H" & LastRow + 1).Formula = "='Extended Terms'!C77" .Range("I" & LastRow + 1).Formula = "='Extended Terms'!C12" .Range("J" & LastRow + 1).Formula = "='Extended Terms'!I8" .Range("K" & LastRow + 1).Formula = "='Extended Terms'!I7" End With |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Hardcode
Instead of lines like this:
..Range("A" & LastRow + 1).Formula = "='Extended Terms'!C8" You could use: ..Range("A" & LastRow + 1).value = worksheets("extended terms").range("C8").value Depending on what's in those cells, you may want: with .Range("A" & LastRow + 1) .numberformat = worksheets("extended terms").range("C8").numberformat .value = worksheets("extended terms").range("C8").value end with Steve wrote: Hello. Given the following code, how can I have the result of the formulas hardcoded? I tried simply adding .value at the end of each, but that did not work! Thanks! LastRow = Worksheets("Log").Cells(Cells.Rows.Count, "A").End(xlUp).Row With Worksheets("Log") .Range("A" & LastRow + 1).Formula = "='Extended Terms'!C8" .Range("B" & LastRow + 1).Formula = "='Extended Terms'!C6" .Range("C" & LastRow + 1).Formula = "='Extended Terms'!C5" .Range("D" & LastRow + 1).Formula = "='Extended Terms'!C7" .Range("E" & LastRow + 1).Formula = "='Extended Terms'!C17" .Range("F" & LastRow + 1).Formula = "='Extended Terms'!C23" .Range("G" & LastRow + 1).Formula = "='Extended Terms'!C11" .Range("H" & LastRow + 1).Formula = "='Extended Terms'!C77" .Range("I" & LastRow + 1).Formula = "='Extended Terms'!C12" .Range("J" & LastRow + 1).Formula = "='Extended Terms'!I8" .Range("K" & LastRow + 1).Formula = "='Extended Terms'!I7" End With -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Y Axis : Dynamically Hardcode Min/Max Values? | Charts and Charting in Excel | |||
hardcode a column in a formula | Excel Worksheet Functions | |||
Hardcode | Excel Programming | |||
Hardcode Links - edit my code please? | Excel Programming | |||
Change hardcode to ....? | Excel Programming |