Hello Forum....
I'm a novice troubleshooter when it comes to excel VBA, I'm getting a runtime error '70' permission denied on my code, any suggestions would be appreciated. It's a VBA that takes cell values from worksheet 'CT_Checks' and pastes them in another worksheet named 'History' in a single row. Each cell in 'CT_Checks' points to a specific column in a row of the worksheet 'History'.
Cheers,
Contigo.
Public Sub cmdClearit_Click() Sheets("CT_Checks").Select Sheets("CT_Checks").Activate Sheets("CT_Checks").Range("C2").Value = "" Sheets("CT_Checks").Range("C3").Value = "" Sheets("CT_Checks").Range("C4").Value = "" 'Couch Checks Sheets("CT_Checks").Range("E10").Value = "" Sheets("CT_Checks").Range("E15").Value = "" Sheets("CT_Checks").Range("E16").Value = "" Sheets("CT_Checks").Range("E20").Value = "" Sheets("CT_Checks").Range("E24").Value = "" Sheets("CT_Checks").Range("E25").Value = "" 'Section 1 Sheets("CT_Checks").Range("D37").Value = "" Sheets("CT_Checks").Range("D38").Value = "" Sheets("CT_Checks").Range("D39").Value = "" Sheets("CT_Checks").Range("D40").Value = "" Sheets("CT_Checks").Range("D41").Value = "" Sheets("CT_Checks").Range("D45").Value = "" Sheets("CT_Checks").Range("D46").Value = "" Sheets("CT_Checks").Range("D47").Value = "" 'Section 2 Sheets("CT_Checks").Range("F53").Value = "" Sheets("CT_Checks").Range("B59").Value = "" Sheets("CT_Checks").Range("C59").Value = "" Sheets("CT_Checks").Range("D59").Value = "" 'Section 3 Sheets("CT_Checks").Range("E65").Value = "" Sheets("CT_Checks").Range("F74").Value = "" Sheets("CT_Checks").Range("F76").Value = "" Sheets("CT_Checks").Range("F77").Value = "" Sheets("CT_Checks").Range("F79").Value = "" Sheets("CT_Checks").Range("E85").Value = "" Sheets("CT_Checks").Range("E86").Value = "" Sheets("CT_Checks").Range("E87").Value = "" Sheets("CT_Checks").Range("E88").Value = "" Sheets("CT_Checks").Range("E89").Value = "" Sheets("CT_Checks").Range("E96").Value = "" Sheets("CT_Checks").Range("E97").Value = "" ActiveSheet.Protect ("fizix") End Sub Public Sub cmdSaveitST_Click() Sheets("CT_Checks").Select Sheets("CT_Checks").Activate Date = Sheets("CT_Checks").Range("C2").Value phys = Sheets("CT_Checks").Range("C3").Value CT = Sheets("CT_Checks").Range("C4").Value LasAlgn = Sheets("CT_Checks").Range("F10").Value CouchTvl = Sheets("CT_Checks").Range("F17").Value scaling = Sheets("CT_Checks").Range("F20").Value orient = Sheets("CT_Checks").Range("F24").Value uniformity = Sheets("CT_Checks").Range("F42").Value artifacts = Sheets("CT_Checks").Range("E46").Value LCR_s2 = Sheets("CT_Checks").Range("G53").Value HCR_s3 = Sheets("CT_Checks").Range("G65").Value CT_Const = Sheets("CT_Checks").Range("H74").Value R1 = Sheets("CT_Checks").Range("E88").Value R2 = Sheets("CT_Checks").Range("E89").Value T = Sheets("CT_Checks").Range("E85").Value P = Sheets("CT_Checks").Range("E86").Value TPCorr = Sheets("CT_Checks").Range("E87").Value DoseConst = Sheets("CT_Checks").Range("E91").Value DoorInt = Sheets("CT_Checks").Range("E96").Value EStop = Sheets("CT_Checks").Range("E97").Value Sheets("History").Select Sheets("History").Activate ActiveSheet.Unprotect ("fizix") Dim lr As Long lr = Sheets("History").Cells(Rows.Count, "A").End(xlUp).Row With Sheets("History") .Range("A" & lr + 1).Value = Sheets("CT_Checks").Range("C2").Value .Range("B" & lr + 1).Value = Sheets("CT_Checks").Range("C3").Value .Range("C" & lr + 1).Value = Sheets("CT_Checks").Range("C4").Value .Range("D" & lr + 1).Value = Sheets("CT_Checks").Range("F10").Value .Range("E" & lr + 1).Value = Sheets("CT_Checks").Range("F17").Value .Range("F" & lr + 1).Value = Sheets("CT_Checks").Range("F20").Value .Range("G" & lr + 1).Value = Sheets("CT_Checks").Range("F24").Value .Range("H" & lr + 1).Value = Sheets("CT_Checks").Range("F42").Value .Range("I" & lr + 1).Value = Sheets("CT_Checks").Range("E46").Value .Range("J" & lr + 1).Value = Sheets("CT_Checks").Range("G53").Value .Range("K" & lr + 1).Value = Sheets("CT_Checks").Range("G65").Value .Range("L" & lr + 1).Value = Sheets("CT_Checks").Range("H74").Value .Range("M" & lr + 1).Value = Sheets("CT_Checks").Range("E88").Value .Range("N" & lr + 1).Value = Sheets("CT_Checks").Range("E89").Value .Range("O" & lr + 1).Value = Sheets("CT_Checks").Range("E85").Value .Range("P" & lr + 1).Value = Sheets("CT_Checks").Range("E86").Value .Range("Q" & lr + 1).Value = Sheets("CT_Checks").Range("E87").Value .Range("R" & lr + 1).Value = Sheets("CT_Checks").Range("E91").Value .Range("S" & lr + 1).Value = Sheets("CT_Checks").Range("E96").Value .Range("T" & lr + 1).Value = Sheets("CT_Checks").Range("E97").Value End With ActiveSheet.Protect ("fizix") End Sub
Bookmarks