Improve and reinforce salesforce training & adoption using WalkMe's digital adoption platform. Start saving on costly employee training by creating fast intuitive Walk-Thrus for Salesforce. Claim your Free Account Now
Sub OK_y_run() Dim xlast_Row As Long Dim xNew_Row As Long Dim i As Long Sheets("Data").Activate xlast_Row = Range("A1").SpecialCells(xlLastCell).Row If xlast_Row < 2 Then MsgBox ("No data in PAS Spreadsheet - run cancelled.") Exit Sub End If Sheets("Actual").Activate Range("A4:H50000").Select Selection.ClearContents Sheets("Data").Activate If Sheets("Actual").UsedRange.Rows.Count < 0 Then MsgBox ("Error") ' Force Excel to recalculate the last row. xNew_Row = Sheets("Actual").Range("A:A").SpecialCells(xlLastCell).Row For i = 3 To xlast_Row If Cells(i, 8) = "IMMS" Then xNew_Row = xNew_Row + 1 Sheets("Actual").Range("A" & xNew_Row & ":H" & xNew_Row) = _ Array(Cells(i, 5), _ "", _ Cells(i, 6), _ Cells(i, 3), _ Cells(i, 7), _ "", _ Cells(i, 2), _ Cells(i, 1)) End If Next
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|My MS 2013 Ribbon has disappeared or does not go to Home as default.||6||20|
|Desktop in File-open on Excel||7||35|
|Command button to lock and unlock sheet to protect formulas in Excel||6||27|
|EPS image support removed from Office in March 2017||5||55|