Home |
Search |
Today's Posts |
#1
|
|||
|
|||
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 |
#2
|
|||
|
|||
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 |
#3
|
|||
|
|||
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 |
#4
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
pasting or moving formula cells without updating formulas | Excel Discussion (Misc queries) | |||
Pasting numbers and formulas without pasting format. | Excel Discussion (Misc queries) | |||
How to remove an extra line added by excel when pasting into notep | Excel Discussion (Misc queries) | |||
Plotting moving average line on a chart | Charts and Charting in Excel | |||
pasting into an excel template without losing the formatting | Excel Discussion (Misc queries) |