Hücredeki yazıyı parçalama

[zrsgdrmck]

A1 hücresindeki veri " ali ata bak" olsun.ben bu hücreden "bak" kelimesini a2 hücresine almak istiyorum.İşlem sonrası a1 de "ali ata" kalacak şekilde yapabileceğim vba kodunu bilen varsa ve yardımcı olursa çok teşekkür ederim.

 

[Ömer]

A1 hücresindeki veri " ali ata bak" olsun.ben bu hücreden "bak" kelimesini a2 hücresine almak istiyorum.İşlem sonrası a1 de "ali ata" kalacak şekilde yapabileceğim vba kodunu bilen varsa ve yardımcı olursa çok teşekkür ederim.

Merhaba,

Bu şekilde deneyin.

Sub Parcala()
 
    Dim i As Long, deg
 
    Range("B1:B" & Rows.Count).ClearContents
 
    On Error Resume Next
 
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        deg = Split(Cells(i, "A"), " ")
        Cells(i, "B") = deg(UBound(deg))
        Cells(i, "A") = Left(Cells(i, "A"), Len(Cells(i, "A")) _
                            - Len(Cells(i, "B")) - 1)
    Next i
 
End Sub

.

 

[zrsgdrmck]

şimdi deneyebildim çok teşekkür ederim ilginiz ve uğraşınız için çok sağolun..