Sayfaya toplu olarak Label başlıklarını aktarma

[sirkülasyon]

Label1 - Label31 içerisinde yazan verileri G6 : AK6 aralığına toplu bir şekilde aktarma imkanı var ise yardımcı olabilir misiniz?

 

[Ömer]

Merhaba,

Deneyiniz.

Private Sub UserForm_Initialize()
    
    Dim i As Integer
    
    For i = 7 To 37
        Controls("Label" & i - 6) = Cells(6, i)
    Next i
    
End Sub

 

[sirkülasyon]

Ömer abi Teşekkür ederim. Ellerine Sağlık. Allah razı olsun