excelsheet'te bi kolonda bulunan veriler userformda yazdırm

[bili]

excel sheet üzerinde bir Z kolonunda ilk 4 hücremde eğitim,tecrübe,uzmanlık,bilgisayarşeklinde bazı adlar yazılı, ben bunları bir userformda userform initialize olduğunda bir labelın içinde yazmak istiyorum.

ama yazım formatı aşağıdaki gibi olacak.

Y= eğitim+ tecrübe+uzmanlık+bilgisayar
(çıkan istatistiksel modeli göstericem userformda)

bunu yapmak kolay
y zaten sabit

label1.caption="Y=" & cells(1,26).value & "+" & cells(2,26).value & "+"
& cells(3,26).value & "+" & cells(4,26).value

ancak benim sorunum şu illa ki 4 değer olmayabilir ya 6 tane değerim varsa.böyle yazarsam son ikiyi almaz.
Z kolonunda hücre saydır fonksiyonu yaptım.

r = 1
Do While r < 65536 And Len(Cells(r, 25).Text) > 0
r = r + 1
Loop

satir_sayisi = r - 1

şeklinde ama labelın içinde döngü yapamıyorum. yani araya "+"'ları koyup kaç değer yazması gerektiğini hesaplatamıyorum.
bir yolu var mı?
ÇOOOK TEÞEKKÜR EDERİM...

 

[zafer]

Merhaba

Kodları denernisiniz


Private Sub UserForm_Initialize()
On Error Resume Next ' hata olursa devam et
x = Cells(65536, 26).End(xlUp).Row ' Z sütununda son satır numarası
For Each sec In Range("z1:z" & x) 'Döngüye girecek hücrelerin adresi
k = k + sec & "+" 'k değişkenine atanan hücrelerin + ile birleştirilmesi

Next sec
k = Mid(k, 1, Len(k) - 1) ' değişken uzunluğundan sondan 1 krk. silme
Label1.Caption = k ' değişkeni label'e aktarma
End Sub