работа с макросами

[temsky]

Помогите мне пожалуйста. Я работаю учителем на спецпредприятии, запись посещения работниками техзанятий производится в Exell 7 с помощью макросов, я ввожу табельный номер работника и дату посещения, макрос автоматически находит этого работника в списке и ставит ему в соответствующей ячейке цифру "1". Очень удобная вещь! Но у меня появилась проблема: Предприятие увеличивается и число работников становится больше, а макрос находит работника по списку не более "100". Если записать работника по списку 101-ым, то макрос его не находит. В моей книге Exell 8 листов, Если добавить 9-ый лист и последующие, и разместить на нем список работников, то макрос не берет во внимание листы более 8-ми, и соответственно не находит этих работников. Как мне изменить настройки макросов, что бы число записываемых строк было более 100, а число листов было более 8-ми? Эту книгу записывал один програмист в 2009 году, и давно уволился. Помогите мне пожалуйста с этой проблеммой.

[Hugo121]

В форме1 код:

Private Sub CommandButton1_Click()

For l = 1 To 8
For i = 6 To 100
Sheets(l).Select
Cells(i, 3).Activate
If ActiveCell = TextBox1.Text Then
Cells(i, TextBox2.Text + 3).Activate
ActiveCell = "1"
MsgBox ("Машинист " & Cells(i, 2) & " отмечен " & TextBox2.Text)
GoTo 10
Else:
End If
Next
Next
10: End Sub

Попробуйте тут поменять 8 и 100.
Хотя конечно это какой-то "индусский" код...

[Hugo121]

Запустил (в код не вникал) - мне кажется, что программист был уволен
А модулей-то, модулей...

[doober]

Количество листов и подопечных не влияет

[IgorGO]

я то ж написал

Private Sub CommandButton1_Click()
  Dim r As Long
  On Error Resume Next
  For l = 1 To Sheets.Count
  r = WorksheetFunction.Match(TextBox1.Text, Sheets(l).Range("C:C"), 0)
  If Err.Number = 0 Then
    Sheets(l).Activate
    Cells(r, TextBox2.Text + 3) = "1"
    Application.Goto Reference:=Cells(r, 2), Scroll:=True
    MsgBox ("Машинист " & Cells(r, 2) & " отмечен " & TextBox2.Text & ", " & Mid(Cells(1, 1), 22, 100))
    Exit For
  Else
    If l = Sheets.Count Then MsgBox TextBox1.Text & " не найден на листах!", vbCritical + vbOKOnly, "Караул!!!"
    Err.Clear
  End If
  Next
End Sub

[temsky]

огромное спасибо! Вы мне очень помогли!