Belli karekterden sonrasını yan stuna taşıma

[ezkey]

merhaba ben adreslerimi düzenlemeye çalışıyorum 60 karekter adresden sonra devamını bir yan stuna taşımak için ne yapmam gerekir?

 

[Mustafa MUTLU]

Bir verinin 60 karakterden sonrasını almak için
=PARÇAAL(A1;60;60)
Kırmızı Kaçıncı Harften Başlayım der
Mavi ise kaç Tanesini alayım der..

 

[ezkey]

Bir verinin 60 karakterden sonrasını almak için
=PARÇAAL(A1;60;60)
Kırmızı Kaçıncı Harften Başlayım der
Mavi ise kaç Tanesini alayım der..

Yardım için çok teşekkurler ama bir sorun çıktı bu 60 karekterden sonrasını kopyalıyor diğer hücreden 60 karekterden sonrasını kesmesi gerekiyordu onu nasıl yaptırabilirim acaba

 

[Necdet]

Merhaba,

VBA ile yapmak isterseniz aşağıdaki kodları inceleyiniz.

Verilerin A sütununda olduğu varsayılmıştır. Sözcüğü anlamsız şekilde bölmesi önlenmiştir.

Sub Bol_Aktar()
    
    Dim i       As Integer, _
        j       As Integer, _
        Uzunluk As Integer
    
    Uzunluk = 60
    Application.ScreenUpdating = False
    Range("B:C").ClearContents
    
    For i = 1 To Cells(Rows.Count, "A").End(3).Row
        If Len(Cells(i, "A")) > Uzunluk Then
            j = Uzunluk
            Do While Mid(Cells(i, "A"), j, 1) > " " And j <= Len(Cells(i, "A"))
                j = j + 1
            Loop
            Cells(i, "B") = Left(Cells(i, "A"), j)
            Cells(i, "C") = Replace(Cells(i, "A"), Cells(i, "B"), "")
        Else
            Cells(i, "B") = Cells(i, "A")
        End If
    Next i
    
    MsgBox "Sütunlara Ayrılmıştır....", vbInformation, "Necdet YEŞERTENER --> [URL="http://www.excel.web.tr"]www.excel.web.tr[/URL]"
    Application.ScreenUpdating = True
    
End Sub