rakamları ayırma

[sevensuleyman]

merhaba koaly gelsin . aşağıdaki şekilde excell mitarlar mevcut. vba kodu ile müktarları ayırmak isityorum yardımcı olursanız sevinirim. şimdiden tşk

19 AD

26 AD

Son 1 TK

27 AD

Son 5 AD

Son 1 AD

Son 5 AD

24 AD

47 AD

14 AD

Son 1 TK

Son 9 AD

Son 7 AD

19 AD

Son 3 TK

Stokta Yoktur

15 AD

23 AD

12 TK

16 AD

38 TK

Son 1 AD

12 AD

48 AD

31 AD

Son 3 TK

Son 1 AD

10 AD

 

[Haluk]

Alternatif olarak, Libre Office'de REGEX kullanarak formülle yapılabilir....




.

 

[Merhum İdris SERDAR]

.

Hazırladığım dosya ekte.

.

 

[sevensuleyman]

teşekkürler cevabınız için bir butona bağlayıp çalıştırarak temizlemek istiyorum. bunun için makro yazarsanız sevinirim.

 

[Haluk]

Birimleri de ayırmak istenirse;



.

 

[Haluk]

MS Excel kullanmak durumundaysak, İdris Bey'in aşağıdaki linkte yer alan dosyasında kullandığı "RegExExtract" isimli KTF ile;

https://www.excel.web.tr/threads/kuralli-normal-ifadeler-regular-expression-regex-veya-regexp.199732/post-1117716

Miktarlar için;

=RegExExtract(A1;"(\d+)";0)

Birimler için;

=RegExExtract(A1;"(\w+)$";0)

.

 

[Merhum İdris SERDAR]

teşekkürler cevabınız için bir butona bağlayıp çalıştırarak temizlemek istiyorum. bunun için makro yazarsanız sevinirim.

Dosya ekte.

Sheet2'ye bakınız.

.