- Katılım
- 25 Haziran 2009
- Mesajlar
- 25
- Excel Vers. ve Dili
- 2007 Tr
Bir nöbet programı üzerinde çalışmaktayım programda labellere sayfa isimleri caption olarak atanmaktadır. İsteğim ders programına göre textboxlara derslerin yazdırılması . Yardımlarınız için teşekkürler.
Kod:
i = 1
a = Format(Date, "dddd")
Sheets(Label31.Caption).Range("b1:f1").Find (a)
For Each Hucre In Sheets(Label31.Caption).Range(ActiveCell.Offset(1, 0), ActiveCell.End(xlDown))
Controls("ders" & i) = Hucre
i = i + 1
Next