Hücredeki sıfırlar nasıl silinir

[lapot]

arkadaslar merhaba

asagidaki kodlarda harfle sayi arasindaki sifirlari nasil silerim? boyle onbinlerce kod var dosyada ve sifirlarin adedi degisken.

Her kodun karakter adedi 15 tane, bastaki harflerin ve sondaki sayilarin adedine gore sifirlarin adedi de degisiyor.


Bir ornek verecek olursam ilk kodun GAR103, ikinci kodun HPP1, ucuncunun KOZ1 olmasi lagzim. Yardimci olabilirseniz cok sevinirim



GAR000000000103
HPP000000000001
KOZ000000000001
OSS000000000027
SPE000000000018
SUS000000000061
BF0000000000001
CLI000000000046
GRA000000000102
KHT000000000002
LAN000000000018
LAN000000000018
LQ0000000000001


saygilar.

 

[ofis34]

access de oluyor zannedersem

 

[Yesilyurtlu]

Evren GİZLEN Üstadımdan öğrenmiştim.
0;-0;; Hücre biçimlendirmeden giriniz

 

[lapot]

excel 2003 de olmazmi?

 

[Orion1]

aşağıdaki ktf ile sonuç erlde edebilirisiniz.
Boş bir standart modüle kodları yapıştırınız.
Kullanılışı;A1 için;
=strat(A1)
KTF

Function strat(hcr As Range) As Long
Dim deg As String, say As Integer
deg = hcr
Do While Not IsNumeric(deg)
    say = say + 1
    deg = Right(deg, Len(deg) - say)
Loop
strat = CLng(deg)
End Function

 

[lapot]

cok sagol arkadasim verdigin kod calisiyor fakat sadece sayiyi ayiriyor harflerden olan kisim yok. yani GAR000000000103 sadece 103 oluyor. benim icin GAR103 olmasi lagzim.
tesekkurler

 

[Necdet]

Merhaba,

Değerlerin A sütununda olduğunu varsayalım
B1

=SOLDAN(A1;3)&SAĞDAN(A1;12)+0
=LEFT(A1;3)&RIGHT(A1;12)+0

 

[lapot]

maglesef hata veriyor, clismiyor.

 

[Orion1]

aşağıdaki değişiklille oldu.KTF'yi standart bir modüle yapıştırın.

Ben soryu yanlış anlamışım.
kullanımı:
=sifirat(A1)

Function sifirat(hcr As Range) As String
Dim deg As String, say As Integer, deg2 As String
deg = hcr
Do While Not IsNumeric(deg)
    say = say + 1
    deg = Right(hcr, Len(hcr) - say)
    deg2 = Left(hcr, say)
Loop
sifirat = deg2 & CLng(deg)
End Function

 

[lapot]

Arkadasim

harika calisti.

you are a legend (sen bir efsanesin)

cok cok tesekkurler, saygilarimi sunuyorum.

 

[Orion1]

Arkadasim

harika calisti.

you are a legend (sen bir efsanesin)

cok cok tesekkurler, saygilarimi sunuyorum.

Rica ederim.
İyi çalışmalar.

 

[Korhan Ayhan]

Selamlar,

Evren bey güzel bir KTF ile sorunuzu çözümlemiş. Alternatif olması açısından aşağıdaki formülüde kullanabilirsiniz.

Eğer örneklediğiniz veriler gerçek dosyanızda da aynı şekilde ise formül sağlıklı çalışır. Aksi halde formül hatalı sonuçlar üretebilir.

=PARÇAAL(A1;1;BUL("0";A1;1)-1)&MUTLAK(ARA(9,99999999999999E+307;--SAĞDAN(A1;SATIR($A$1:$A$1024))))

 

[lapot]

cok sagolun arkadaslar.

 

[lapot]

arkadaslar dosyadaki gereksiz macrolari temizldeim fakat bu sefer "sifirat" macrom gozukmuyor, bu yuzden macro you calistiramiyorum. bunu nasil duzletirim?

yeni modul ekledim Kod icine kopyaladim bu sefer END SUB erroru veriyor. yardim edebilirmisiniz?

 

[Orion1]

sifir at bir fonksiondur.
başlıngıç olarak function sifirat()
bitiş olarak end function olmalıdır.
End sub olmamamlıdır.

 

[lapot]

Sagol fakat neden macrolari temizledikten sonra calismiyor? simdi ?NAME# hatasi veriyor.

 

[Orion1]

Sagol fakat neden macrolari temizledikten sonra calismiyor? simdi ?NAME# hatasi veriyor.

Dosyanızı yollayın.
Anlaşıldı siz yapamayacaksınız.

 

[lapot]

dosyayi ekledim, cok sagol

 

[lapot]

evren arkadasim sonuc alabildinizmi

 

[Korhan Ayhan]

Selamlar,

Evren beyin önerdiği fonksiyon dosyanızda çalışıyor. Bir problem görünmüyor.

Yalnız A2 hücresindeki veri formatı diğerlerine benzemediği için hatalı sonuç çıkıyor.