Zeile einfügen basierend auf Benutzereingabe in mehreren Blättern

Question

Excel 2010 Suchen nach Makro zum Einfügen von Zeilen basierend auf Benutzereingabe. Benutzer, der Zeilennummer zum Einfügen einer Zeile angibt.

1. Basierend auf Benutzereingabe - Zeile in mehreren Blättern (Konten, Prozess, Daten, ... und so weiter) eingesetzt werden, haben 19 Blätter
2. Copy Formel und das Format von oben nach unten und automatisches Ausfüllen Reihe.

Bisher können unter Code für Einzelblatt erhalten, basierend auf Auswahl der Zelle

der Hoffnung, ein paar Antworten zu bekommen ...

Sub Insert_Row() 
    If Selection.Rows.Count > 1 Then Exit Sub 
    With Selection 
     .EntireRow.Copy 
     .Offset(1).EntireRow.Insert 
     Application.CutCopyMode = False 
     On Error Resume Next 
     .Offset(1).EntireRow.SpecialCells(xlCellTypeConstants).ClearContents 
     On Error GoTo 0 
    End With 
End Sub 

Answer 1

Editiert:

Sub Insert_Row() 
    Dim SelRow as Integer, i as Integer, j as Integer 
    If Selection.Rows.Count > 1 Then Exit Sub 
    SelRow = Selection.Row 
    On Error Goto nonNumeric 
    j = InputBox("What row to insert data into?", "Pick a row") 
    On Error GoTo 0 
    GoTo NumericEntry 

nonNumeric: 
    On Error GoTo 0 
    MsgBox("Please try again with a number.") 
    Exit Sub 

NumericEntry: 
    For i = 1 to 19 
     Sheets(1).Select 
     Rows(SelRow).copy 
     Sheets(i).Select 
     Rows(j).Insert 
     On Error Resume Next 
      Rows(j).SpecialCells(xlCellTypeConstants).ClearContents 
     On Error GoTo 0 
    Next i 
End Sub