B sütunundan C Sütununa aktarma

[ANTALYA 01]

Merhabalar
Ekteki Çalışmada Makronun B sütunundaki verilere bakarak B sütunundaki Verilerin Arasındaki(-) işaretinden sonra gelen verileri C sütununa aktarmasını istiyorum.Tşk

 

[meslan]

Merhaba bunu şu formülle yapabilirsiniz.
C2 'ye =SAĞDAN(B2;EĞER(EHATA(BUL("-";B2;1));UZUNLUK(B2);UZUNLUK(B2)-BUL("-";B2;1)))

 

[Recep İpek]

Aşağıdaki makroyu deneyiniz.

Sub Ayir()
For i = 2 To [b65536].End(3).Row
veri = Cells(i, "b").Value
If InStr(veri, "-") > 0 Then
bul = WorksheetFunction.Search("-", veri, 1) + 1
Cells(i, "c").Value = Mid(veri, bul , Len(veri) - bul)
Else
Cells(i, "c").Value = veri
End If
Next i
End Sub

 

[Orion1]

Dosyanız ekete.

Sub aktar()
Dim deg As Variant, i As Long, k As Byte, deg2 As Variant
Dim sat As Long
sat = 2
With Sheets("ana_sayfa")
    .Range("C2:C65536").ClearContents
    For i = 2 To .Cells(65536, "B").End(xlUp).Row
    deg = "": deg2 = ""
        deg = Split(.Cells(i, "B").Value, "-")
        If UBound(deg) >= 1 Then
            For k = 1 To UBound(deg)
                deg2 = deg2 & deg(k)
            Next k
            Else
            deg2 = deg(0)
        End If
        .Cells(sat, "C").Value = deg2
        sat = sat + 1
    Next i
End With
MsgBox "İşlem Tamamdır..!!"
End Sub

 

[ANTALYA 01]

k

Merhabalar
Bütün değerli cevablarınız için teşekkür ederim.