Select from freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely and get projects done right.
NumRows = Application.InputBox("How many rows do you wish to add?", Type:=1) UpperBound = NumRows 'Display if user chooses Cancel button If NumRows = False Then MsgBox "Add function cancelled", vbInformation Application.EnableEvents = True Exit Sub End If 'Add number of rows specified lastRow = findLastRows For counter = 1 To UpperBound Rows(lastRow + 1).Select Selection.Insert shift:=xlDown lastRow = lastRow + 1 newRow = Rows(lastRow).Row ReDim Preserve AddNewRowArray(UpperBound) AddNewRowArray(counter) = newRow Rows(lastRow - 1).Copy Rows(newRow).PasteSpecial _ Paste:=xlPasteFormats Next counter
|Trying to write a script in Outlook that forwards emails with a new subject...||29||45|
|how to delete specific files and folders with VBA||3||24|
|VBA name newly created sheet||4||21|
|Excel calculate based on 'x' in column||2||22|