Moving without Pasting

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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
 
Back
Top