ptcsite
Altın Üye
- Katılım
- 8 Nisan 2016
- Mesajlar
- 130
- Excel Vers. ve Dili
- M.OFFICE 2021 TR 64 Bit
- Altın Üyelik Bitiş Tarihi
- 26-12-2027
İnternette bilgi bulamadım... O yüzden basit de olsa lütfen biri cevap verebilir mi? Mantığını anlasam gerisi gelir zaten..
Ekteki örnekte A1:B187 hücre aralığındaki verileri labela yazdıracağım Yani;
1 - BUSE
2- ALİ
3- MAHMUT
vs
Ama bu 187 satır tek bir labelda sığmayacağından ya tek bir label a 4-5 sütun ile veya ayrı ayrı resimdeki gibi labellara sıralayacağım.
Mesala 1-50 arasa lbl_P1 'e
Mesala 51-101 arasa lbl_P2 'e
Mesala 102-152 arasa lbl_P3 'e
Mesala 153-187 arasa lbl_P4 'e gibi
Deneme Kodu:
Bu kod en son satırı gösteriyor sadece. Satır başı nasıl yapılır bilmediğimizden takılıyoz işte 
ücre ve
Ekteki örnekte A1:B187 hücre aralığındaki verileri labela yazdıracağım Yani;
1 - BUSE
2- ALİ
3- MAHMUT
vs
Ama bu 187 satır tek bir labelda sığmayacağından ya tek bir label a 4-5 sütun ile veya ayrı ayrı resimdeki gibi labellara sıralayacağım.
Mesala 1-50 arasa lbl_P1 'e
Mesala 51-101 arasa lbl_P2 'e
Mesala 102-152 arasa lbl_P3 'e
Mesala 153-187 arasa lbl_P4 'e gibi
Deneme Kodu:
XML:
Private Sub UserForm_Activate()
Dim k As Integer
For k = 2 To 30
frm_ana.lbl_P1 = Sayfa1.Range("A" & k).Value & "-" & Sayfa1.Range("B" & k).Value
Next k
End Sub

Ekli dosyalar
-
22 KB Görüntüleme: 1