Hello,
From a userform I execute a macro that copies range r to the lastrow in range 2.
However, I want to add the value form a textbox (txtNamn) in the userform to
every row that gets pasted in range r2, I want the values in column D.
I suppose I have to use me.txtNamn to get the value, but how do I got about
adding it to every row?
Thanks in advance
Sub SparaRum() Dim r As Range Set r = ActiveSheet.Range("F13:H" & ActiveSheet.Range("G" & Rows.Count).End(xlUp).Row) Set R2 = Sheets("RumPaket").Range("A" & Rows.Count).End(xlUp).Offset(1, 0) r.Copy R2.PasteSpecial xlValues End Sub
Bookmarks