Sayıdan sıfır atma

[sefaburan]

Arkadaşlar selamün aleyküm. ekteki listede taşınır kodu bölümüdeki kodların içinden sıfırları atmak istiyorum. örneğin 150.01.03 şeklinde değil de 150.1.3 seklinde yapmak istiyorum bu mümkün mü.

 

[Ömer]

Merhaba,

Değişmesini istediğiniz aralığı fare ile seçin, Ctrl H menüsünden aranan bölüme 0 yazıp tümünü değiştir butonunu kullanın.

 

[sefaburan]

bu doğru lakin ben sadece rakamların solundaki sıfırların silinmesini istiyorum.

 

[mersilen]

Merhaba
BU kodu deneyin.

Private Sub Command1_Click()

Dim dizisayisi, i As Integer
For i = 17 To 25
deger = ""
myarray = Split(Cells(i, "B"), ".")

For dizisayisi = 0 To UBound(myarray)

a = CDbl(myarray(dizisayisi))
If dizisayisi <> UBound(myarray) Then
deger = deger & a & "."
Else
deger = deger & a
End If

Next dizisayisi
Cells(i, "B") = deger
Next i
End Sub

 

[Necdet]

Merhaba,

Sayın mersilen,

Kodlarınız gayet güzel çalışıyor, ama neden

For i = 17 To 25

yerine

For i = 17 To Cells(Rows.Count, "B").End(3).Row

olarak kullansanız, daha genel amaçlı olmaz mı?

 

[mersilen]

Merhaba,

Sayın mersilen,

Kodlarınız gayet güzel çalışıyor, ama neden

For i = 17 To 25

yerine

For i = 17 To Cells(Rows.Count, "B").End(3).Row

olarak kullansanız, daha genel amaçlı olmaz mı?

Necdet hocam mesajı yeni farkettim,
Dediğinizde haklısınız.Deneme yanılma ve debug ile çalışırken az satır olsun diye yapıyorum.
Keşke VBA'da da notepad gibi bir kod editörü olsa!

 

[Necdet]

Keşke VBA'da da notepad gibi bir kod editörü olsa!

Tam olarak ne demek istediğinizi anlamadım, gayet güzel editör var, siz nasıl yazıyorsunuz ki kodları?