Excel Sayfasından Labellerin Caption Özelliğine Veri Aldırma

[ahmed_ummu]

İyi akşamlar arkadaşlar.

Tablo sayfasında bulunan D5 ve AO5 sütunları arasındaki verileri label306-label343 caption özelliğine aldırmak istiyorum.

Set S1 = Sheets("data1")
Set S2 = Sheets("tablo")

S2.Range("D5:AO5").ClearContents

sut = 4
For i = S1.Range("L5") To S1.Range("L6")
S2.Cells(5, sut) = Day(i)
'Controls("label" & i + 302).Caption = S2.Cells(5, i).Value
sut = sut + 1
If sut = 41 Then Exit Sub
Next i

Kırmızı renkli olan satır olmadan "tablo" sayfasının D5-AO5 hücrelerine günler yazılıyor. Kırmızı renkli satırdaki kod ile de Userform10da bulunan Multipage1 in 3. sekmesinde bulunan, Multipage1 in 1. sekmesinde bulunan label306-label343 labellere "tablo" sayfasındaki D5-AO5 arasındaki verileri aldırmak istiyorum.

Application-defined or objec defined error hatası veriyor. Yardımcı olabilirseniz sevinirim.

 

[Ömer]

Merhaba,

Deneyiniz.

    Dim S1 As Worksheet, S2 As Worksheet, i As Long, sut As Integer, k As Integer, j As Integer
    
    Set S1 = Sheets("data1")
    Set S2 = Sheets("tablo")
    
    S2.Range("D5:AO5").ClearContents
    
    sut = 4: j = 306 - sut
    For i = S1.Range("L5") To S1.Range("L6")
        S2.Cells(5, sut) = Day(i)
        Controls("Label" & j + sut).Caption = Day(i)
        sut = sut + 1
        If sut = 42 Then Exit Sub
    Next i
    
    For k = sut To 41
       Controls("Label" & j + k).Caption = ""
    Next k

 

[ahmed_ummu]

Merhaba,

Deneyiniz.

    Dim S1 As Worksheet, S2 As Worksheet, i As Long, sut As Integer, k As Integer, j As Integer
   
    Set S1 = Sheets("data1")
    Set S2 = Sheets("tablo")
   
    S2.Range("D5:AO5").ClearContents
   
    sut = 4: j = 306 - sut
    For i = S1.Range("L5") To S1.Range("L6")
        S2.Cells(5, sut) = Day(i)
        Controls("Label" & j + sut).Caption = Day(i)
        sut = sut + 1
        If sut = 42 Then Exit Sub
    Next i
   
    For k = sut To 41
       Controls("Label" & j + k).Caption = ""
    Next k

Ömer bey çok teşekkürler. Elinize sağlık.