Hücredeki veriye veri ekleme

[manly]

"E" sütunundaki veriye "-Y23" ekleyip, "F" sütununa aktarma yapmak istiyorum..

Örnek,

501-5010 olan veriyi "E" sütununa 501-Y23-5010 olarak aktarmak istiyorum..

 

[manly]

Yardımlarınızı bekliyorum..

 

[Orion1]

Dosyanız ektedir.

Sub ekle_59()
Dim sat As Long, deg, k As Integer, i As Long, deg2 As String
Sheets("Dosya").Select
sat = Cells(65536, "E").End(xlUp).Row
Application.ScreenUpdating = False
For i = 2 To sat
    deg = Split(Cells(i, "E").Value, "-")
    deg2 = ""
    For k = LBound(deg) To UBound(deg)
        If k = 1 Then
            deg2 = deg2 & "-" & "Y23" & "-" & deg(k)
            Else
            deg2 = deg2 & "-" & deg(k)
        End If
    Next k
    deg2 = Right(deg2, Len(deg2) - 1)
    Cells(i, "F").Value = deg2
Next i
Application.ScreenUpdating = True
MsgBox "İşlem Tamamdır." & vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[manly]

Evren hocam çok teşekkürler....

 

[Orion1]

Evren hocam çok teşekkürler....

Rica ederim.,
İyi çalışmalar.