cümle içerisinden kelime sayı alma

[lasera]

Merhabalar,

internetten indirdiğimiz Belli formatta dosyamız var.

10.08.2012 31.12.9999 52649875 Ekmek 1 PC
04.10.2012 31.12.9999 63164985 Çikolata 1 PC

gibi bir dosya. Ben 52649875 olan kısımlarını almak istiyorum diğer bir boş hücreye. Sağdan, Soldan işe yaramadı. Yardımlarınızı rica ederim.

 

[hamitcan]

Aralarında boşluk varsa "Metni Sütunlara Dönüştür" fonksiyonunu kullanınız.

 

[lasera]

Şu an zaten bu şekilde hallediyorum fakat ürünün kodunu istediğim şekilde alabilirsem daha iyi, kolay ve seri olacak.

 

[bzace]

Merhabalar,
Verinizi A1 hücresine girerek deneyiniz.

=KIRP(YERİNEKOY(PARÇAAL(SAĞDAN(" "&YERİNEKOY(A1;" ";
  YİNELE(" ";50));50*4);1;50);" ";""))

 

[Emir Hüseyin Çoban]

. . .

Veri formatları sabit ise şu kodları deneyin.

Sub KOD()
Application.ScreenUpdating = False

Range("B:B").ClearContents
For i = 1 To Cells(Rows.Count, "A").End(3).Row
Cells(i, "B") = Split(Range("A1").Value, " ")(2)
Next i

Application.ScreenUpdating = True
MsgBox " B i t t i "
End Sub

Tablo Görüntüsü:

. . .

 

[YUSUF44]

Alternatif olarak, eğer tüm verilerinizde 9999 standart olarak yer alıyorsa ve kodlarınız hep 8 karakterse aşağıdaki formülü de kullanabilirsiniz:

=PARÇAAL(A1;BUL(9999;A1)+5;8)

 

[ofd2008]

Alternatif olarak;

=PARÇAAL(A1;22;9)

 

[YUSUF44]

Ya da yiine verileriniz standart şekilde başta 22 karakter tarih ve boşluklardan sonra 8 karakter kodsa aşağıdaki formül de olabilir :

=PARÇAAL(A1;23;8)

 

[lasera]

Merhabalar,
Verinizi A1 hücresine girerek deneyiniz.

=KIRP(YERİNEKOY(PARÇAAL(SAĞDAN(" "&YERİNEKOY(A1;" ";
  YİNELE(" ";50));50*4);1;50);" ";""))

Merhabalar,

Bu formülü açıklayabilir misiniz?
Şu anda ikinci tarihi veriyor bana ürün kodu yerine.

 

[lasera]

Alternatif olarak;

=PARÇAAL(A1;22;9)

Çok basit bir şekilde buymuş çözümü çok teşekkürler. ofd2008 sizede çok teşekkürler.

Hayırlı Cumalar herkese.

 

[bzace]

Formül ben de doğru sonucu veriyor.
Birde bunu dener misiniz?
B1 hücresine yazınız.

=KIRP(PARÇAAL(YERİNEKOY(A1;" ";YİNELE(" ";50));50*(SÜTUN());50))

Eğer ki ben C sütununda işlem yapacam derseniz ozaman şu şekilde kullanınız.

=KIRP(PARÇAAL(YERİNEKOY(A1;" ";YİNELE(" ";50));50*(SÜTUN()[COLOR="Red"]-1[/COLOR]);50))

Daxe Syán

 

[merakli_72]

Sayın bzace ;
teşekkür ederim
Arkadaşlar fark etmedi fakat satırlardaki karakter sayılarının eşit olmadığı durumlarda kullanılabilecek güzel bir örnek verdiniz.