Inserisci row in base all'entrata dell'utente in più fogli

Excel 2010 Cercando la macro per inserire righe in base all'entrata dell'utente. L'utente che fornisce il numero di row per inserire la row.

  1. Sulla base dell'input dell'utente – La row da inserire in più fogli (account, process, dati, … e così via) ha 19 fogli
  2. Copia la formula e il formato dalla row sopra e riaggancia automaticamente.

Finora, in grado di get sotto il codice per singolo foglio basato sulla selezione della cella

Sperando di get alcune risposte …

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 

Modificato:

 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