Karakter say birleştir sorunu..

[suysal]

Bu örnekte amcyc15 ile 1130 arasında 1 karakter boşluk var- 1130 ile aan arasında 5 karakter boşluk var
"istenilen kodda olması gereken balangıçtan itibaren a1 de ne varsa 7 ye boşlukla tamamlayıp 8.den itibaren
9 karaktere tamamlayıp 17.karakterden 24 e kadar boşluk kalıcak ve 25. Karaktere 4. Sütündaki n eklenecek"

kodu bu örneğe eklerseniz çok sevinirim şimdiden teşekkürler saygılarımla…

 

[harziyan]

Dosyanız ekte Sinan Bey iyi akşamlar...

 

[uzmanamele]

merhaba

tam anlayamadım ama bu işinizi görür mü?

=A2&YİNELE(" ";(7-UZUNLUK(A2)))&B2&YİNELE(" ";(17-(UZUNLUK(A2)+UZUNLUK(B2))))&C2&D2

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak kod ile çözüm için ekteki dosyayı incelermisiniz.

Option Explicit
 
Sub BİRLEŞTİR()
    Dim X As Long, WF As WorksheetFunction
    Dim VERİA As String, VERİB As String, VERİC As String
    
    Set WF = WorksheetFunction
    
    Range("E:E").ClearContents
    
    For X = 2 To Range("A65536").End(3).Row
        VERİA = Cells(X, 1) & WF.Rept(" ", 7 - Len(Cells(X, 1)))
        VERİB = Cells(X, 2) & WF.Rept(" ", 9 - Len(Cells(X, 2)))
        VERİC = Cells(X, 3) & WF.Rept(" ", 8 - Len(Cells(X, 3)))
        Cells(X, 5) = VERİA & VERİB & VERİC & Cells(X, 4)
    Next
    
    Set WF = Nothing
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[suysal]

Hepinize çok teşekkür ediyorum olay budur...Elinize sağlık....