Listbox dan başka sayfaya aktarımda hata

[ikikan]

Arkadaşlar Kırmızı ile işaretlediğim yerdeki mantık hatası nedir yardım edermisiniz...?

örnek dosya ektedir

Option Explicit
Sub PROJE1()
Dim ss As Integer, say As Integer, a1 As Integer
Dim i, e, sonuc, Birlestir, maxsumum, Uzunluk, yinele
Dim shf1, shf2 As Worksheet
Dim hucre As Range

Set shf2 = Sheets("VG")
Set shf1 = Sheets("PROJE")
ss = shf1.Range("B65500").End(3).Row
shf1.Range("B3:B" & ss).ClearContents
say = Sheets("HES").ListBox1.ListCount - 1
For i = 0 To say
If Sheets("HES").ListBox1.Selected(i) = True Then
Birlestir = ""
For e = 1 To 50
If e = 1 Then
Birlestir = shf2.Cells(i + 5, e).Value
Else

Uzunluk = Len(shf2.Cells(i + 5, e).Value)

maxsumum = Application.WorksheetFunction.Max(Uzunluk)

yinele = Application.WorksheetFunction.Rept(" ", maxsumum - Uzunluk)

Birlestir = Birlestir & yinele & shf2.Cells(i + 5, e).Value

End If
Next e
shf1.Cells(i + 23, 4).Value = yinele
shf1.Cells(i + 3, 2).Value = Birlestir
End If
Next i
For Each hucre In shf1.Range("B3:B50")
If UCase(hucre.Value) = Empty Then
sonuc = sonuc & hucre.Value
Else
sonuc = sonuc & hucre.Value & Chr(10)
End If
Next hucre
shf1.Range("C3").Value = sonuc
Call LİSTBOX1
End Sub

 

[Muzaffer Ali]

Uzunluk = Len(shf2.Cells(i + 5, e).Value) 'Hücrede bulunan metnin karakter sayısını bul

 maxsumum = Application.WorksheetFunction.Max(Uzunluk)' maximum= Hücrede bulunan metnin karakter sayısı kadardır

son satır
maxsumum = Uzunluk 'anlamına geliyor

bu iki satır mantıksız çünkü her seferinde ikisindede aynı sonucu verecektir.
Sonraki satırda maximum-uzunluk demişsin bu da her zaman sıfır sonucunu verecektir.

 

[ikikan]

Uzunluk = Len(shf2.Cells(i + 5, e).Value) 'Hücrede bulunan metnin karakter sayısını bul

 maxsumum = Application.WorksheetFunction.Max(Uzunluk)' maximum= Hücrede bulunan metnin karakter sayısı kadardır

son satır
maxsumum = Uzunluk 'anlamına geliyor

bu iki satır mantıksız çünkü her seferinde ikisindede aynı sonucu verecektir.
Sonraki satırda maximum-uzunluk demişsin bu da her zaman sıfır sonucunu verecektir.

Nasıl bir yol izlemeliyiz? aslında sütundaki en uzun metni bulup tüm satırlardaki karakter sayısını aynı yapmaya çalışıyorum (consolas yazı karakteri kullanınca) hepsi çizgisiz tablo haline getirmeye çalışıyorum