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

modoste · 20 Şubat 2019

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 · 20 Şubat 2019

Merhaba,
Deneyiniz.

Kod:

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

modoste · 20 Şubat 2019

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 · 20 Şubat 2019

Kod:

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

ÖmerBey · 20 Şubat 2019

modoste' Alıntı:
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 · 20 Şubat 2019

Kullanıcı tanımlı fonksiyon

Kod:

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ı

Kod:

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

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

modoste · 20 Şubat 2019

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

modoste · 20 Şubat 2019

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 · 20 Şubat 2019

Buyurunuz,

Kod:

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 · 20 Şubat 2019

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

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

modoste

ÖmerBey

Destek Ekibi

modoste

Ali

Uzman

ÖmerBey

Destek Ekibi

Ali

Uzman

modoste

Ekli dosyalar

modoste

ÖmerBey

Destek Ekibi

modoste