Sağdan ve Soldan Formulunun VBA karşılığı

[Feylosof]

=SAĞDAN(A1;UZUNLUK(A1)-BUL(" ";A1))
=SOLDAN(A1;BUL(" ";A1)-1)

İyi akşamlar;
Bu iki fonksiyonun VBA ile nasıl yazıldığını öğrenmek istiyorum. Makro kaydet ile uyarlama yapamadım.
Teşekkürler...

 

[Haluk]

Bence, "Split" fonksiyonu daha kestirme olur....

Sub Test()
    MsgBox Split(Range("A1").Text, " ")(0)
End Sub

Boşluktan önceki ilk kelime için (0), boşluktan sonraki ilk kelime için (1) kullanabilirsiniz.

.

 

[Feylosof]

Sayın @Haluk çok teşekkürler. Deneyeceğim. Umarım dosyama tatbik edebilirim.

 

[ASLAN7410]

Merhaba, ben sayfalarımda formülleri Türkçe olarak kullanıyorum.
İsterseniz sizde kod içerisinde bu şekilde yapabilir siniz.

Sub Soldan()
With Sheets("Sayfa1").Range("B1")
.FormulaLocal = "=SOLDAN(A1;BUL("" "";A1)-1)"
'.Value = .Value
End With
End Sub

Sub Sağdan()
With Sheets("Sayfa1").Range("C1")
.FormulaLocal = "=SAĞDAN(A1;UZUNLUK(A1)-BUL("" "";A1))"
'.Value = .Value
End With
End Sub

 

[Orion1]

=SAĞDAN(A1;UZUNLUK(A1)-BUL(" ";A1))
=SOLDAN(A1;BUL(" ";A1)-1)

İyi akşamlar;
Bu iki fonksiyonun VBA ile nasıl yazıldığını öğrenmek istiyorum. Makro kaydet ile uyarlama yapamadım.
Teşekkürler...

Alternatif.
Buyurun.

Sub bul()
Dim x As Byte, sol As String, sag As String
x = InStr(Range("A1").Value, " ")
sol = Left(Range("A1").Value, x - 1)
sag = (Right(Range("A1").Value, Len(Range("A1").Value) - x))
MsgBox sol
MsgBox sag
End Sub

 

[Feylosof]

Haluk Bey'in kodunu dosyamda çalıştırdım. Gayet iyi çalışıyor. Sayın @Orion1 ve sayın @ASLAN7410 her ikinize de çok teşekkür ederim.