Contextual Guidance at the moment of need helps your employees adopt to new software or processes instantly. Boost knowledge retention and employee engagement step-by-step with one easy solution.
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
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|VBA how to use Like operator with phrasal verb?||4||24|
|Excel 2007 Random Generate List Based on Defined Source Cells||3||28|
|Adjusting a Button Control to register a different number||12||40|
|count values within multiple bands||7||33|
Join the community of 500,000 technology professionals and ask your questions.