Hücreden belirli bir veriyi alabilme

[dogu34]

Merhaba
Birkaç yol denedim ama başarılı olamadım.

Sn.Hkak, 08-02-2024 tarihli Cari Hesap Ekstrenizi görüntülemek için tıklayınız. http://s.ykdke.com/120020243.html B021

şeklinde A1 Hücresinde verilerim var.
Yapmak istediğim sadece .html kısmından önceki sayıları aralarında nokta olacak şekilde alabilmek
120.02.0242 şeklinde

Yardımcı olursanız sevinirim

 

[Muzaffer Ali]

Merhaba.
Sadece A1 de varsa aşağıdaki kodu kullanın.

Sub test1()
    Dim i() As String
    Dim mtn As String
    i = Split(Range("A1"), "/")
    mtn = Replace(i(UBound(i)), ".html", "")
    mtn = Left(mtn, 3) & "." & Mid(mtn, 4, 2) & "." & Right(mtn, 4)
    Range("B1") = mtn
End Sub

A sütununda birden fazla varsa hepsini yapmak için aşağıdaki kodu kullanın.

Sub test2()
    Dim i() As String
    Dim mtn As String
    Dim Bak As Long
    For Bak = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        i = Split(Cells(Bak, "A"), "/")
        mtn = Replace(i(UBound(i)), ".html", "")
        mtn = Left(mtn, 3) & "." & Mid(mtn, 4, 2) & "." & Right(mtn, 4)
        Cells(Bak, "B") = mtn
    Next
End Sub

 

[dogu34]

Merhaba.
Sadece A1 de varsa aşağıdaki kodu kullanın.

Sub test1()
    Dim i() As String
    Dim mtn As String
    i = Split(Range("A1"), "/")
    mtn = Replace(i(UBound(i)), ".html", "")
    mtn = Left(mtn, 3) & "." & Mid(mtn, 4, 2) & "." & Right(mtn, 4)
    Range("B1") = mtn
End Sub

A sütununda birden fazla varsa hepsini yapmak için aşağıdaki kodu kullanın.

Sub test2()
    Dim i() As String
    Dim mtn As String
    Dim Bak As Long
    For Bak = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        i = Split(Cells(Bak, "A"), "/")
        mtn = Replace(i(UBound(i)), ".html", "")
        mtn = Left(mtn, 3) & "." & Mid(mtn, 4, 2) & "." & Right(mtn, 4)
        Cells(Bak, "B") = mtn
    Next
End Sub

Hocam elinize sağlık fakat şöyle bir durum var ben tüm satırlarda kullanacağım onu da düşünmüşsünüz teşekkürler fakat aldığım sonuç 120.02.B021 bu şekilde sadece .html den önceki sayıları almak istiyorum 120.02.0242 şeklinde sizin yazdığınız kodda verinin en sonundaki ekliyor
Bakabilirseniz sevinirim

 

[Muzaffer Ali]

Deneyiniz.

Sub test2()
    Dim i() As String
    Dim mtn As String
    Dim Bak As Long
    For Bak = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        i = Split(Cells(Bak, "A"), "/")
        mtn = i(UBound(i))
        mtn = Split(i(UBound(i)), ".")(0)
        mtn = Left(mtn, 3) & "." & Mid(mtn, 4, 2) & "." & Right(mtn, 4)
        Cells(Bak, "B") = mtn
    Next
End Sub

 

[dogu34]

Deneyiniz.

Sub test2()
    Dim i() As String
    Dim mtn As String
    Dim Bak As Long
    For Bak = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        i = Split(Cells(Bak, "A"), "/")
        mtn = i(UBound(i))
        mtn = Split(i(UBound(i)), ".")(0)
        mtn = Left(mtn, 3) & "." & Mid(mtn, 4, 2) & "." & Right(mtn, 4)
        Cells(Bak, "B") = mtn
    Next
End Sub

Hocam elinize sağlık tamamdır.Çok teşekkür ederim.