Parça Al Formülü

[excelman]

Merhabalar;

B sutunumda ürünlerin listesi var.Ürün Açıklamalarının sonunda ürün kodu yazıyor.Ben bu ürün kodlarını C sütununa yazdırmak istiyorum.
Ã?rnek;

B2 satırı = Kahve Kreması K.026 iken C2 satırına Sadece 026 yazmasını istiyorum.

Açıklamaların uzunlukları değiştiği için normal parçaal metodu ile yapamadım.Başka bir yolu varsa yardımcı olursanız sevinirim.

 

[isakarakus]

ing,

=RIGHT(B2;3)

türkçede,
=SAÐDAN(B2;3)
olacaktı galiba

 

[excelman]

Sayın isakarakus cavabınız için teşekkür ederim ama ben bu yolu da denemiştim.
Kod kısmının uzunluğu değişiyor yani bazıları 6 haneli bazıları 8 haneli upuzun bir listede bu formülleri tek tek olusturmak baya zaman alır.Þöyle bir şey olabilirmi acaba formülü K. ya dayandırarak K.dan sonraki rakamları alabilirmiyiz?

 

[red_lion_72]

selam,

=PARÇAAL(b2;BUL("K.";b2;1)+1;UZUNLUK(b2)-BUL("K.";b2;1))

bunu denermisiniz?

kolay gelsin.

Ayrıca formülleri tek tek oluşturmayın, en üsttekini yazdıktan sonra aşağıya kadar kopyalayın.

 

[isakarakus]

merhaba,
bu formul işe yaradı
ama ing..

=MID(B4;FIND("K.";B4;1)+2;LEN(B4))

 

[Haluk]

B sütunundaki veriler için VBA ile bir çözüm;

Sub Test()
Dim RegExp
Dim NoB As Long
Dim MyRng As Range, MyCell As Range
NoB = Range("B65536").Cells.End(xlUp).Row
Set MyRng = Range("B2:B" & NoB)
For Each MyCell In MyRng
Set RegExp = CreateObject("VBscript.RegExp")
RegExp.Global = True
RegExp.Pattern = "[^0-9]"
MyCell.Offset(0, 1) = RegExp.Replace(MyCell, "")
Next
Set MyRng = Nothing
Set RegExp = Nothing
End Sub

 

[isakarakus]

tüh...

 

[Haluk]

tüh...

nasıl yani ?

 

[red_lion_72]

bende anlamadım, bence sorun formülde

 

[excelman]

İlgilenen herkese teşekür ederim.

Sayın WAKKASSSS verdiğiniz formül değer hatası verdi.

Sayın Raider verdiğiniz kodu denedim fakat kod satır içindeki rakamları metinden ayırıyor.Bu işime bazı satırlarda yarıyor fakat bazı satırlarda metin içinde benim almamam gereken rakamlar var örneğin bazı ürün açıklamaları şu şekilde;

 Kahve Kreması 100 Gr. K.055
          Kahve Kuru 250 Gr. K.065....gibi

bu metinlerin içerisinde K. dan sonra olan rakamları almam lazım.

Kolay Gelsin.

 

[red_lion_72]

Selam,

Sorun zannediyorum direk formülü ctrl+v ile yapıştırmanızda. C2 hücresine mousla dokunup F2 tuşuna basıp sonra formülü yapıştırın.

Kolay gelsin.

 

[Haluk]

Revizyon :

[vb:1:6dffb423e4]Sub Test2()
Dim NoB As Long
Dim MyRng As Range, MyCell As Range
Dim x As Integer
NoB = Range("B65536").Cells.End(xlUp).Row
Set MyRng = Range("B2:B" & NoB)
For Each MyCell In MyRng
x = InStr(1, MyCell, "K.")
MyCell(1, 2).NumberFormat = "@"
MyCell(1, 2) = Format(Mid(MyCell, x + 2, 98), "000")
Next
Set MyRng = Nothing
End Sub
[/vb:1:6dffb423e4]

 

[isakarakus]

tüh...

nasıl yani ?

@WAKKASSSS benden önce yazdı yani
kusura bakmayın konuşma konusunda ders almalıyım.

 

[excelman]

Sayın Raider
Verdiğiniz kodlarla sorun çözüldü teşekkür ederim.