I have one code that looks for the value of a hidden cell and places it in another to prevent formula editing by accident. Just curious on this part if this code is as efficient as it can be or can it be shortened or combined.
Here is the one section of it
Okay now for the BIGGY I have a timestamp script that works based on certain columns I would love to get it modified to only work on certain cells
so it would work like this
Columns 4, 10, 16, 22, 28
StartRow = 6
Skip 3 rows
So in Column 4 cell D6, D10, D14 etc Columns are every 6 so 4,10,16 etc. Here is what I have but it does the full column
I would like the date to not update if an edit is done. Only need the date when the initial grade is input. The date is blank until that grade is input currently but changes when the grade changes( which is a pain for editing/testing the page).
Here is the one section of it
Code:
Range("D2").Value = Range("XEX1048549").Value
Range("E2").Value = Range("XEX1048550").Value
Range("E3").Value = Range("XFB1048549").Value
Range("D4").Value = Range("XFB1048550").Value
Range("E4").Value = Range("XFB1048551").Value
Okay now for the BIGGY I have a timestamp script that works based on certain columns I would love to get it modified to only work on certain cells
so it would work like this
Columns 4, 10, 16, 22, 28
StartRow = 6
Skip 3 rows
So in Column 4 cell D6, D10, D14 etc Columns are every 6 so 4,10,16 etc. Here is what I have but it does the full column
Code:
If Target.Row >= 6 Then
Select Case Target.Column
Case Is = 4, 10, 16, 22, 28
Application.EnableEvents = False
If Target.Value >= "0" Then
Target.Offset(0, -1).Value = Now
Target.Offset(1, -1).Value = "Graded"
Else
Target.Offset(1, -1).Value = "Not Graded"
End If
Application.EnableEvents = True
End Select
End If
End Sub
I would like the date to not update if an edit is done. Only need the date when the initial grade is input. The date is blank until that grade is input currently but changes when the grade changes( which is a pain for editing/testing the page).