A2 hücre içindeki sayıların sağdan 2 tanesinin silinip B2 ye yazılması

[ones68]

Merhaba,
Ekteki dosyada da anlattığım gibi A sütununda veriler var.Bunların sağdan 2 tanesinin silip B sütununa kopyalanmasını istiyorum.Burada kullanılacak macro nasıl olmalıdır?Şimdiden teşekkür ederim..

 

[Ömer]

Merhaba,
Ekteki dosyada da anlattığım gibi A sütununda veriler var.Bunların sağdan 2 tanesinin silip B sütununa kopyalanmasını istiyorum.Burada kullanılacak macro nasıl olmalıdır?Şimdiden teşekkür ederim..

Merhaba,

Bu şekilde deneyin.

Sub Duzenle()
 
    Dim i As Long
    
    Range("B2:B" & Rows.Count).ClearContents
    
    For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        If Cells(i, "A") <> "" Then
            Cells(i, "B") = Trim(Left(Cells(i, "A"), Len(Cells(i, "A")) - 2))
        End If
    Next i
    
End Sub

.

 

[mancubus]

=SOLDAN(A2;UZUNLUK(A2)-2)

formülü gerektiği kadar aşağoya kopyalanır. (2 karakter silinir ise mevcut durumda en sonda 1 adet boşluk kalır)

 

[ones68]

İlginiz için çok teşekkür ederim.Kodlar gayet güzel çalıştı.