Auto-Populating cells with user-defined data after adding new rows

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

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!!
 

Excel Facts

Best way to learn Power Query?
Read M is for (Data) Monkey book by Ken Puls and Miguel Escobar. It is the complete guide to Power Query.

Forum statistics

Threads
1,223,246
Messages
6,170,988
Members
452,373
Latest member
TimReeks

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top