Soru İlk rakamları sona eklemek.

[ÆSir]

Merhaba,

Şu an 800 satırlık bir dosya hazırlayacağım. Bir sütun komple kopyala yapıştır olacak ve önemli bir noktamız var.
Ben satıra kopya ile 245/40 R17 TL 95V REINF. ICE GRIPPER W850 STARMAXX yazacağım. Benzer şekilde 800 adet satır girdikten sonra bütün satırların sonuna otomatik olarak satırın başındaki 7 rakamın yazabilmesini istiyorum.
245/40 R17 TL 95V REINF. ICE GRIPPER W850 STARMAXX 2454017 örneği gibi. Bunu nasıl yapabiliriz?

 

[Ömer]

Merhaba,

Veri düzeninden daha fazla örnek görmekte fayda var.
Anladığım kadarıyla;

Sub Duzenle()
 
    Dim i As Long, deg As String
    
    With CreateObject("VBScript.Regexp")
        .Global = True
        .Pattern = "[^\d]"
        For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
            deg = Left(Cells(i, "A"), InStr(Cells(i, "A"), "TL") - 1)
            Cells(i, "A") = Cells(i, "A") & " " & .Replace(deg, "")
        Next i
    End With
 
End Sub

 

[Ömer BARAN]

Merhaba.

İşlemin A sütununda yapılacağı varsayılmıştır.
Alt taraftan, işlem yapılacak sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
açılan VBA ekranında sağdaki boş alana aşağıdaki kodu yapıştırın ve
belgedeki başka bir alandan kopyala yapıştır ile verileri A sütununa alın.
Yanlış düşünmüyorsam, yapıştırma anında istenilen işlem gerçekleşecektir.
.

Public brnbrn As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)
If brnbrn = True Then Exit Sub
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
If Target.Column = 1 And Application.CutCopyMode Then
    brnbrn = True
    For Each brn In Selection
        brn.Value = brn.Value & " " & _
            Replace(Replace(Replace(Mid(brn.Value, 1, 10), "/", ""), " ", ""), "R", "")
    Next
End If
    brnbrn = False
End Sub

 

[ÆSir]

Teşekkür ederim. Yarın deneyeceğim ikisini de. Bakalım. A:A yerine C:C yapacağım sadece galiba C sütunu için.

 

[Ömer BARAN]

Target.column=1 kısmını da 3 yapmayı unutmayın.

 

[Haluk]

Formül kullanarak bir alternatif;

Verilerin C2 hücresinden başlayarak aşağıya doğru devam ettiği düşünülmüştür....

=C2 & " " &SUBSTITUTE(MID(C2;1;FIND(" ";C2)-1);"/";"")& RIGHT(TRIM(MID(SUBSTITUTE(C2;" ";REPT(" ";100));100;100));2)

Formülün Türkçesi;

=C2 & " " &YERİNEKOY(PARÇAAL(C2;1;BUL(" ";C2)-1);"/";"")& SAĞDAN(KIRP(PARÇAAL(YERİNEKOY(C2;" ";YİNELE(" ";100));100;100));2)

.

 

[ÆSir]

Excel öğrenmek gerçekten çok önemli bir nimet. Hepsi çok işe yaradı. Teşekkür ederim her birinize.