NFL Gambling News, Pro and College Links , Advice, Picks.

Online Poker Guide
________________________________
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 9.2.2004 by Peter Weisenbach
'

'

Dim col_d_1 As Long
Dim col_a_1 As Long
MsgBox ActiveWindow.RangeSelection.Address

' copy of the selection
Worksheets("Sheet1").Activate
' Range("resulta1").Select
Range("A1").Select
Columns("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("F1"), Unique:=True

MsgBox "column count selected : " & Selection.Columns.Count & " cells selected:" & Selection.Cells.Count

'

Selection.Copy
' ____________________________- till here select the
MsgBox ActiveCell
' down the Col to select free cell

col_d_1 = 1
' Range("col_d_1").Activate
ActiveCell.End(xlDown).Select

Selection.Offset(1, 0).Select
MsgBox ActiveCell
'
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

MsgBox ActiveCell
'
Application.CutCopyMode = False
MsgBox "first cell:" & ActiveCell
'

Range("d80:d90").Copy
Range("e80:e90").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=False
Application.CutCopyMode = False


Range("C70:c90").Select
Selection.Copy
Range("f70:f90").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=False
Application.CutCopyMode = False


End Sub



________________________________
Sub paste()
' paste Macro
' Macro recorded 3/6/2003 by peter
'
' Keyboard Shortcut: Ctrl+Shift+P
Static counter As Integer
Static counter_col As Integer
Dim searched_for
Worksheets("SearchGOOGLE").Activate
If counter = 0 Then counter = 3 'row
If counter_col = 0 Then counter_col = 2 'col

' counter = 5
' searchvalue for GOOGLE here
' MsgBox searched_for
' MsgBox "look"
'
' Selection.Offset(3, 1).Range("A1").Copy
' MsgBox "look"


searched_for = Range("m8").Value
Range("AR2").Select
ActiveCell.Value = searched_for 'put the Searchvalue there
'
Range("M4").Select
ActiveSheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:= _
False
' Range("M4").Select
Range("V5:X204").Select
Selection.Copy
Range("Y5").Select
Selection.PasteSpecial paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Selection.Sort Key1:=Range("Y5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
'
' Prepare top 50 for this keyword
'
Range("AP3:AP1000").Select ' from here
Selection.Copy
Range("AR3").Select ' to here
Selection.PasteSpecial paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
' values copied from AP3:AP1000 to AR3:
' Compress with Adv.Filter
'
Columns("AR:AR").Select
Columns("AR:AR").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Columns( _
"AS:AS"), Unique:=True
Columns("AS:AS").Select
Selection.Copy
'
ActiveCell.End(xlDown).Select
' MsgBox ActiveCell.Value
' save to COLLECT-Sheet
'
Selection.Offset(1, 0).Select
ActiveWindow.ScrollRow = 1
'
Range("AS1:AT103").Select
Selection.Copy
'
Sheets("Collection").Select
Range("a1").Select
ActiveSheet.paste
'
MsgBox counter


Range("A:B").Select
Selection.Copy
' col, row
MsgBox "col/row:" & counter & "/" & counter_col

'
Sheets("Collection").Select
'
ActiveCell.Offset(0, 0).Columns("A:B").EntireColumn.Select
Application.CutCopyMode = False
Selection.Copy

ActiveCell.Offset(0, counter).Range("A1").Select
ActiveSheet.paste


' Worksheets("collection").Cells(counter_col, counter).Activate
' Next counter
Range("a1").Select
Selection.Copy
ActiveSheet.paste
Application.CutCopyMode = False
' MsgBox "col/row:" & counter & "/" & counter_col

counter = counter + 2
counter_col = counter_col + 2
Worksheets("SearchGOOGLE").Activate
Range("a1").Select

End Sub

The Hobbit Name Generator