BMHuettinger
Board Regular
- Joined
- May 14, 2013
- Messages
- 54
Good evening,
I have a macro that looks for user-defined criteria, and then inserts a new row every time the criteria is found.
What I need to do now is populate the A and B cells in the NEW row with additional user-defined criteria ( cell A? will be a number, and cell B? will be a text name).
here's my code
Thanks in advance!!
I have a macro that looks for user-defined criteria, and then inserts a new row every time the criteria is found.
What I need to do now is populate the A and B cells in the NEW row with additional user-defined criteria ( cell A? will be a number, and cell B? will be a text name).
here's my code
Code:
Sub AddToAllAccounts_Click()
Dim uiDeptToShow As String
uiDeptToShow = Application.InputBox("Insert row after which ledger number", Type:=2)
If uiDeptToShow = "False" Then Exit Sub: Rem Cancel pressed
With Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
Selection.AutoFilter Field:=1, Criteria1:="=" & uiDeptToShow, Operator:=xlAnd
For Each myarea In .Offset(1).Resize(.Rows.Count - 1).SpecialCells(12).Areas
myarea.Offset(1).EntireRow.Insert
Next myarea
.AutoFilter
End With
End Sub
Thanks in advance!!