как обновить значения в форме автоматически

[Оленька______87]

в общем вот то что я сделала:
Private Sub CommandButton1_Click()
Dim l As Integer
UserForm1.Hide
UserForm3.Show
l = 0
For i = 1 To Val(TextBox2.Text)
For j = 1 To Val(TextBox1.Text)

If Worksheets("выгрузка").Cells(i + 1, 3) - Worksheets("СЗ").Cells(j + 1, 1) = 0 Then
Worksheets("выгрузка").Cells(i + 1, 18) = Worksheets("СЗ").Cells(j + 1, 12)
GoTo m1
End If

Next j

l = l + 1

m1:
Next i
UserForm2.Label1.Caption = "не найдено " & l & " лицевых счета"
UserForm2.Show

End Sub

здесь есть 2 таблицы "выгрузка" и "СЗ" нужно данные таблицы СЗ перенести в таблицу выгрузка. сравнение идет по одному полю. вобщем все просто. но объем таблиц очень большой и все это происходит долго. хотелось бы создать форму на которой будет отображаться сколько записей уже обработано. как это сделать??? помогите пожалуйста!!

[VictorM]

создать форму на которой будет отображаться сколько записей уже обработано

Все это называется прогрессбар.
А как сделать, поиск по форуму Вам в помощь.
И еще ЗДЕСЬ посмотрите.

[Оленька______87]

это немножко не то. нужно что бы прям текст в label был "обработано k строк". и что бы заморочек не столько было. а то у меня программа в 100 раз короче.

[IgorGO]

вообще без форм:
в теле цикла добавьте строку
application.statusbar = "выгрузка " & i

после цикла:
application.statusbar = false

смотрите слева снизу в строку статуса.