Moving without Pasting

Hi All

I'am a secretary of a federation of 10 clubs that are split in to 3 sections
North - East - West we race each week and I produce a result of trhe Open
Positions 1 -50.
The numbers 1-50 are in column A. In Column B are the Section Positions
e.g. 1 West and so on down to position 50 in Column A. There is a variation
that each section has at least some positions in the Open Result - West may
have 13 - East could have 27 and North 10. If I place 3 new tables on the
sheet Named - North - East - West each using 20 rows is it possible when
entering in column B the section and position say West 1 It will
automatically insert in the West Table at Position 1 - and on entering say
North 10 it would auto to position 10 on the North table and so on until all
tables are full at position 20.
I know this is long winded but it was the only way I could explain it.

Any Help Much Appreciated

Cheers ----- Mully

I hope that I understood your issue correctly.

I my example below the sheets are called Open, North, West and South.
The numbers 1 to 50 are the A2 to A51 in the "Open" sheet. The output in the West, North and South sheets will appear in B2 to B21

Regards

Brian

Sub filter()

Dim i As Integer
Dim w As Integer
Dim n As Integer
Dim s As Integer

i = 1
w = 1
n = 1
s = 1

For i = 1 To 50

NSW = Worksheets("Open").Cells(1 + i, 2)
Num = Worksheets("Open").Cells(1 + i, 1)

If NSW = "West" Then
Worksheets("West").Cells(1 + w, 2) = Num
w = w + 1
End If

If NSW = "North" Then
Worksheets("north").Cells(1 + n, 2) = Num
n = n + 1
End If

If NSW = "South" Then
Worksheets("south").Cells(1 + s, 2) = Num
s = s + 1
End If


Next i

End Sub

Hi Bonzo 123

Thanks for your help will try later today to implement what you have
suggested and with a fair wind I will get back to you - hopefully with
everything working OK.

Cheers ----- Mully

"Bonzo123" wrote:

>
> I hope that I understood your issue correctly.
>
> I my example below the sheets are called Open, North, West and South.
> The numbers 1 to 50 are the A2 to A51 in the "Open" sheet. The output
> in the West, North and South sheets will appear in B2 to B21
>
> Regards
>
> Brian
>
> Sub filter()
>
> Dim i As Integer
> Dim w As Integer
> Dim n As Integer
> Dim s As Integer
>
> i = 1
> w = 1
> n = 1
> s = 1
>
> For i = 1 To 50
>
> NSW = Worksheets("Open").Cells(1 + i, 2)
> Num = Worksheets("Open").Cells(1 + i, 1)
>
> If NSW = "West" Then
> Worksheets("West").Cells(1 + w, 2) = Num
> w = w + 1
> End If
>
> If NSW = "North" Then
> Worksheets("north").Cells(1 + n, 2) = Num
> n = n + 1
> End If
>
> If NSW = "South" Then
> Worksheets("south").Cells(1 + s, 2) = Num
> s = s + 1
> End If
>
>
> Next i
>
> End Sub
>
>
> --
> Bonzo123
> ------------------------------------------------------------------------
> Bonzo123's Profile: http://www.excelforum.com/member.php...o&userid=24182
> View this thread: http://www.excelforum.com/showthread...hreadid=382313
>
>

Sorry should be -- Hi Brian

Thanks --- Mully

"Bonzo123" wrote:

>
> I hope that I understood your issue correctly.
>
> I my example below the sheets are called Open, North, West and South.
> The numbers 1 to 50 are the A2 to A51 in the "Open" sheet. The output
> in the West, North and South sheets will appear in B2 to B21
>
> Regards
>
> Brian
>
> Sub filter()
>
> Dim i As Integer
> Dim w As Integer
> Dim n As Integer
> Dim s As Integer
>
> i = 1
> w = 1
> n = 1
> s = 1
>
> For i = 1 To 50
>
> NSW = Worksheets("Open").Cells(1 + i, 2)
> Num = Worksheets("Open").Cells(1 + i, 1)
>
> If NSW = "West" Then
> Worksheets("West").Cells(1 + w, 2) = Num
> w = w + 1
> End If
>
> If NSW = "North" Then
> Worksheets("north").Cells(1 + n, 2) = Num
> n = n + 1
> End If
>
> If NSW = "South" Then
> Worksheets("south").Cells(1 + s, 2) = Num
> s = s + 1
> End If
>
>
> Next i
>
> End Sub
>
>
> --
> Bonzo123
> ------------------------------------------------------------------------
> Bonzo123's Profile: http://www.excelforum.com/member.php...o&userid=24182
> View this thread: http://www.excelforum.com/showthread...hreadid=382313
>
>