when I enter an amount in the A column move the row to another she

G

Guest

When I enter an amount into the A column, move a group of cells in that row
to another sheet in Excel.
 
G

Guest

Put this code into the worksheet's code section - not the workbook or a
general module. I set up variables so you can provide the name of the sheet
that the information is to be copied to and specify the columns in the row to
be copied.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim SourceSheetName As String
Dim DestinationSheetName As String
Dim StartColumnForCopy As String
Dim EndColumnForCopy As String
Dim AnyRange As String

SourceSheetName = ActiveSheet.Name ' save this sheet name

'change as needed
DestinationSheetName = "Sheet2" ' change as required
StartColumnForCopy = "B"
EndColumnForCopy = "E"
'end of user needed changes

If Target.Column <> 1 Then ' was not in column A
Application.EnableEvents = True
Exit Sub
End If
Application.EnableEvents = False
Application.ScreenUpdating = False
AnyRange = StartColumnForCopy & Target.Row & ":" _
& EndColumnForCopy & Target.Row
Range(AnyRange).Select
Selection.Copy
ThisWorkbook.Sheets(DestinationSheetName).Activate
ActiveSheet.Range(AnyRange).Select
ActiveSheet.Paste
Sheets(SourceSheetName).Select
Range(Target.Address).Select
Application.CutCopyMode = False
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top