İlk "/ " iaretine kadar olan sayısal değerleri başka sütüna aktarılması

[metinavci23]

Merhaba Arkadaşlar

Yapmak istediğim A sütununda olan verilerden sağdan başlayarak ilk "/ " işaretine kadar sayısal verileri başka sütuna aktarılması.Örnek dosya ektedir

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir butona ilişkilendirip çalıştırınız.

Rakamı B sütununa yazar.

Sub Rakam()
    Dim i As Long
    For i = 2 To Cells(Rows.Count, "A").End(3).Row
        Cells(i, "B") = Split(StrReverse(Cells(i, "A")), "/")(0)
    Next i
End Sub

 

[metinavci23]

cevap

Necdet Bey Teşekkür ederim.super olmuş yalnız ayrılan rakamları ters yazıyor,

 

[Necdet]

Necdet Bey Teşekkür ederim.super olmuş yalnız ayrılan rakamları ters yazıyor,

Normal durum, ters çevirince ters yazması

Sub Rakam()
    Dim i As Long
    For i = 2 To Cells(Rows.Count, "A").End(3).Row
        Cells(i, "B") = StrReverse(Split(StrReverse(Cells(i, "A")), "/")(0))
    Next i
End Sub

Başka bir yöntem, ters çevirmeden

Sub Rakam()
    Dim i As Long
    Application.ScreenUpdating = False
    Range("B2:B65500").ClearContents
    For i = 2 To Cells(Rows.Count, "A").End(3).Row
        Cells(i, "B") = Split(Cells(i, "A"), "/")(UBound(Split(Cells(i, "A"), "/")))
    Next i
    Application.ScreenUpdating = True
End Sub

 

[metinavci23]

cevap

Tekrar teşekkür ederim Necdet Bey.Elinize sağlık.Size ve ailenize İyi bayramlar dilerim.

 

[Necdet]

Tekrar teşekkür ederim Necdet Bey.Elinize sağlık.Size ve ailenize İyi bayramlar dilerim.

İyi bayramlar, sağolun.