Hi,
PFA sample file.
In sheet1 I have transection list. While entering data if i select Transection type as "[Transfer]", I need vba to copy same row and paste it below.
Regards,
Vishnu
Hi,
PFA sample file.
In sheet1 I have transection list. While entering data if i select Transection type as "[Transfer]", I need vba to copy same row and paste it below.
Regards,
Vishnu
Hifliers!!
Please mark your thread as SOLVED:
Hi there,
since You want only to copy the 'Transfer' row, You can manage that with worksheet_change event:
I think, that You want to do some changes, but You do not mention that in Your post.Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Columns(10)) Is Nothing And Target.Count = 1 Then Range("A" & Target.Row).Resize(1, 13).Copy Range("A" & Target.Row + 1) End If Application.CutCopyMode = False End Su
Regards
Miroslav R.
(If You like my solutions, feel free to add reputation.)
Thanks!! M.R.
But here if i enter any value it copies row below, What i want is if i select [Transfer] then only copy and paste row.
As you said is right i want to do some changes in value after paste, I will try it self if not possible will create thread.
Thanks again!!
Hi there,
sorry for that wrong post...
Fixed:
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Columns(10)) Is Nothing And Target.Count = 1 And Target.Text = "[Transfer]" Then Range("A" & Target.Row).Resize(1, 13).Copy Range("A" & Cells(2, 10).End(xlDown).Row + 1) End If Application.CutCopyMode = False End Sub
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks