• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Virgülden sonrasını temizleme

  • Konbuyu başlatan Konbuyu başlatan esolen
  • Başlangıç tarihi Başlangıç tarihi
E

esolen

Katılım
20 Nisan 2005
Mesajlar
451
Arkadaşlar MErhaba
Hücrenin içinde görünen rakam 21,07 YTL dir
ancak hücrenin içine girdiğimde 21,0745454545455 görünüyor.
Kopyala değer yapıştır yaptım 21,07 den sonraki rakamlardan kurtulamadım.
Parça ad denedim. bu defada bazı hücrelerde basamak sayısı daha fazla
bu şekilde 100 lerce hücre var nasıl temizleye bilirim.
selamlar
 
Sutnu seçin CTRL+H Araan Değere ,** yazın Yeni değere bir şey yazmayın boş kalsın daha sonra tümünü değiştir yapın
 
Merhaba
Syn. bulentkars'ın önerisiyle kesirden tamamen kurtulursunuz.
Ama virgülden sonra 2 basamak kesir kısmını istiyorsanız (örn:sayınız A1 hücresinde olsun)
Herhangibir hücrede;
=EĞER((TAMSAYI(A1))=A1;A1;BİRLEŞTİR(PARÇAAL(A1;1;(MBUL(",";A1))-1);",";PARÇAAL(A1;(MBUL(",";A1)+1);2)))*1
Formülünü uygulayın.
İyi çalışmalar.
 
24,148546647 olan değer hücrerin içinde 24,15 olarak görünüyor bana lazım olan rakamda bu
dediğiniz formülü uyguladığımda yeni değer 24,14 oluyor
oysaki bize lazım olan 24,15

Örnekler aşağıdaki gibibdir
21,34 21,34
21,81 21,81
22,28 22,27
22,75 22,74
23,21 23,21
23,68 23,68
24,15 24,14
24,62 24,61
25,08 25,08
25,55 25,55
26,02 26,01
26,49 26,48
26,95 26,95
 
=PARÇAAL(A1;1;BUL(",";A1;1)+2)

alternatif olsun
 
bunu deneyin

=YUVARLA(PARÇAAL(F9;1;BUL(",";F9;1)+4);2)
 
Yuvarlama ilgili bir talebiniz olmamıştı
=YUVARLA((A1/0,01);0)*0,01
şeklinde deneyin
 
merhaba

Aslında çok kolay bir yol var.. Formül uygulamaya gerek yok.
Araçlar > seçenekler > hesaplama
burada
duyarlılık görüntülendiği gibi seçeneğini tikle olay bitmiştir :)
sevgiler...
 
Son düzenleme:
=YUVARLA(F8;2) bu kadarı da yeterli
 
kuvari' Alıntı:
=YUVARLA(F8;2) bu kadarı da yeterli
Genişletmek için tıkla ...

merhaba ,
benim sorum biraz daha farklı virgülden sonraki ilk iki rakamı alacak ama yuvarlama yapmadan nasıl yapacağım bulamadım..
A1 Hücresinde 0,70
B1 hücresinde 0,75
c1 hücresinde 0,73
var bunların ortalamasını alınca 0,73 oluyor ama kuruş yönetmeliğine göre 0,72666 ise 0,72 nin alınması lazımmış .. Yani
0,726666 yı = 0,72 olarak yazacak ve bu sayıyı 1 ile çarpınca 0,72 olacak ama bende farklı sonuçlar çıkıyor ..
saygılarımı sunuyorum
 
Merhaba,

Kod: 
=AŞAĞIYUVARLA(ORTALAMA(A1:C1);2)

dener misiniz?
 
sert_unsuz' Alıntı:
Aslında çok kolay bir yol var.. Formül uygulamaya gerek yok.
Araçlar > seçenekler > hesaplama
burada
duyarlılık görüntülendiği gibi seçeneğini tikle olay bitmiştir :)
sevgiler...
Genişletmek için tıkla ...
formülle felan hiç ugraşmaya gerek yok
bu cok pratik gercekten teşekkürler...
 
istatis.tik' Alıntı:
formülle felan hiç ugraşmaya gerek yok
bu cok pratik gercekten teşekkürler...
Genişletmek için tıkla ...

Merhaba ,

Ben denedim olmuyor. Necdet Bey in ( tekrardan teşekkür ederim formülünüz için )yöntemi ile ancak oluyor .. O zaman yuvarlama yapıyor zaten.. Acaba benim görmediğim anlamadığım bir yer mi var.. Saygılarımla
 
Erdem_34' Alıntı:
bunu deneyin

=YUVARLA(PARÇAAL(F9;1;BUL(",";F9;1)+4);2)
Genişletmek için tıkla ...
Merhabalar Konu baya bi eskimiş ama olaki lazım olan olursa diye yazayım dedim.
Bu formül çok güzel işe yarıyor lakin virgülden sonrası olmayanlarda hata veriyor. O yüzden formülü şu şekilde düzenleyip kullandım.

Kod: 
=EĞERHATA(YUVARLA(PARÇAAL(F9;1;BUL(",";F9;1)+4);2);TAMSAYI(F9))
 
Alternatif : Veriler A sütununda olduğu var sayılarak
Kod: 
Sub deneme11()
On Error Resume Next


Range("B1:B1000").ClearContents


    Dim Vbsc, i
    Set Vbsc = CreateObject("VBScript.RegExp")
    Vbsc.Global = True

    Vbsc.Pattern = "(\d{1,2})\,|.(\d{1,1})" 'decimal rakam parçala1
 
    
    For i = 1 To Range("A65536").End(3).Row

        Cells(i, "b") = CDec(Vbsc.Execute(Cells(i, "A")).Item(0) & Vbsc.Execute(Cells(i, "A")).Item(1))
        
      
Next i


    i = Empty: Set Vbsc = Nothing
  
End Sub
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst