D
Dr. Darrell
I have a macro which is recording entries from several cells to to a table
which will be used for a Run Chart. (see code below)
In my Code, I use "=E7, =G7, =F36..." When all data is filled into my Cells
I click a Form Button and the data is saved into the table. After the
machining operation on my next part, I enter data into the same cells. But
since I am using the "=Cell?" formula, the data is chaning in all the
subsequent rows of my table.
Is there a function for the "current value of a cell" (if I do a Special
Paste, I have the option to paste the Value only)?
__________________________________________________________________
Sub SaveRunChartData_101_4900_30Deg()
'
' SaveRunChartData_101_4900_30Deg Macro
' Macro recorded 2/24/2010 by Darrell.Roak
'
'
Dim LastRow As Long
LastRow = Cells(Cells.Rows.Count, "L").End(xlUp).Row + 1
Range("L" & LastRow).Formula = "=E7"
Range("M" & LastRow).Formula = "=G7"
Range("N" & LastRow).Formula = "=F36"
Range("O" & LastRow).Formula = "=E15"
Range("P" & LastRow).Formula = "=E24"
Range("Q" & LastRow).Formula = "=E31"
Range("R" & LastRow).Formula = "=F34"
ActiveWorkbook.Save
End Sub
which will be used for a Run Chart. (see code below)
In my Code, I use "=E7, =G7, =F36..." When all data is filled into my Cells
I click a Form Button and the data is saved into the table. After the
machining operation on my next part, I enter data into the same cells. But
since I am using the "=Cell?" formula, the data is chaning in all the
subsequent rows of my table.
Is there a function for the "current value of a cell" (if I do a Special
Paste, I have the option to paste the Value only)?
__________________________________________________________________
Sub SaveRunChartData_101_4900_30Deg()
'
' SaveRunChartData_101_4900_30Deg Macro
' Macro recorded 2/24/2010 by Darrell.Roak
'
'
Dim LastRow As Long
LastRow = Cells(Cells.Rows.Count, "L").End(xlUp).Row + 1
Range("L" & LastRow).Formula = "=E7"
Range("M" & LastRow).Formula = "=G7"
Range("N" & LastRow).Formula = "=F36"
Range("O" & LastRow).Formula = "=E15"
Range("P" & LastRow).Formula = "=E24"
Range("Q" & LastRow).Formula = "=E31"
Range("R" & LastRow).Formula = "=F34"
ActiveWorkbook.Save
End Sub