On-screen guidance at the moment of need enables you & your employees to focus on the core, you can now boost your adoption rates swiftly and simply with one easy tool.
sub get_diff() Dim wb as workbook, comp_sql as string, comp_rs as new adodb.recordset, new_ws as worksheet Dim objconn As New ADODB.Connection Set wb = ThisWorkbook Set new_ws = wb.Worksheets("New") With objconn .Provider = "Microsoft.Jet.OLEDB.4.0" .Properties("Extended Properties").Value = "Excel 8.0;HDR=Yes;IMEX=1" .Open wb.FullName End With comp_sql = "SELECT a.sid, b.sd " & _ "FROM [Latest$] as a LEFT JOIN [Previous$] as b ON a.sid = b.sid " & _ "WHERE b.sid IS NULL " comp_rs.Open comp_sql, objconn new_ws.Cells.ClearContents If comp_rs.State <> 0 Then If Not (comp_rs.EOF And comp_rs.BOF) Then new_ws.Cells(1, 1).Value = "sid" new_ws.Cells(2, 1).CopyFromRecordset comp_rs End If End If Set comp_rs = Nothing
|get the ALL CAPITAL words from a cell||4||20|
|Server Shares and Excel files||2||12|
|Getting rid of #VALUE!||7||23|
|I need to total a double column in Excel taking an alternate value if one exists||2||14|