- Kod: Tümünü seç
Private Sub UserForm_activate()
On Error Resume Next
ProgressBar1.Max = Sayfa1.Range("a65536").End(3).Row
Dim Sayac As Long, i As Long
Sayac = 1
For i = 2 To Range("a65536").End(3).Row
Cells(1, "H") = "Miktar"
Cells(i, "H") = WorksheetFunction.Sum(Cells(i, 1) * Cells(i, 2))
Sayac = Sayac + 1
UserForm1.ProgressBar1.Value = Sayac
UserForm1.Label1.Caption = Sayac & " adet işlem tamamlandı ....."
DoEvents
Next i
Unload UserForm1
End Sub
-
- Destek
-
Özel Arama