Data separation to new worksheet

[ckearney]

Hello

I'd like to be able to move (cut and paste) row data (recognised by a change in a column) so this might be a number of rows by columns to different worksheets on the same workbook and (hopefully but not essential - name the worksheets by the name of the column)

Any ideas?

[Richard Buttrey]

Hello

I'd like to be able to move (cut and paste) row data (recognised by a change in a column) so this might be a number of rows by columns to different worksheets on the same workbook and (hopefully but not essential - name the worksheets by the name of the column)

Any ideas?

Hi,

I don't quite understand when you talk about a change in a column. Do you mean when a cell in a row in the column changes compared to the cell in the row above it, or are you referring to changes on the same row between columns, or maybe both?

However my general approach to tasks like this is:
Set up a loop in a VBA procedure which tests a cell in the desired column with the cell below it. I generally use the loop counter in something like

IF Range("A1").CELLS(loopcounter,1)=Range("A1").CELLS(loopcounter + 1,1) Then
'macro code to cut the data. 
End If

In this case set up a variable which remembers the row number of the previous change in value and use this in determining how many rows you need to include in the cut.

As you're doing the cutting, identify in another variable the column heading of the data being cut, and use this variable when you do a :

Worksheets.Add
Activesheet.Name = "column variable name"

HTH