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

Sub tab_work()
'
' tab_work Macro
' Macro recorded 10.2.2004 by Peter Weisenbach
'
' Keyboard Shortcut: Ctrl+Shift+M
'
Dim Check
Dim Counterinner As Integer
Dim Counterouter As Integer
Dim max_inner_count As Integer
Dim cecol As Integer
Dim cerow As Integer
Dim for_counter As Integer
Dim search_what As String
Dim loesch_oder_rot As String
Dim search_tab As String
cecol = 0
cerow = 0
Check = True
Counterinner = 0 ' Initialize variables.

GoTo test2
GoTo test1
test2:
Counterouter = InputBox("outerloop count", "10-100")
max_inner_count = InputBox("max Inner count", " <10 -<50")
search_tab = InputBox("TAB name", "TAB-Wert")
search_what = InputBox("was soll gesucht werden", "Such-Wert")
loesch_oder_rot = InputBox("Loeschen oder Rot (L/R)", "WAS-Wert")

search_tab = "taball"
sheet2tab = "tab4" ' tab2all"
loesch_oder_rot = "R"
search_what = "a"
Counterouter = 10

Range(search_tab).Copy ' irgenrwo im workbook
Sheets("sheet2").Activate
' ActiveCell.Offset(cerow, cecol).Range(sheet2tab).Activate ' dahin , wo der cursor steht (von wo das macro aufgerufen wird)
Range(sheet2tab).Select
ActiveSheet.Paste
'
Application.CutCopyMode = False
ActiveCell.Offset(cerow, cecol).Range("A1").Select
MsgBox ActiveCell.Offset(cerow, cecol).Value
' On Error Resume Next

cerow = 0
cecol = 0
Counterinner = 0

ActiveCell.Offset(cerow, cecol).Select
Do ' Outer loop.
MsgBox " R/C :" & cerow & "\" & cecol
Do While Counterinner < max_inner_count ' Inner loop.
If ActiveCell(cerow, cecol).Value = search_what Then
If loesch_oder_rot = "R" Then ActiveCell(cerow, cecol).Font.Color = vbRed
If loesch_oder_rot = "L" Then ActiveCell(cerow, cecol).Value = " "
End If
cerow = cerow + 1
If Counterinner = max_inner_count Then Exit Do ' If condition is True.
Counterinner = Counterinner + 1 ' Increment Counter.

Loop
Counterouter = Counterouter - 1
Counterinner = 0
cerow = 0
cecol = cecol + 1

' MsgBox "outer: " & Counterouter & "\" & Counterinner & "-" & cerow & "\" & cecol
Loop Until Counterouter = 0 ' Exit outer loop immediately.
MsgBox "counterouter = 0"
Exit Sub

test1:
MsgBox "test1"
For Each c In Range("gtab") 'ActiveCells.CurrentRegion.Cells
' MsgBox c.Value
If c.Value = "a" Then
c.Font.Color = vbRed
c.Font.Bold = True
c.Font.Italic = True
Counter = Counter + 1
Else
c.Font.Bold = False
c.Font.Italic = False
for_counter = for_counter + 1
End If

' If c.Font.Bold = True Then c.Font.Bold = False

Next
MsgBox Counter & "/" & for_counter
Exit Sub


test3:
' MsgBox "test3"
cecol = cecol + 1
For for_counter = 0 To 10
' MsgBox for_counter & "-" & cecol & "\" & cerow

If ActiveCell(cerow, cecol).Font.Bold = False Then ActiveCell(cerow, cecol).Font.Bold = True
If ActiveCell(cerow, cecol).Value = "Z" Then ActiveCell(cerow, cecol).Value = "A"
cerow = cerow + 1
Next for_counter
' counter 10

If cecol = 10 Then Exit Sub
cerow = 1
for_counter = 0
' MsgBox "-" & cecol & "\" & cerow

' ActiveCell(cerow, cecol).Select

GoTo test3

End Sub