Hello! I have successfully used a command button to add in a row to the first position in a table, but am looking to also keep the first column formatted as a date. The purpose would be to keep the most recent entry at the top always, to keep wrap text on and to keep the row auto-sizing to the length of text.
This is the current code which is just to add the row for the note:
Private Sub CommandButton1_Click()
ThisWorkbook.Sheets("Notes").Visible = True
ThisWorkbook.Sheets("Notes").Select
ThisWorkbook.Sheets("Notes").Range("A10").Select
ActiveCell.EntireRow.Insert Shift:=xlDown
Sheets("Notes").Range("A10:B10").Select
Selection.Borders.Weight = xlThin
End Sub
This is the current code which is just to add the row for the note:
Private Sub CommandButton1_Click()
ThisWorkbook.Sheets("Notes").Visible = True
ThisWorkbook.Sheets("Notes").Select
ThisWorkbook.Sheets("Notes").Range("A10").Select
ActiveCell.EntireRow.Insert Shift:=xlDown
Sheets("Notes").Range("A10:B10").Select
Selection.Borders.Weight = xlThin
End Sub