Excel_User_10k
Board Regular
- Joined
- Jun 25, 2022
- Messages
- 100
- Office Version
- 2021
- Platform
- Windows
VBA Code:
Sub RectangleRoundedCorners2_Click()
Dim myRow As ListRow
Dim cell As Range, DataEntry As Range
Dim i As Long
Sheets("Sales MTD").Unprotect Password:="password"
With ThisWorkbook.Worksheets("Sales MTD").ListObjects("Submitted_Sales")
Set myRow = .ListRows.Add(AlwaysInsert:=True)
End With
Set DataEntry = Range("N3,I13,J13,G6,F6,M5,K13,Q5,E13,F13,M8,Q8,F18,M10,Q10,H18,M12,Q12,J18,M14,Q14,Q16")
For Each cell In DataEntry.Cells
i = i + 1
myRow.Range(i) = cell.Value
Next cell
myRow.Range(i).NumberFormat = _
"_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)"
Worksheets("Sales MTD").Protect Password:="password", DrawingObjects:=True, Contents:=True, _
Scenarios:=True, AllowDeletingRows:=True, _
AllowFiltering:=True
End Sub
Currently I am using this code, courtesy of Dave, that Submits an 'order' from one Sheet and adds the Row to a table on another Sheet in the same Workbook.
I would like for it to be able to ALSO add a row on an identical Table on Google Sheets so it can be shared and viewed by others as well. I believe it is possible, and only with VBA, but I have no clue how to execute it.
Can someone help with this please?