Hücre içerisinde kısmi veri silme.

[Bora K]

Merhaba,

Aşağıdaki kodları deneyiniz.

Sub SoldanSil()
    Dim i   As Long, _
        j   As Integer, _
        Kol As Integer, _
        s1  As Worksheet, _
        s2  As Worksheet
    
    Set s1 = Sheets("Sayfa1")
    Set s2 = Sheets("Sayfa2")
    s1.Select
    
    Kol = Cells(1, Columns.Count).End(xlToLeft).Column
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        For j = 1 To Kol
           [B][COLOR=red] If Len(Cells(i, j)) > 4 Then
                s2.Cells(i, j) = Right(Cells(i, j), Len(Cells(i, j)) - 4)
            Else
                s2.Cells(i, j) = Cells(i, j)
[/COLOR][/B]            End If
        Next j
    Next i
    
End Sub

Merhabalar Necdet Hocam.

Yukarıdaki kodda şu şekilde bir düzenleme istemekteyim mümkün olursa tabii;
soldan 4 hane
sağdan 6 hane silinecek. Yeni oluşan verileri sayfa 2 ye
değilde Verinin bulunduğu sütunun bir boşluk yanındaki sütuna yazılacak. (a da ise C ye gibi)

İnşallah anlaşılmıştır.
Saygılarımla.