Copying rows into another worksheet......

[Steve Jones]

Hi,

I have a spreadsheet for sales information with a sales region allocated to each record.

Is there a way that I could create a formula/Macro that will copy rows with the same region into a seperate worksheet?. The sales region column is "g" if this helps!?!?!

Any assistance would be really usual as it will save me hours of my time.

Thanks in advance.

Steve

 

[SteveO59L]

Why not auto filter on your sales region and just copy and paste into a new sheet ?

 

[R_Stephens]

Hi there,

The following code will copy any lines with a selected Region in column G to Sheet 2. Its quiet simple, so make sure you empty Sheet2 before re-running it as it will overwrite any lines there previously. Make sure the code copies things as you need before we overcomplicate things.
From your sheet with Data on it, run the macro and type in the Region you want to copy to Sheet2.

Dim criteria As String
Dim x As Long
Dim y As Long
criteria = InputBox("Enter Region to Copy", "Select Region")
y = 1
For x = 1 To 65536
    If Cells(x, 7).Value = criteria Then
        Cells(x, 7).EntireRow.Copy
        Sheets("Sheet2").Cells(y, 1).PasteSpecial
        y = y + 1
    End If
Next x
Application.CutCopyMode = False

Hope this helps

Richard

 

[Steve Jones]

That is great!!.

Thanks for your help