ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Worksheet Functions (https://www.excelbanter.com/excel-worksheet-functions/)
-   -   when I enter an amount in the A column move the row to another she (https://www.excelbanter.com/excel-worksheet-functions/87248-when-i-enter-amount-column-move-row-another-she.html)

Jay95

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

JLatham

when I enter an amount in the A column move the row to another she
 
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

"Jay95" wrote:

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



All times are GMT +1. The time now is 07:03 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com