Macro is copy row and paste row based on user input

[webbooo]

Hello,

I currently have a macro that I recorded that basically copies row 15 and the inserts the copied row to row 18.
While this works ok, over time the number of rows will increase as such that row 15 will be a row that shouldnt be copied.
I'd like to like to look at having a macro that prompts the user which row number should be copied and then prompts for which row number it should be inserted into.

Any help would be appreciated.

Thanks
Adam

 

[mrshl9898]

How does the user determine which rows they are? Might be a way to make that easier.

 

[footoo]

Sub v()
Dim c, d
c = Application.InputBox("Enter the row number to be copied.", Type:=1)
If TypeName(c) = "Boolean" Then Exit Sub
d = Application.InputBox("Enter the row number where to insert.", Type:=1)
If TypeName(c) = "Boolean" Then Exit Sub
Rows(Val(c)).Copy
Rows(Val(d)).Insert
Application.CutCopyMode = False
End Sub

 

[mrshl9898]

Personally a quicker option.

Assign this to a shortcut (ctrl+shift+v perhaps), copy the row, select the location and use the shortcut

Sub v()

Rows(ActiveCell.Row).Insert

End Sub

 

[footoo]

Personally a quicker option.

Assign this to a shortcut (ctrl+shift+v perhaps), copy the row, select the location and use the shortcut

Sub v()

Rows(ActiveCell.Row).Insert

End Sub

The copy/paste might be part of a larger macro.
Otherwise, it's just as easy to do a manual copy/paste.

 

[mrshl9898]

might be.
not as fast tho.

 

[webbooo]

Sub v()
Dim c, d
c = Application.InputBox("Enter the row number to be copied.", Type:=1)
If TypeName(c) = "Boolean" Then Exit Sub
d = Application.InputBox("Enter the row number where to insert.", Type:=1)
If TypeName(c) = "Boolean" Then Exit Sub
Rows(Val(c)).Copy
Rows(Val(d)).Insert
Application.CutCopyMode = False
End Sub

I'd like to simplify as much as possible as the users of the spreadsheet are not experienced with excel. If they can simply enter the row number to copy and then enter the row number to paste/insert it will make things easy. Doing it manually will create confusion as the use of the spreadsheet and number of rows grows.

 

[footoo]

Does the suggested macro do what you want?

 

[webbooo]

Does the suggested macro do what you want?

Yes, thank you very much for your help

 

[Buns1976]

Sub v()
Dim c, d
c = Application.InputBox("Enter the row number to be copied.", Type:=1)
If TypeName(c) = "Boolean" Then Exit Sub
d = Application.InputBox("Enter the row number where to insert.", Type:=1)
If TypeName(c) = "Boolean" Then Exit Sub
Rows(Val(c)).Copy
Rows(Val(d)).Insert
Application.CutCopyMode = False
End Sub

Does the suggested macro do what you want?

Does the suggested macro do what you want?

How would one modify this code to insert the copied row into a row in another sheet?