What's on your Ctrl+V?
- Thread starter DanTheMan
- Start date
Just copied someone's predictions from the Silverpaw prediction league so:
Blackburn 1-0 Newcastle
Bolton 1-2 Manchester United
Chelsea 3-0 Stoke
Manchester City 1-0 Wigan
Sunderland 0-1 Aston Villa
West Brom 1-0 Middlesbrough
Hull 0-2 Arsenal
West Ham 1-0 Fulham
Tottenham 1-1 Portsmouth
Liverpool 2-0 Everton
Edit: Turns out they were BaZ87's
Blackburn 1-0 Newcastle
Bolton 1-2 Manchester United
Chelsea 3-0 Stoke
Manchester City 1-0 Wigan
Sunderland 0-1 Aston Villa
West Brom 1-0 Middlesbrough
Hull 0-2 Arsenal
West Ham 1-0 Fulham
Tottenham 1-1 Portsmouth
Liverpool 2-0 Everton
Edit: Turns out they were BaZ87's
Soldato
- Joined
- 27 Jul 2005
- Posts
- 13,122
- Location
- The Orion Spur
\<Album Artist>\<Album>\<Track#:2> <Artist> - <Title>
Associate
- Joined
- 12 Jul 2003
- Posts
- 2,199
- Location
- Colchester, Essex
Resources on Moon [8:111:8] (Player 'gagomas')
at 01-13 09:35:15
Metal: 586.222 Crystal: 202.962
Deuterium: 581.235 Energy: 0
Total: 1.370.419 Raid: 30
Fleets
Light Fighter 400 Heavy Fighter 18
Cruiser 52 Battleship 312
Recycler 168 Espionage Probe 20
Battlecruiser 43
Defense
Rocket Launcher 314
Buildings
Robotics Factory 7 Lunar Base 6
Sensor Phalanx 4
Research
Espionage Technology 10 Computer Technology 10
Weapons Technology 11 Shielding Technology 11
Armour Technology 12 Energy Technology 8
Hyperspace Technology 7 Combustion Drive 11
Impulse Drive 7 Hyperspace Drive 6
Laser Technology 12 Ion Technology 8
Plasma Technology 7 Expedition Technology 4
Chance of counter-espionage:15%
Attack
at 01-13 09:35:15
Metal: 586.222 Crystal: 202.962
Deuterium: 581.235 Energy: 0
Total: 1.370.419 Raid: 30
Fleets
Light Fighter 400 Heavy Fighter 18
Cruiser 52 Battleship 312
Recycler 168 Espionage Probe 20
Battlecruiser 43
Defense
Rocket Launcher 314
Buildings
Robotics Factory 7 Lunar Base 6
Sensor Phalanx 4
Research
Espionage Technology 10 Computer Technology 10
Weapons Technology 11 Shielding Technology 11
Armour Technology 12 Energy Technology 8
Hyperspace Technology 7 Combustion Drive 11
Impulse Drive 7 Hyperspace Drive 6
Laser Technology 12 Ion Technology 8
Plasma Technology 7 Expedition Technology 4
Chance of counter-espionage:15%
Attack
Sub Test()
'Copy all rows that contain WNW
Dim Rng As Range
Dim rngdest As Range
Dim what As String
Dim N As Integer
what = "WNW"
N = "1"
Range("A501").Select
ActiveCell.FormulaR1C1 = "T"
Range("A501").Select
Do
Set Rng = ActiveSheet.Range("A1:N500").Find(what)
If Rng Is Nothing Then
Exit Do
Else
Rows(Rng.Row).Cut
Set rngdest = ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0)
rngdest.Select
ActiveSheet.Paste
End If
Loop
'Deletes unused Row
Rows("1:501").Select
Selection.Delete Shift:=xlToLeft
'Deletes unused colums
Columns("A:C").Select
Selection.Delete Shift:=xlToLeft
Columns("B:H").Select
Selection.Delete Shift:=xlToLeft
Columns("D").Select
Selection.Delete Shift:=xlToLeft
'Reformats Row A to number with 0 decimal places.
Columns("A:A").Select
Selection.NumberFormat = "0"
Range("B1").Select
ActiveCell.FormulaR1C1 = "SERVICEPRD"
Range("B1").Select
Range("C1").Select
ActiveCell.FormulaR1C1 = "ACTION"
For Each Cell In Range("B2:B500")
Cell.Value = Replace(Cell.Value, "locked removed", "SRV-00038-011", 1, 1, vbTextCompare)
Next Cell
For Each Cell In Range("B2:B500")
Cell.Value = Replace(Cell.Value, "Locked restored", "SRV-00038-010", 1, 1, vbTextCompare)
Next Cell
If WorksheetFunction.CountA(Range("B2:B500")) = 0 Then
MsgBox "All cells are empty", vbOKOnly
Exit Sub
End If
On Error Resume Next
Range("B2:B500").SpecialCells(xlCellTypeBlanks) = "SRV-00038-010"
On Error GoTo 0
'Row B Rename Blanks to SRV-00038-010
Range("C2").Select
ActiveCell.FormulaR1C1 = "2"
Selection.AutoFill Destination:=Range("C2:C500")
' Below, I am deleting all rows with blank A column
Dim Rng2 As Range, ix As Long
Set Rng2 = Intersect(Range("A1:A505"), ActiveSheet.UsedRange)
For ix = Rng2.Count To 1 Step -1
If Trim(Replace(Rng2.Item(ix).Text, Chr(160), Chr(32))) = "" Then
Rng2.Item(ix).EntireRow.Delete
End If
Next
ActiveWorkbook.SaveAs ("K:\BTS FOBO\Products\Blackberry\Content lock\") & Format(Now, "dd-mm-yy") & ".csv"
End Sub
'Copy all rows that contain WNW
Dim Rng As Range
Dim rngdest As Range
Dim what As String
Dim N As Integer
what = "WNW"
N = "1"
Range("A501").Select
ActiveCell.FormulaR1C1 = "T"
Range("A501").Select
Do
Set Rng = ActiveSheet.Range("A1:N500").Find(what)
If Rng Is Nothing Then
Exit Do
Else
Rows(Rng.Row).Cut
Set rngdest = ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0)
rngdest.Select
ActiveSheet.Paste
End If
Loop
'Deletes unused Row
Rows("1:501").Select
Selection.Delete Shift:=xlToLeft
'Deletes unused colums
Columns("A:C").Select
Selection.Delete Shift:=xlToLeft
Columns("B:H").Select
Selection.Delete Shift:=xlToLeft
Columns("D").Select
Selection.Delete Shift:=xlToLeft
'Reformats Row A to number with 0 decimal places.
Columns("A:A").Select
Selection.NumberFormat = "0"
Range("B1").Select
ActiveCell.FormulaR1C1 = "SERVICEPRD"
Range("B1").Select
Range("C1").Select
ActiveCell.FormulaR1C1 = "ACTION"
For Each Cell In Range("B2:B500")
Cell.Value = Replace(Cell.Value, "locked removed", "SRV-00038-011", 1, 1, vbTextCompare)
Next Cell
For Each Cell In Range("B2:B500")
Cell.Value = Replace(Cell.Value, "Locked restored", "SRV-00038-010", 1, 1, vbTextCompare)
Next Cell
If WorksheetFunction.CountA(Range("B2:B500")) = 0 Then
MsgBox "All cells are empty", vbOKOnly
Exit Sub
End If
On Error Resume Next
Range("B2:B500").SpecialCells(xlCellTypeBlanks) = "SRV-00038-010"
On Error GoTo 0
'Row B Rename Blanks to SRV-00038-010
Range("C2").Select
ActiveCell.FormulaR1C1 = "2"
Selection.AutoFill Destination:=Range("C2:C500")
' Below, I am deleting all rows with blank A column
Dim Rng2 As Range, ix As Long
Set Rng2 = Intersect(Range("A1:A505"), ActiveSheet.UsedRange)
For ix = Rng2.Count To 1 Step -1
If Trim(Replace(Rng2.Item(ix).Text, Chr(160), Chr(32))) = "" Then
Rng2.Item(ix).EntireRow.Delete
End If
Next
ActiveWorkbook.SaveAs ("K:\BTS FOBO\Products\Blackberry\Content lock\") & Format(Now, "dd-mm-yy") & ".csv"
End Sub
Soldato
- Joined
- 4 Nov 2004
- Posts
- 4,220
- Location
- Seattle area, USA
height: 48px;
Associate
- Joined
- 9 Jan 2006
- Posts
- 1,440
- Location
- Nottingham
![[TW]Fox](/data/man-of-honor/2009.png){kind=avatar}
Resources on Blagulon Kappa [2:87:5] (Player 'Rob232')
at 01-13 11:00:31
Metal: 190.262 Crystal: 63.680
Deuterium: 259.291 Energy: 6.449
Fleets
Large Cargo 40
Defense
Light Laser 700 Gauss Cannon 12
Small Shield Dome 1 Large Shield Dome 1
Anti-Ballistic Missiles 10
Buildings
Metal Mine 26 Crystal Mine 21
Deuterium Synthesizer 17 Solar Plant 26
Fusion Reactor 8 Robotics Factory 10
Nanite Factory 2 Shipyard 8
Metal Storage 6 Crystal Storage 4
Deuterium Tank 3 Missile Silo 2
Research
Espionage Technology 10 Computer Technology 11
Weapons Technology 11 Shielding Technology 10
Armour Technology 11 Energy Technology 12
Hyperspace Technology 8 Combustion Drive 12
Impulse Drive 8 Hyperspace Drive 7
Laser Technology 12 Ion Technology 5
Plasma Technology 7 Expedition Technology 6
oh, um, obviously very work related, (ahem)
at 01-13 11:00:31
Metal: 190.262 Crystal: 63.680
Deuterium: 259.291 Energy: 6.449
Fleets
Large Cargo 40
Defense
Light Laser 700 Gauss Cannon 12
Small Shield Dome 1 Large Shield Dome 1
Anti-Ballistic Missiles 10
Buildings
Metal Mine 26 Crystal Mine 21
Deuterium Synthesizer 17 Solar Plant 26
Fusion Reactor 8 Robotics Factory 10
Nanite Factory 2 Shipyard 8
Metal Storage 6 Crystal Storage 4
Deuterium Tank 3 Missile Silo 2
Research
Espionage Technology 10 Computer Technology 11
Weapons Technology 11 Shielding Technology 10
Armour Technology 11 Energy Technology 12
Hyperspace Technology 8 Combustion Drive 12
Impulse Drive 8 Hyperspace Drive 7
Laser Technology 12 Ion Technology 5
Plasma Technology 7 Expedition Technology 6
oh, um, obviously very work related, (ahem)
