Soru hücre isimlerini labellere atama

[sirkülasyon]

Üstadım Hayırlı Sabahlar
userformum da 16 tane label mevcut.
Sayfa1 B1 : Q1 aralığında ki hücrelerde isimler yazılı. Bu isimleri userformda bulunan Labellere Label1.Caption = Sheets("Sayfa1").Range("b1") şeklinde 16 kere yazmak yerine bir kere de nasıl aldırabilirim?

 

[Ömer]

Merhaba,

Deneyiniz.

Private Sub UserForm_Initialize()
    Dim S1 As Worksheet, i As Byte
    Set S1 = Sheets("Sayfa1")
    For i = 1 To 16
        Controls("Label" & i).Caption = S1.Cells(1, i + 1)
    Next i
End Sub

 

[sirkülasyon]

Ömer Abi Hayırlı Günler, Hayırlı Sabahlar.
Mutlu, Huzurlu bir gün dileyerek Teşekkür ederim. Var Olasınız