Adds to daily log, two cells, one with date, next with activity that will be added to log of activities below it.
After it will be added, it will be sorted to show latest activity on top.
Use it a lot on daily basis.
Sheet name is ShPr, date to be added is in C6, activity in D6.
Log to save daily activities starts C8:D8.
Sub PrCal_Add_Sort()
' PrCal sheet
' Add row of C6:D6 to below area, then sort descendingly
'
NewR2 = CountColumnCells("C", , ShPr.Name, 7)
NewRR = NewR2 + 7
ShPr.Range("C" & NewRR).Value = ShPr.Range("C6").Value
ShPr.Range("D" & NewRR).Value = ShPr.Range("D6").Value
' sort it
SortArea1 "C7:D" & NewRR, "C7", 2, ShPr.Name
DoEvents
ShPr.Range("C6:D6").ClearContents
End Sub
' PrCal sheet
' Add row of C6:D6 to below area, then sort descendingly
'
NewR2 = CountColumnCells("C", , ShPr.Name, 7)
NewRR = NewR2 + 7
ShPr.Range("C" & NewRR).Value = ShPr.Range("C6").Value
ShPr.Range("D" & NewRR).Value = ShPr.Range("D6").Value
' sort it
SortArea1 "C7:D" & NewRR, "C7", 2, ShPr.Name
DoEvents
ShPr.Range("C6:D6").ClearContents
End Sub
Views 184
Downloads 63
CodeID
DB ID