Ilk boşluğa kadar parça al

[Mukteda]

Arkadaşlar merhaba,

Ürün kodları ve ürün açıklamalarının bir satırda yazıldığı uzun bir listem var.

Ürün kodlarını ürün açıklamalarından ayırmam gerekiyor.

Ancak ürün kodlarının belirli bir standardı yok. Kimi 5, kimi 3, kimi 10 karakter vs.

Aklıma şöyle bir çözüm geldi: Soldan ilk boşluğa kadar parça al.

Veya sizin başka alternatif çözümünüz var mıdır?

 

[Ömer]

Merhaba,

Sorunuz net değil.

2 formülden biri istediğinizi verecektir sanırım.

=SOLDAN(A1;BUL(" ";A1)-1)

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

.

 

[Mukteda]

Çok kıymetli Ömer Hocam,

Tamamdır. Verdiğiniz fonksiyonlar çalıştı.

Günlerce sürecek bir işi çok kısa bir zamanda bitirmek mutlu ettiği kadar sersemletti de...

Hakkınızı helal ediniz. İşlerinizde kolaylıklar dilerim

 

[HarEndu]

merhaba,
Parçaal ile ilk üç rakamı alacağım, sonrasında ise ikinci satıra geçtiğimde eğer 100 (yada diğer sayı) varsa almayacak sonraki stünları kontrol edecek. böyle bir formülü nasıl uygularım...

100.10.001
100.10.EUR
101.01.01.001
101.01.02.010
102.01.010
102.01.015
110.01.001
120.01.000.10
120.01.000.15
121.01.01.001
121.01.02.010
121.01.03.001
121.US.01.001
126.01
127.01.001
128.01.001
128.01.003
129.01
133.01.001
133.01.002

 

[leonadies]

ilk boşluğa kadar parça al VBA karşılığı nedir?

 

[Orion1]

ilk boşluğa kadar parça al VBA karşılığı nedir?

Buyurun.

Sub ilkbosluk()
MsgBox Split(Range("A1").Value, " ")(0)
End Sub

 

[Korhan Ayhan]

Alternatifler;

MsgBox Left(Range("A1").Value, Instr(1, Range("A1").Value, " ")-1)

MsgBox Left(Range("A1").Value, WorksheetFunction.Find(" ", Range("A1").Value) - 1)

 

[leonadies]

Sağolun @Korhan Ayhan ve @Orion1 üstadlarım