Hücredeki ikinci noktaya kadar veri almak...

[oak1969]

Selam dostlar,

Alt alta bir sürü stok kodum var.
Örnek;
10.002.001.99999

Ben burada önce en soldaki 10, sonra 10.002 sonra da 10.002.001 rakamlarını, her noktadan sonraya kadar görmek istiyorum.

SOLDAN(A2;BUL(".";A2;BUL(".";A2))-1)
formülü ile birinci noktaya kadar olan 10 rakamını bulup yazdırdım, ancak ikinci noktaya kadar olanı 10.002 rakamını nasıl bir formülle oluşturabilirim acaba?


Lütfen yardım

Teşekkürler

 

[Ali]

Aşağıdaki linkleri inceleyebilirsiniz.

Cümle içinde kelimelerin ayrılması

Metinden istenilen kelimelerin alınması

.

 

[uzmanamele]

merhaba

bu kod işinizi görür mü?

Sub parçala_behçet()
For x = 1 To [a65536].End(3).Row
    a = Split(Cells(x, 1), ".")
    y = 2
    For i = 1 To UBound(a)
        y = y + 1
        Cells(x, 2) = Left(Cells(x, 1), (Application.WorksheetFunction.Find(".", Cells(x, 1), 1) - 1))
        Cells(x, y) = Left(a(i), Len(a(i)))
    Next
Next
End Sub

verileriniz A sütunundaysa, B:E sütununu metin olarak biçimlendiriniz

 

[mesudiye_052]

Selam

1-
=DEĞİŞTİR(YERİNEKOY(F3;".";"@";1);BUL("@";YERİNEKOY(F3;".";"@";1);1);100;"")

2-
=DEĞİŞTİR(YERİNEKOY(F3;".";"@";2);BUL("@";YERİNEKOY(F3;".";"@";2);1);100;"")
3-
=DEĞİŞTİR(YERİNEKOY(F3;".";"@";3);BUL("@";YERİNEKOY(F3;".";"@";3);1);100;"")