How do you add a file here? You did it; I can';t seem to figure out
how to do it...
Anyway, with 0 in A1 of Sheet 'Main', add this;
=OFFSET(Data!$B$4,ROWS(Data!$B$4:$B5),$A$1)
Fill down.
You can add a spinner button (look it up online), or just change the
number in Cell A1, from 0 to 1 or to 2, o
Got it! It's this:
cmt.Visible = True
cmt.Shape.Select
Put a tick-mark in front of those two lines; the key with the " and '
on it.
Or, use this:
Sub CommentInsertDATE()
Dim strDate As String
Dim cmt As Comment
strDate = "dd-mmm-yy hh:mm:ss"
Set cmt = ActiveCell.Comment
If
Sub CustomQuery()
Dim cat As ADOX.Catalog
Dim cmd As ADODB.Command
Dim strPath As String
Dim newStrSQL As String
Dim oldStrSQL As String
Dim strQryName As String
Dim myArr()
Dim objCell As Object
Dim lstRow As Long
lstRow = Cells(Rows.Count, "A").End(xlUp).Row
ReDim myArr(0 To lstRow - 2)
'lastrow
Sub CustomQuery()
Dim cat As ADOX.Catalog
Dim cmd As ADODB.Command
Dim strPath As String
Dim newStrSQL As String
Dim oldStrSQL As String
Dim strQryName As String
Dim myArr()
Dim objCell As Object
Dim lstRow As Long
lstRow = Cells(Rows.Count, "A").End(xlUp).Row
ReDim myArr(0 To lstRow - 2)
'lastrow