iki nokta arasındaki kelimeyi alma

[kneehot]

arkadaslar elimde urun kodları var bu kodların ıcınden kelıme almaya calısıyorum yardımcı olursanız cok sevınırım

ornek

AE.ETİKET.001.01
ACR.KOLİ.003.10

kodların tamamı bu sekılde.almaya calıstıgım yer soldan ıkı nokta arası

ETİKET
KOLİ

yardımlara tesekkurler.

 

[kneehot]

kodlar arasında

ER.KOLİ.002 olanlarda var.herzaman uc noktalı degıl kodlarım.

 

[Merhum İdris SERDAR]

arkadaslar elimde urun kodları var bu kodların ıcınden kelıme almaya calısıyorum yardımcı olursanız cok sevınırım

ornek

AE.ETİKET.001.01
ACR.KOLİ.003.10

kodların tamamı bu sekılde.almaya calıstıgım yer soldan ıkı nokta arası

ETİKET
KOLİ

yardımlara tesekkurler.

.

Örnek dosya ekte.

.

 

[kneehot]

Cok tesekkurler.

 

[Merhum İdris SERDAR]

Cok tesekkurler.

.


=MID(A1;SMALL(IF(MID("."&A1;ROW(INDIRECT("1:"&LEN(A1)+1));1)=".";ROW(INDIRECT("1:"&LEN(A1)+1)));2);SUM(SMALL(IF(MID("."&A1&".";ROW(INDIRECT("1:"&LEN(A1)+2));1)=".";ROW(INDIRECT("1:"&LEN(A1)+2)));2+1*{0\1})*{-1\1})-1)


.

Hangisi uzun?:biggrin:

.

 

[Asri]

Sanırım en kısa bu

=PARÇAAL(PARÇAAL(A1;MBUL(".";A1)+1;100);1;MBUL(".";PARÇAAL(A1;MBUL(".";A1)+1;100))-1)

 

[Orion1]

Bu dahamı kısa oldu Ne?
KTF:
Aşağıdaki kodları kullanacağınız dosyada standart bir modüle koyunuz.
A1 de değeriniz varsa B1 e aşağıdaki formülü yazınız.

=noktaarasi_59(A1)

Function noktaarasi_59(ByVal hcr As Range) As String
Dim deg
deg = Split(hcr.Value, ".")
If UBound(deg) >= 1 Then noktaarasi_59 = deg(1)
End Function

 

[Merhum İdris SERDAR]

Sanırım en kısa bu

=PARÇAAL(PARÇAAL(A1;MBUL(".";A1)+1;100);1;MBUL(".";PARÇAAL(A1;MBUL(".";A1)+1;100))-1)

.


Ben bu formülü bir başka amaçla hazırlanmış bir çalışmamdan uyarladığım için uzun olmuş.

Sözkonusu çalışmamı da ekte veriyorum.

Öte taraftan, ben uzun bir formüle karşılık iki sözcükle bir yanıt için şaka yollu bir dokundurma yapmaya çalışmıştım.

Siz formülünüzü bana yönelik bir yanıt olarak değil de soruyu sorana yönelik bir alternatif olarak sunsaydınız daha şık olurdu.

Her neyse ben de bunu bir espri olarak algılıyayım.

.

 

[Asri]

.


Ben bu formülü bir başka amaçla hazırlanmış bir çalışmamdan uyarladığım için uzun olmuş.

Sözkonusu çalışmamı da ekte veriyorum.

Öte taraftan, ben uzun bir formüle karşılık iki sözcükle bir yanıt için şaka yollu bir dokundurma yapmaya çalışmıştım.

Siz formülünüzü bana yönelik bir yanıt olarak değil de soruyu sorana yönelik bir alternatif olarak sunsaydınız daha şık olurdu.

Her neyse ben de bunu bir espri olarak algılıyayım.

.

Tabikii espri, burda bilmişlik taslamak bana düşmez.
Alternatif bir çözüm diye düşünebiliriz.