Sağdan belli bir yere kadar silmek

[serkan.sevinc]

Merhaba,
A sütununda gerçekte olan ürün kodları bulunmaktadır. B sütununda da olmasını istedğim ürün kodları bulunuyor. Her ürün için resimler bulunmaktadır ve bu resimlerin resim kodları B sütundaki gibidir.
İstemiş olduğum sağdan ilk nokta dahil olmak üzere ürün kodlarının sonundaki bedenlerin silinmesidir. Örnek ektedir.
Şimdiden teşekkürler

 

[Ziynettin]

Merhaba,

Ürün kodlarında iki nokta(.) olduğunda olumlu sonuç alırsınız.

Sub ayir()
Dim a(), b(), son As Long
son = Range("A" & Rows.Count).End(3).Row
a = Range("A3:A" & son)
ReDim b(1 To UBound(a), 1 To 1)
    For i = 1 To UBound(a)
        t = Split(a(i, 1), ".")
        If UBound(t) > 1 Then
            s = InStrRev(a(i, 1), ".") - 1
            b(i, 1) = Left(a(i, 1), s)
        Else
            b(i, 1) = a(i, 1)
        End If
    Next i
[C3].Resize(i - 1) = b
MsgBox "İşlem tamam....", vbInformation
End Sub

 

[serkan.sevinc]

çok teşekkürler

 

[likaba]

Merhaba,

Ürün kodlarında iki nokta(.) olduğunda olumlu sonuç alırsınız.

Sub ayir()
Dim a(), b(), son As Long
son = Range("A" & Rows.Count).End(3).Row
a = Range("A3:A" & son)
ReDim b(1 To UBound(a), 1 To 1)
    For i = 1 To UBound(a)
        t = Split(a(i, 1), ".")
        If UBound(t) > 1 Then
            s = InStrRev(a(i, 1), ".") - 1
            b(i, 1) = Left(a(i, 1), s)
        Else
            b(i, 1) = a(i, 1)
        End If
    Next i
[C3].Resize(i - 1) = b
MsgBox "İşlem tamam....", vbInformation
End Sub

Bu çözümü kendi dosyama uyarladım ve sonuç aldım. Teşekkürler.