Hücredeki Belirli Bir Karakterden Sonraki Kısmı Alma

[hukumran1]

Bir hücrede "...metin... - ...metin2..." şeklinde yazı var. (Metinler değişiyor.) Ben "-" işaretinden sonraki kısmı (yani sağ tarafta kalan metn2 yi "A1" hücresine yazdırmak istiyorum.
Fonksiyon kullanmadan VBA nasıl yapabilirim?

 

[YUSUF44]

B1 hücresindeki verinin "-"'den sonraki kısmını A1 hücresine aşağıdaki kodla alabilirsiniz:

Sub sağdan()
    [A1] = Right([B1], Len([B1]) - WorksheetFunction.Find("-", [B1]))
End Sub

 

[hukumran1]

B1 hücresindeki verinin "-"'den sonraki kısmını A1 hücresine aşağıdaki kodla alabilirsiniz:

Sub sağdan()
    [A1] = Right([B1], Len([B1]) - WorksheetFunction.Find("-", [B1]))
End Sub

Çok teşekkürler. Tam manasıyla işimi gördü.

 

[hukumran1]

B1 hücresindeki verinin "-"'den sonraki kısmını A1 hücresine aşağıdaki kodla alabilirsiniz:

Sub sağdan()
    [A1] = Right([B1], Len([B1]) - WorksheetFunction.Find("-", [B1]))
End Sub

Sol taraftaki kısmı almak için Right kısmını Left yaptım ama olmadı. Nasıl yapabilirim?

 

[Orion1]

Buyurun.

Dim say As Integer, deg As String
say = VBA.InStr(1, Range("A1"), "-")
Range("B1").Value = Left(Range("A1").Value, say - 1)

 

[hukumran1]

A1 ve B1 hücrelerinde aynı içerik olmadıkça çalışmıyor. A1 hücresinin - işaretinden önce gelen içeriğini B1 hücresine aktarmak istiyordum. Ben mi bişeyleri eksik yapıyorum.

 

[Orion1]

A1 ve B1 hücrelerinde aynı içerik olmadıkça çalışmıyor. A1 hücresinin - işaretinden önce gelen içeriğini B1 hücresine aktarmak istiyordum. Ben mi bişeyleri eksik yapıyorum.

5 numaralı mesajımı değiştirdim.
Tekrar deneyiniz.Ben B1 hücresini baz almıştım önceki cevabımda.
Çünkü ilk mesajınızda öyle istemişsiniz.

 

[hukumran1]

5 numaralı mesajımı değiştirdim.
Tekrar deneyiniz.Ben B1 hücresini baz almıştım önceki cevabımda.
Çünkü ilk mesajınızda öyle istemişsiniz.

Tekrar teşekkürler. A1 B1 değişerek yapmaya çalıştım ama bu kombinasyonu denememişim.

Tekrar teşekkürler.

 

[Orion1]

Tekrar teşekkürler. A1 B1 değişerek yapmaya çalıştım ama bu kombinasyonu denememişim.

Tekrar teşekkürler.

Rica ederim.
İyi çalışmalar.

 

[Korhan Ayhan]

Alternatif olarak deneyiniz.

Sub Hucreden_Parca_Al()
    If InStr(1, Range("A1").Value, "-") > 0 Then
        Data = Split(Range("A1").Value, "-")
        Range("B1").Value = Trim(Data(0))
        Range("C1").Value = Trim(Data(1))
    End If
End Sub