L
Legacy 395409
Guest
For the life of me I cannot figure out what am I missing....
-
If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.
L
Legacy 395409
Guest
Got an update.... I changed to current code and it allows me to run the macro but the progress bar keeps showing only 0% the bar didnt move at all even after the whole operation has completed. So now I know at least the function works, just the userform's progress bar didnt get the right values to show. Anybody knows what went wrong for the progress bar part?
VBA Code:
'-----------------------------------------------------------
Sub Inert_Copied_Rows()
OpenStatusBar
Worksheets("1149000-00-A").Activate
Dim Total As Integer
Dim Row As Integer
Dim r As Long
For r = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
With Cells(r, 3)
If IsNumeric(.Value) And Not IsEmpty(.Value) Then
Rows(r + 1).Resize(.Value).Insert
Range(Replace("A#:AK#", "#", r)).Copy Destination:=Range("A" & r + 1).Resize(.Value)
End If
DoEvents
Call RunStatusBar(Row, Total)
End With
Next r
Unload StatusBar
MsgBox "All Needed Rows Added!"
End Sub
'-----------------------------------------------------------
Sub OpenStatusBar()
With StatusBar
.Bar.Width = 0
.Frame.Caption = "0% Complete"
.Show vbModeless
End With
End Sub
'-----------------------------------------------------------
Sub RunStatusBar(Row As Integer, Total As Integer)
With StatusBar
.Bar.Width = 288 * (Row / Rows.Count)
.Frame.Caption = Round((Row / Rows.Count) * 100, 0) & "% Complete"
End With
End Sub
'-----------------------------------------------------------
Upvote
0
Similar threads
- Solved
