bir metin içindeki soldan 1. ve 2. virgül arasındaki ifadeyi çekme

[modoste]

merhaba sayın hocalarım
Le'vista Hotel Collection Standard/Queen Pillow Set of 2,Le'vista,B01JR9UTFU,GUYY132,89.89,20, ,20,21.99,19.42,41.41,14.08,11.10,66.59,89.89
bu ifade A2 hücresinde yer alsın. soldan 1. virgülle 2. virgül arasındaki ifade "Le'vista" bunu formülle nasıl bulurum

 

[ÖmerBey]

Merhaba,
Deneyiniz.

=DEĞİŞTİR(DEĞİŞTİR(A1;1;BUL(",";A1);"");BUL(",";DEĞİŞTİR(A1;1;BUL(",";A1);""));1000;"")

 

[modoste]

bana gelen gerçek listeye göre birde makro çözüm isteyecem
veriler B1:B1000 arasında, makro ile buldurcağım cevaplar da A1:A1000 arasında olacak şekilde bir makro yazabilir miyiz.

Not: Sayın Ömer hocamın çözümünü uyguladım cevaplar tamam

 

[Ali]

=KIRP(PARÇAAL(YERİNEKOY(","&$A$1;",";YİNELE(" ";255));2*255;255))

 

[ÖmerBey]

veriler B1:B1000 arasında, makro ile buldurcağım cevaplar da A1:A1000 arasında olacak şekilde bir makro yazabilir miyiz.

Üzerinde cevaplar dediğiniz şeyin ne olduğunuda belirten küçük bir örnek dosya paylaşınız.

 

[Ali]

Kullanıcı tanımlı fonksiyon

Function Ayırma(metin, n, ayırac) As String
On Error Resume Next
Ayırma = Split(metin, ayırac)(n - 1)
End Function

Kullanımı

=Ayırma(A1;2;",")

A1= Hangi hücredeki metin ayrılacak
2= Kaçıncı karekterden itibaren ayrılacak.
, = Hangi ayıraç kullanılacak

 

[modoste]

dosya bana böyle geldi sayın Ömer Bey formüllerle buluna çözüm için başka bir sayfada makro ile bulabilirmiyiz.

 

[modoste]

ayrıca sayom ömer hocamın ve ali hocamın formülasyonlarının analizini yapabilirmiyiz.
=DEĞİŞTİR(DEĞİŞTİR(A1;1;BUL(",";A1);"");BUL(",";DEĞİŞTİR(A1;1;BUL(",";A1);""));1000;"")
=KIRP(PARÇAAL(YERİNEKOY(","&$A$1;",";YİNELE(" ";255));2*255;255))
bu iki fonksiyonun analizini yapabilirmiyiz.

 

[ÖmerBey]

Buyurunuz,

Sub Kod()
Dim met As String, a As Long
For a = 2 To Cells(Rows.Count, "A").End(3).Row
    met = Cells(a, "A").Text
    Cells(a, "B") = Split(met, ",")(1)
Next
End Sub

Bu arada isteğinizi yapmak için makro kullanmanıza gerek yok.
Excelin yerleşik özelliği olan ve veri sekmesinde bulunan metni sütunlara dönüştürmeyi kullanabilirsiniz.

 

[modoste]

evet hocam metni sütunlara dönüştürmede ayıraç kısmında virgülü seçince dediğiniz olduteşekkür ederim hocam metni sütunlara dönüştür detayını hatırlatığınız için