With the new era of mobile computing, smartphones and tablets, wireless communications and cloud services, the USDA sought to take advantage of a mobilized workforce and the blurring lines between personal and corporate computing resources.
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
|Need to filter query and have subform updatable||2||25|
|Looking for a program that deletes all files of same size||18||59|
|SQL - Cumulating field values to one field||5||19|
|Filter cbo on datasheet -||11||30|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
10 Experts available now in Live!