Need to edge out the competition for your dream job? Train for certifications today.
Sub UpdateSheet(tableNo As Integer)
Dim RowNumber As Integer
Dim Heading As String
RowNumber = 2
For Each rw In ActiveSheet.Rows
Heading = rw.Cells(1, 1).Value
If Heading <> "" Then
RowDate = Int(rw.Cells(1, 2).Value)
NowDate = Int(Now)
If RowDate = NowDate Then
ThisWorkbook.Sheets(4).Cells(RowNumber, tableNo).Value = Heading
RowNumber = RowNumber + 1
Open in new window
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.