Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
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. |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
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. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
creating a bar graph | Excel Discussion (Misc queries) | |||
move from one column to another after a set condition | Excel Worksheet Functions | |||
Move column to in-between existing columns | Excel Discussion (Misc queries) | |||
Running total w/2 columns - Excel | Excel Worksheet Functions | |||
How do I enter a negative dollar amount? | Excel Discussion (Misc queries) |