MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
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
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Omit After Update event||5||45|
|Reports issues going from Access 2003 to Access 2013||14||69|
|MS ACCESS VBA FORMATTING||9||62|
|SQL using aggregate function with HAVING / WHERE clause.||8||49|
Join the community of 500,000 technology professionals and ask your questions.