Virgülden sonrasını temizleme

[esolen]

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

 

[bulentkars]

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

 

[muygun]

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.

 

[esolen]

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

 

[Erdem Akdemir]

=PARÇAAL(A1;1;BUL(",";A1;1)+2)

alternatif olsun

 

[Erdem Akdemir]

bunu deneyin

=YUVARLA(PARÇAAL(F9;1;BUL(",";F9;1)+4);2)

 

[esolen]

bunu deneyin

=YUVARLA(PARÇAAL(F9;1;BUL(",";F9;1)+4);2)

Teşekkür ederim

 

[muygun]

Yuvarlama ilgili bir talebiniz olmamıştı
=YUVARLA((A1/0,01);0)*0,01
şeklinde deneyin

 

[sert_unsuz]

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...

 

[Erdem Akdemir]

=YUVARLA(F8;2) bu kadarı da yeterli

 

[azize]

=YUVARLA(F8;2) bu kadarı da yeterli

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

 

[Necdet]

Merhaba,

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

dener misiniz?

 

[azize]

Merhaba,

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

dener misiniz?

çok teşekkür ederim... sağolun

 

[istatis.tik]

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...

formülle felan hiç ugraşmaya gerek yok
bu cok pratik gercekten teşekkürler...

 

[azize]

formülle felan hiç ugraşmaya gerek yok
bu cok pratik gercekten teşekkürler...

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

 

[mesuttasar]

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...

Aynen katılıyorum en iyi yöntem budur.

 

[ThaLees]

bunu deneyin

=YUVARLA(PARÇAAL(F9;1;BUL(",";F9;1)+4);2)

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.

=EĞERHATA(YUVARLA(PARÇAAL(F9;1;BUL(",";F9;1)+4);2);TAMSAYI(F9))

 

[excelokyanus500]

Alternatif : Veriler A sütununda olduğu var sayılarak

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