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

[lapot]

nasil duzeltirm veri formatini?

 

[Korhan Ayhan]

Selamlar,

Sn. lapot,

Veriyi nasıl düzeltmek istiyorsunuz. Örneklermisiniz.

 

[lapot]

koran bey tesekkurler ben onu manual bir sekilde yaparim ama birshey daha ogrenmek istiyorum. stun A yi sort yaptigimda Sutun B deki harsey ?NAME# haline donuyor neden acaba?

 

[Orion1]

Dosyanız ektedir.
Yalnı Önceki yolladığınız dosyadaki hücredeki verilerle buradakiler farklı formatta.İşlk veri için söylüyorum.
Korhan beyde zaten belirtmiş.
Şimdi böyle olunca hani boks maçlarında rakibine sağ gösterip sol vurursun ya o durum oluşuyor.Anında abondone oluyoruz.Neyse sonradan toparlanıyoruz yinede.
Kolay gelsin.

Function Sifirat(hcr As Range) As String
Dim deg As String, say As Integer, deg2 As String, deg3 As String
say = 1
deg = Left(hcr.Value, say)
If hcr.Value = "" Or hcr.Value = 0 Then Exit Function
Do While Mid(hcr.Value, say, 1) <> "0" And say <= Len(hcr.Value)
    deg = Left(hcr, say)
    say = say + 1
Loop
If Len(hcr.Value) = Len(deg) Then GoTo atla
deg2 = Right(hcr.Value, Len(hcr.Value) - say - 1)
say = 1
Do While Mid(deg2, say, 1) = "0" And say <= Len(deg2)
    deg3 = Right(deg2, Len(deg2) - say)
    say = say + 1
Loop
atla:
Sifirat = deg & deg3
End Function

 

[lapot]

cok sagolun arkadaslar , gercekten yardimlariniz cok makbule gecti.

 

[lapot]

zihinleriniz dert gormesin