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 Normalize() On Error Resume Next Application.DisplayAlerts = False Sheets("Normalized").Delete Application.DisplayAlerts = True On Error GoTo 0 ActiveWorkbook.Sheets("forecast.excel").Activate Dim r As Long, c As Long, LastR As Long, LastC As Long, arr As Variant, DestR As Long With ActiveSheet LastR = .Cells(.Rows.Count, 1).End(xlUp).Row LastC = .Cells(1, .Columns.Count).End(xlToLeft).Column arr = .Range(.[a1], .Cells(LastR, LastC)).Value End With 'Worksheets.Add Worksheets.Add(After:=Worksheets(1)).Name = "Normalized" [a1:g1] = Array("Part_ID", "Desc", "Rev", "Supplier_Part_ID", "UOM", "Want_Date", "Qty") DestR = 1 For r = 2 To LastR For c = 6 To LastC DestR = DestR + 1 Range(Cells(DestR, 1), Cells(DestR, 7)) = Array(arr(r, 1), arr(r, 2), arr(r, 3), arr(r, 4), arr(r, 5), arr(1, c), arr(r, c)) Next Next Columns.AutoFit End Sub
|Create a button on a main form with a subform to send the results of a query to an excel spread sheet.||12||52|
|SQL Select in Access 2003||3||26|
|query linked sql table field from access||4||24|
|vba code to check folder size doesn't work on Win 7 PC's||8||29|