Vba code to loop through a column and return values to label controls

[Ben888]

I have a column (1,11) to (5,11) where sometimes there is a value of either a number or text (eg. 5, 20, 100, 500, Misc Vol). Sometimes there is only a single value within the column on one of the rows. Often there is multiple (upto 3 values). I'm after vba code that will loop through and ignore the empty cells within the column and once it finds a value, show the value in 'label1' control. Subsequently if it finds an additional value in the column, show that value in 'label2' control. Then repeat if necessary and show that value 'label3' control (if there are three seperate values in the column range). Thankyou for considering the above and any assistance given.

 

[Trebor76]

Hi Ben,

Try this:

Option Explicit
Sub Macro1()

    Dim ws As Worksheet
    Dim rngCell As Range
    Dim i As Long
    
    Set ws = ThisWorkbook.Sheets("Sheet1") 'Sheet name containing the values in Col. K to update to UserForm1. Change to suit.
    
    For Each rngCell In ws.Range("K1:K5")
        If Len(rngCell) > 0 And IsNumeric(rngCell) Then
            i = i + 1
            UserForm1.Controls("Label" & i).Caption = rngCell 'Updates the label controls on an userform called 'UserForm1'. Change to suit.
        End If
    Next rngCell
    
    UserForm1.Show

End Sub

Regards,

Robert

 

[Ben888]

Hi Trevor,

Thankyou I was able to get this code to do the job!

 

[Trebor76]

Thanks for letting us know and I'm glad we could provide you with a workable solution