Girilen Tarihin Günlerini Labellerin Caption Özelliğine Aldırmak.

[ahmed_ummu]

Merhaba arkadaşlar.

Excel "üp" sayfasındaki "aw1" hücresindeki tarihin günlerini, label1 ... label31 caption özelliğine nasıl aldırabilirim. Aşağıdaki kodlarda kırmızı renkli olan satırda yapmak istiyorum ama tüm labellere 16 değerini veriyo. Yardımcı olursanız sevinirim.

Set sy2 = Sheets("üp")
For i2 = 1 To 31
If sy.Cells(18, i2 +28).Value = 6 Or sy.Cells(18, i2 + 28).Value = 7 Then
UserForm10.Controls("TextBox" & i2).BackColor = &HB6D088
UserForm10.Controls("label" & i2 ).Caption = Format(DateAdd("d", 1, sy2.Range("aw1")), "dd")
End If
Next i2

 

[halit3]

böyle olabilirmi.

Me.Controls("label" & i2).Caption = Format(sy2.Cells(i2, "aw"), "dd")

 

[ahmed_ummu]

böyle olabilirmi.

Me.Controls("label" & i2).Caption = Format(sy2.Cells(sy2, "aw"), "dd")

type mismatch hatası verdi Halit bey.

Me.Controls("label" & i2).Caption = Format(sy2.Cells(sy2, "aw1"), "dd") Tarih aw1 de idi Bu haliyle de aynı hatayı verdi.

 

[halit3]

döngü yanlış olmuş
bunu dene
Me.Controls("label" & i2).Caption = Format(sy2.Cells(i2, "aw"), "dd")

 

[ahmed_ummu]

döngü yanlış olmuş
bunu dene
Me.Controls("label" & i2).Caption = Format(sy2.Cells(i2, "aw"), "dd")

Çözüldü Halit bey teşekkürler.