LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #6   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 493
Default cut & paste between sheets based on cell data

One way:

If it's only to operate in the sheet named OPEN, put this in the
sheet's code module (right-click on the sheet's tab and select View
Code):

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim sAddr As String
With Target
If .Count 1 Then Exit Sub
sAddr = .Address
Application.EnableEvents = False
.EntireRow.Cut Sheets(.Value).Range( _
"A" & Rows.Count).End(xlUp).Offset(1, 0)
Range(sAddr).EntireRow.Delete
Application.EnableEvents = True
End With
End Sub

In article ,
"Mike Reisinger" wrote:

sorry to leave out some key info. The row data is typically inputted
in the OPEN sheet. Column A (status) is a validation list. As the status
changes to HIRED, TRANSFER, etc, I would like the entire row to be cut and
pasted into the appropriate sheet. I would like it to be able to move
around between all sheets depending on the Column A (status).

Also, where exactly to I paste this?

 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Paste data based on multiple criteria Tacrier Excel Worksheet Functions 0 April 11th 08 05:18 PM
Compare two wk sheets with common data using copy paste macro conejo Excel Worksheet Functions 0 October 8th 07 09:21 AM
Export data to sheets based on value Hywel Excel Discussion (Misc queries) 2 November 11th 05 04:53 PM
populating sheets based on data from parent sheets seve Excel Discussion (Misc queries) 2 January 15th 05 09:22 PM
Cut & Paste Data into different worksheet based on specific criteria hailnorm[_2_] Excel Programming 2 December 6th 03 10:56 PM


All times are GMT +1. The time now is 01:13 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"