Progress bar in userform

Hello

I would like to have a progress bar in some of my userforms.

As an example i attach a sample.

Thanks in advance for any assistance here!

Thanks for looking at this.

In my example the confirm button transfer data of userform to the second sheet.

I'd like to monitor this progress.

Thank you very much for your advices.

As i said in my first post..

.. would like to have a progress bar in some of my userforms.

As an example i attach a sample.

I have many codes that take many seconds to run. So i need this progress bar for these codes.

So do you have any idea for how a progress bar could works in my example?

You change its value:

        With Sheets("13")
           lRow = .Range("s" & .Rows.Count).End(xlUp).Offset(1).row
            Me.ProgressBar1.Value = 0
            .Range("r" & lRow).Value = CDate(Me.TextBox1.Value)
            Me.ProgressBar1.Value = 20
            .Range("v" & lRow).Value = Me.ComboBox1.Value
            Me.ProgressBar1.Value = 40
            .Range("s" & lRow).Value = Me.Controls("chxCase" & i).Value
            Me.ProgressBar1.Value = 60
            .Range("t" & lRow).Value = Me.Controls("txtCase" & i).Value
            Me.ProgressBar1.Value = 80
            .Range("u" & lRow).Value = Me.Controls("tmCase" & i).Value
            Me.ProgressBar1.Value = 100
          
        End With

Yes this works. Thank you.

Altrough i don't understand what do you mean when you say: "You change its value"

Also if you don't mind, may i ask this?

Will always use the same criteria? I mean that in my code there are 6 different trandfer so you used 6 different levels for the progreessing bar. So is this the way that i have to use when i use a progress bar?

I mean you change its value using code like this:

Me.ProgressBar1.Value = 20

You will need to work out what the value should be based on how many steps you have to perform, and how many you have completed.

I believe that i get the logic!

Thank you very much.