Public Sub grabFormula()
Dim wks As Excel.Worksheet
Dim quotes As String
quotes = """"
Set wks = ActiveSheet
For Each cell In Selection.Cells
Debug.Print " - " & quotes & "'" & wks.Name & "'!" & cell.Address & quotes
Next cell
End Sub
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
SELECT * | |
FROM Summary t1 | |
INNER JOIN ( | |
SELECT system_id, MAX(ID) as max_id | |
FROM Summary | |
WHERE facility = 'MAC' | |
GROUP BY system_id | |
) t2 ON t1.system_id = t2.system_id AND t1.ID = t2.max_id | |
WHERE t1.facility = 'MAC' | |
ORDER BY T1.id |
OlderNewer