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

Random Image Rotation: A List Apart

SPIEGEL ONLINE

WWW.NETWORKSOLUTION.COM

and this:

Sub Make_our_Sites()
'
' Make_our_Sites Macro
' Macro recorded 2/10/2004 by peter
'
' Keyboard Shortcut: Ctrl+Shift+M
'
Dim test As String
Dim sw As String, sw_categ As String
Dim ce_row As Integer ' row in TOP (single keyword, same as TOPcr2)
Dim ce_col As Integer ' col in TOP (single Keyword ; loop)
Dim VOcr1 As Integer ' row VO
Dim VOcc1 As Integer ' col VO (isn't changed in loop)
Dim TOPcr2 As Integer 'row TOP (loops maxtop times)
Dim TOPcc2 As Integer 'col TOP (loops maxvo times)
Dim max_top_row As Integer 'max TOPsites in col
Dim max_top_col As Integer
Dim max_vo As Integer 'max VOsitenames
Dim max_loop1 As Integer ' 1 to end
Dim max_loop2 As Integer ' 1 to end

ce_row = 0
ce_col = 0
VOcr1 = 0 ' vosites
VOcc1 = 0
TOPcr2 = 0 'topsites
TOPcc2 = 0
max_top_row = 59 '59 TOP per keyw (in a col)
max_top_col = 80 ' 80 Keyw TOP (all TOP cols)
max_vo = 530 ' 530 VO
max_loop1 = 1
max_loop2 = 1
'
test = InputBox("Make our sites bold+red ", "J - Title")
If test = "J" Then max_top_col = InputBox("max_top_col:", "2 to ~80")
If test = "J" Then max_top_row = InputBox("max_top_row:", "5 to ~59")
If test = "J" Then max_vo = InputBox("max_vo:", "1 to ~530")
'
Sheets("VOsites").Activate ' to search in Goo_tab
Range("a1").Select
ActiveCell.Offset(0, 0).Select
VOcr1 = VOcr1 + 1
sw = Cells(VOcr1, 1).Value
sw_categ = Cells(VOcr1, 1).Value
' MsgBox sw & "\" & sw_categ
VOcr1 = 0

loop1:
TOPcr2 = 1 'start offset TOP
TOPcc2 = 3 'start offset TOP

For max_loop1 = 1 To max_vo ' 1 to 530
' MsgBox VOcr1 & "=cr \ cc=" & VOcc1
Sheets("VOsites").Activate ' to search in Goo_tab
VOcr1 = VOcr1 + 1
ActiveCell.Offset(1, 0).Select
sw = ActiveCell(VOcr1, 1).Value ' pick a VOsitename
If test = "J" Then MsgBox "search for: " & VOcr1 & "\" & ActiveCell.Value '
' MsgBox "next Loop1"
TOPcr2 = 1 'start offset TOP
TOPcc2 = 3 'start offset TOP
loop2_1: 'inner loop (rows) MsgBox "look in TOP " & Worksheets("TOPsites").Cells(TOPcr2, TOPcc2).Value & "\\\for: " & sw
For max_loop2 = 1 To max_top_row ' 60 in same col
' MsgBox "maxl2\r_2\c_2= " & max_loop2 & " \ " & TOPcr2 & " \ " & TOPcc2
Sheets("TOPsites").Activate ' to search in TOP
If sw = ActiveCell(TOPcr2, TOPcc2).Value Then ActiveCell(TOPcr2, TOPcc2).Font.Bold = True
If sw = ActiveCell(TOPcr2, TOPcc2).Value Then ActiveCell(TOPcr2, TOPcc2).Font.Color = vbRed
TOPcr2 = TOPcr2 + 1 ' TOP next row
Next max_loop2 ' TOP Rows
If test = "J" Then MsgBox " one TOP-Col done: " & TOPcc2 & "\" & max_loop1 & "\" & max_loop2
Sheets("TOPsites").Activate
' MsgBox "e-loop2-TOP(r\c): " & TOPcr2 & " \ " & TOPcc2 & " \ VO(r\c): " & VOcr1 & " \ " & VOcc1
max_loop2 = 0 ' new loop (59) for next col in TOP
TOPcr2 = 1 ' first row TOP
TOPcc2 = TOPcc2 + 1 ' next col TOP
If TOPcc2 = max_top_col Then GoTo loop2_2
GoTo loop2_1
loop2_2:
If test = "J" Then MsgBox "TOP(r\c): " & TOPcr2 & " \ " & TOPcc2 & " \ VO(r\c): " & VOcr1 & " \ " & VOcc1

Next max_loop1 ' next VO
' MsgBox max_loop1
' MsgBox "TOP(r\c): " & TOPcr2 & " \ " & TOPcc2 & " \ VO(r\c): " & VOcr1 & " \ " & VOcc1

MsgBox "end"
End Sub
Sub SE_loop(sw)
'
' VO_loop Macro
' Macro recorded 2/11/2004 by peter
'
MsgBox "se_loop"

'
End Sub