7 karekterden sonraki noktaları kaldırmak.

[a_self_lion]

Selam dostlarım.
Ekteki dosyada aşağıdaki gibi kodlarımı 7 karekterden sonra ki kıvrımların noktalarını kaldırmak istiyorum.

olması gerken 600.01. dan sonrasının noktaları kaldırılıp birleştirilecek bunu nasıl yapabilrim.
7 karekterden sonra sının noktalarını kaldırmam gerekiyor bunu macro ile nasıl yapabilirim.

örnek ektedir.

 

[Vedat Özer]

Selamlar,

D1 Hücresine,

Aşagıdaki formülü yapıştırın bakalım istediğiniz sonucu veriyomu ?

=EĞER(UZUNLUK(A6)<=7;A6;EĞER(UZUNLUK(A6)>7;SOLDAN(A6;7)&YERİNEKOY(PARÇAAL(A6;7;10);".";"")))

 

[a_self_lion]

Sayın Vedat Özer kardeşim teşekkür ederim. Elinize sağlık.

 

[Vedat Özer]

Rica Ederim.

İyi çalışmalar dilerim.

 

[Ömer]

Vedat bey, burada fazladan eğer kullanmanıza gerek yoktu.

=SOLDAN(A2;7)&YERİNEKOY(PARÇAAL(A2;7;1000);".";"")

Bu şekilde de yazılabilir.

.

 

[Vedat Özer]

Selamlar,

Hocam öneriniz için teşekkür ederim.

 

[a_self_lion]

Hocam bir sorunum daha çıktı şöyle ki;
600.01.0101099 ---- 600.01.101099
600.01.0201001 ---- 600.01.201001

burda yapmak istediğim soldan 8 inci karekter olan 0 rakamını silmek istiyorum ama sadece 8 inci karekterdekini diğerleri kalacak. Bunu nasıl yapabilirim. Sizin formülle yapınca hocam hepsini siliyor.
Rica etsem buna da bir çözüm bulsak.

 

[Ömer]

=SOLDAN(A2;7)&YERİNEKOY(PARÇAAL(A2;[COLOR=red]7[/COLOR];1000);".";"")

7 olan değeri 9 yapınız..

.

 

[a_self_lion]

hocam özür dileyerek bu cümlenin anlamını yazabilirminiz neden 7 yerine 9 yazayım. Bilerek yapmak açısından sordum yanlış anlamayın sakın.

 

[Ömer]

Örneklerinizde,

600.01.01.01.099

7 karekteri işaretledim. Eğer 7 yerine 9 alırsanız, mavi işaretlediğim 1 değerinden parça almaya başlayarak işleme sokar. Bu şekilde arada kalan 0 değeri sonuça ilave olmaz.

.

 

[a_self_lion]

hocam çok teşekkür ederim bu şekilde daha anlaşılır oldu.