Clarence Perdue Jr.
Member
I have a spread sheet that has Calculated Fields. I would like to protect the calculated fields. In my code I am using a vba code from the following site.
http://blog.contextures.com/archives/2010/10/01/new-improved-excel-data-entry-form/
When I use the navigate(View Records) to move off the record and it update the information on the cells the application crashes or removes the formula. The following code seem to be the problem. The line 6 seems to cause the problem with the cell calculation being removed.
1.) With historyWks
2.) lRec = inputWks.Range("CurrRec").Value
3.) If lRec > 0 And lRec <= lLastRec Then
4.) lRecRow = lRec + 1
5.) .Range(.Cells(lRecRow, lColHist), .Cells(lRecRow, lCellsDE)).Copy
6.) rngDE.Cells(1, 1).PasteSpecial Paste:=xlPasteValues, Transpose:=True
End With
Do anyone have any suggestions.
http://blog.contextures.com/archives/2010/10/01/new-improved-excel-data-entry-form/
When I use the navigate(View Records) to move off the record and it update the information on the cells the application crashes or removes the formula. The following code seem to be the problem. The line 6 seems to cause the problem with the cell calculation being removed.
1.) With historyWks
2.) lRec = inputWks.Range("CurrRec").Value
3.) If lRec > 0 And lRec <= lLastRec Then
4.) lRecRow = lRec + 1
5.) .Range(.Cells(lRecRow, lColHist), .Cells(lRecRow, lCellsDE)).Copy
6.) rngDE.Cells(1, 1).PasteSpecial Paste:=xlPasteValues, Transpose:=True
rngA.Select
End IfDo anyone have any suggestions.