kod uzunluğu en fazla kaç karakter olur

[talatgorkem]

merhaba arkadaşlar
yazılan bir kodun ez uzun karakter sayısı kaç olabilir ?
[ ] içerisinde uzun bir kod ise alt satırda devam etmesi için ne yapmak gerekir ?

örn.
[C2] = [B11&" "&C11&" "&D11&" "&B12&" "&C12&" "&D12&" "&B13&" "&C13&" "&D13&" "&B14&" "&C14&" "&D14&" "&B15&" "&C15&" "&D15&" "&B16&" "&C16&" "&D16&" "&B17&" "&C17&" "&D17&" "&B18&" "&C18&" "&D18&" "&B19&" "&C19&" "&D19&" "&B20&" "&C20&" "&D20&" "&B21&" "&C21&" "&D21&" "&B22&" "&C22&" "&D22&" "&B23&" "&C23&" "&D23&" "&B24&" "&C24&" "&D24&" "&B25&" "&C25&" "&D25&" "&B26&" "&C26&" "&D26&" "&B27&" "&C27&" "&D27&" "&B28&" "&C28&" "&D28&" "&B29&" "&C29&" "&D29&" "&B30&" "&C30&" "&D30&" "&B31&" "&C31&" "&D31&" "&B32&" "&C32&" "&D32&" "&B33&" "&C33&" "&D33&" "&B34&" "&C34&" "&D34&" "&B35&" "&C35&" "&D35&" "&B36&" "&C36&" "&D36&" "&B37&" "&C37&" "&D37&" "&B38&" "&C38&" "&D38&" "&B39&" "&C39&" "&D39&" "&B40&" "&C40&" "&D40&" "&B41&" "&C41&" "&D41&" "&B42&" "&C42&" "&D42&" "&B43&" "&C43&" "&D43&" "&B44&" "&C44&" "&D44&" "&B45&" "&C45&" "&D45&" "&B46&" "&C46&" "&D46&" "&B47&" "&C47&" "&D47&" "&B48&" "&C48&" "&D48&" "&B49&" "&C49&" "&D49&" "&B50&" "&C50&" "&D50&" "&B51&" "&C51&" "&D51&" "&B52&" "&C52&" "&D52&" "&B53&" "&C53&" "&D53&" "&B54&" "&C54&" "&D54&" "&B55&" "&C55&" "&D55&" "&B56&" "&C56&" "&D56&" "&B57&" "&C57&" "&D57&" "&B58&" "&C58&" "&D58&" "&B59&" "&C59&" "&D59&" "&B60&" "&C60&" "&D60]

eğer bu kod un kısa bir yolu var mıdır ???

zaman ayırdığınız için şimdiden teşekkür ediyorum

 

[talatgorkem]

Ben şimdilik şu şekilde bir çözüm yolu üretebildim;
parçalara birleştirip parçaları da istenen hücrede toplamak gibi

Sub ABC()
[E11] = ["ARAŞTIRMA EKİBİ "&B11&" "&C11&" "&D11&" "&B12&" "&C12&" "&D12&" "&B13&" "&C13&" "&D13&" "&B14&" "&C14&" "&D14&" "&B15&" "&C15&" "&D15&" "&B16&" "&C16&" "&D16&" "&B17&" "&C17&" "&D17&" "&B18&" "&C18&" "&D18&" "&B19&" "&C19&" "&D19&" "&B20&" "&C20&" "&D20]
[E12] = [B21&" "&C21&" "&D21&" "&B22&" "&C22&" "&D22&" "&B23&" "&C23&" "&D23&" "&B24&" "&C24&" "&D24&" "&B25&" "&C25&" "&D25&" "&B26&" "&C26&" "&D26&" "&B27&" "&C27&" "&D27&" "&B28&" "&C28&" "&D28&" "&B29&" "&C29&" "&D29&" "&B30&" "&C30&" "&D30]
[E13] = [B31&" "&C31&" "&D31&" "&B32&" "&C32&" "&D32&" "&B33&" "&C33&" "&D33&" "&B34&" "&C34&" "&D34&" "&B35&" "&C35&" "&D35&" "&B36&" "&C36&" "&D36&" "&B37&" "&C37&" "&D37&" "&B38&" "&C38&" "&D38&" "&B39&" "&C39&" "&D39&" "&B40&" "&C40&" "&D40]
[E14] = [B41&" "&C41&" "&D41&" "&B42&" "&C42&" "&D42&" "&B43&" "&C43&" "&D43&" "&B44&" "&C44&" "&D44&" "&B45&" "&C45&" "&D45&" "&B46&" "&C46&" "&D46&" "&B47&" "&C47&" "&D47&" "&B48&" "&C48&" "&D48&" "&B49&" "&C49&" "&D49&" "&B50&" "&C50&" "&D50]
[E15] = [B51&" "&C51&" "&D51&" "&B52&" "&C52&" "&D52&" "&B53&" "&C53&" "&D53&" "&B54&" "&C54&" "&D54&" "&B55&" "&C55&" "&D55&" "&B56&" "&C56&" "&D56&" "&B57&" "&C57&" "&D57&" "&B58&" "&C58&" "&D58&" "&B59&" "&C59&" "&D59&" "&B60&" "&C60&" "&D60]
[C2] = [E11&" "&E12&" "&E13&" "&E14&" "&E15]
Range("E11:E15").ClearContents

End Sub

Ama varsa daha kolay bir yöntem okuyanlara da bir yardımı olur

tekrar teşekkür ediyorum

 

[Tevfik_Kursun]

Merhaba,
Gördüğüm kadarıyla siz burada birleştirme yapıyorsunuz. Kod içinde verdiğim KTF yi deneyin, isterse 10000 hücre olsun farketmez.

Function birleştirme(hedef As Range, Optional ayırac As String = [COLOR="Red"]" "[/COLOR]) As String
    Dim alan As Range
    Dim sonuc As String
      For Each alan In hedef
        If alan.Value <> "" Then
            sonuc = sonuc & ayırac & alan.Value
        End If
    Next alan
    If sonuc <> "" Then
        sonuc = Mid(sonuc, Len(ayırac) + 1)
    End If
    birleştirme = sonuc
End Function

ilk mesajınızda yazdıklarınız ile yaptığınızı Birleştirme(B11 : D60) ifadesi ile elde edebilirsiniz.
Yukarıdaki KTF (Kullanıcı Tanımlı Fonksiyon) yi lütfen Module ün içine kopyalayınız. (Alt + F11 e basıp gelen ekranda Insert maddesini açıp orada Module e basınız)
İyi çalışmalar

 

[talatgorkem]

Tevfik bey teşekkür ediyorum gerçekten zaman ayırıp bakmışsınız

yalnız ben function nasıl aktif hale geliyor bilmiyorum

aslında çok karmaşık olmuş şimdi fark ettim - yapmak istediğim;

BUTONA BASTIĞIM ZAMAN
B6=C8+B10+C10+D10 ve devamında da B11+C11+D11 şeklinde ilerlesin ta ki son dolu hücreye kadar - böyle bir seçenek olursa benim için mükemmel olur ama bulamadım

şu an en çok yaklaştığım for to next e cells ile yan yana toplamak oldu yani hepsini yan yana topluyorum sonrasında da toplanan yazıların alt alta toplanmasını ve sonucun tek bir hücredeki metin haline gelmesini planlıyorum ama hala alt alta hücreleri birleştirme konusunda bir şey bulamadım

ilginiz emeğiniz için ayrıca teşekkür ediyorum

 

[Tevfik_Kursun]

Merhaba Arkadaşım,
Şaka yaptığınızı düşünüyorum. Siteye yada DosyaTC ye örnek ekleyin hemen çözümleyelim. Mesajımda nasıl yapılacağını da göstermişim, bir daha yazıyorum =Birleştirme(B11 : D60) nereye kadarını nereye istiyorsanız getirir bu formül. Makro aramaya gerek yok. Böylelikle uzunluk mefhumu da ortadan kalkmış olur.
Kolay gelsin