Is it possible to insert rows based on criteria?

[isaacv22]

Hello,

I'm currently looking to see if it's possible to have a spreadsheet automatically insert (x) rows below based on answering a question?

For instances while filling a cell it'll ask me if this a multi track conveyor y or n?

If Y then it'd ask how many tracks? I'd be able to input a number and it'd add that many rows below.

Is this possible?

Thanks,

Isaac Vasquez

 

[Fluff]

You haven't answered Joe's question yet, please do so.

 

[isaacv22]

How is this question different than what you asked here?

Is it possible to insert rows based on criteria?

Hello, I'm currently looking to see if it's possible to have a spreadsheet automatically insert (x) rows below based on answering a question? For instances while filling a cell it'll ask me if this a multi track conveyor y or n? If Y then it'd ask how many tracks? I'd be able to input a...

www.mrexcel.com

That's a mistake on my part, I'm currently working on this spreadsheet with another one of my collogues and must've posted the question prior to myself, as we're using my computer for this project.

 

[Fluff]

Ok, I have merged both threads as we do not allow duplicate threads.
How about

Sub isaacv()
   Dim Rws As Variant
  
   Rws = InputBox("How many rows do you want?")
   If Rws = "" Then Exit Sub
   If Rws > 1 Then
      ActiveCell.Offset(1).Resize(Rws - 1).EntireRow.Insert
      With Range("C" & ActiveCell.Row).Resize(Rws)
         .Offset(, -1).Resize(, 3).FillDown
         .Value = Evaluate("""Conveyor "" & row(1:" & Rws & ")")
      End With
   End If
End Sub

 

[isaacv22]

Ok, I have merged both threads as we do not allow duplicate threads.
How about

Sub isaacv()
   Dim Rws As Variant
 
   Rws = InputBox("How many rows do you want?")
   If Rws = "" Then Exit Sub
   If Rws > 1 Then
      ActiveCell.Offset(1).Resize(Rws - 1).EntireRow.Insert
      With Range("C" & ActiveCell.Row).Resize(Rws)
         .Offset(, -1).Resize(, 3).FillDown
         .Value = Evaluate("""Conveyor "" & row(1:" & Rws & ")")
      End With
   End If
End Sub

Hello Fluff,

Thanks for combining both threads. To further explain I would like the highlighted cells to be able to be copied down to the amount of inserted cells. So if I select cell C5 then push Multiple Tracks Button on top, and input 10 rows. Would it be possible to have the cell to the left of the active cell (in this case A5) and the cell to the right of the active cell (F5) be copied down to the inserted cells based on the x amount of rows inputted?

SAP Autofill Ver_3.2.xlsm
	A		C			F		H
1
2	Conveyor		Track			Master Tag		Track Length
4	Conveyor 1		1			FXHA03VAJ
5	Conveyor 2		1			XTFJKLXCR
6			2
7			3
8	Conveyor 3		1			WHH89YHRY
9
10
11
12
13
14
15
16
Formula Sheet

Cells with Data Validation
Cell	Allow	Criteria
F4:F16	List	=QR_Validation

 

[Fluff]

How about

Sub isaacv()
   Dim Rws As Variant
   
   Rws = InputBox("How many rows do you want?")
   If Rws = "" Then Exit Sub
   If Rws > 1 Then
      ActiveCell.Offset(1).Resize(Rws - 1).EntireRow.Insert
      With Range("C" & ActiveCell.Row).Resize(Rws)
         .Offset(, -2).FillDown
         .Offset(, 3).FillDown
         .Value = Evaluate("""Conveyor "" & row(1:" & Rws & ")")
      End With
   End If
End Sub

 

[isaacv22]

How about

Sub isaacv()
   Dim Rws As Variant
  
   Rws = InputBox("How many rows do you want?")
   If Rws = "" Then Exit Sub
   If Rws > 1 Then
      ActiveCell.Offset(1).Resize(Rws - 1).EntireRow.Insert
      With Range("C" & ActiveCell.Row).Resize(Rws)
         .Offset(, -2).FillDown
         .Offset(, 3).FillDown
         .Value = Evaluate("""Conveyor "" & row(1:" & Rws & ")")
      End With
   End If
End Sub

Worked like a charm, thank you very much! I greatly appreciate your help!

 

[Fluff]

Glad we could help & thanks for the feedback.