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 CreateFile() Dim statuswb As Workbook Dim I As Integer Dim NS As Integer Dim LastRow As Integer I = 2 'Beginning point of the loop NS = 1 'Beginning point of load file for status LastRow = Range("A65536").End(xlUp).Row + 1 Set statuswb = Workbooks.Add ActiveWorkbook.SaveAs Filename:="C:\my documents\Status" & CStr(Format(Now, "MMDDYYHHm")) & ".xls" Windows("CreateFileDev.xls").Activate Do While Cells(I, 10).Value <> "Y" And Cells(I, 11) <> "Not in System" If Cells(I, 1) = "Modify Status" Then Cells(I, 12).Select Selection.Copy statuswb.Activate Cells(NS, 1).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Windows("CreateFileDev.xls").Activate Cells(I, 10).Select ActiveCell.FormulaR1C1 = "Y" End If I = I + 1 NS = NS + 1 Loop End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.