Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.
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
|Are There Any CSV File Field Column Mapper Tools For MS Access CSV File importing||12||30|
|Conditional Formatting - Date()||8||25|
|How calculate median||5||38|
|Why is my report opening in "MAX" view?||7||9|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
18 Experts available now in Live!