Hücrelerdeki Küsuratlı Rakamları Görebilme

[izcik]

Merhaba sayın uzmanlarım

Küçük olmayan bir excel sayfasınım bazı hücrelerinde ,49999999

veya ,399999999

gibi rakamlar var.

Örnek 47,4999999999 veya 16,3999999 gibi yada benzeri

Hücre biçimleri “genel” olduğu için yuvarlanmış halde görünüyorlar.

(47,50 veya 16,40 gibi)

Bu rakamları “sayıya” dönüştürüp, ve ondalık ayarını büyütüp, gerçek hallerini kolayca görebilirim. Ama gözümden kaçan olabilir.

Zira hepsi aynı sütunda değiller ve bütün hücreler küsuratlı sayıya dönüşeceğinden farketmek zorlaşabilir ve göremeyebilirim.

Bu küsuratlı rakamları formülle veya kodlarla bulabilmenin, farkedebilmenin bir yolu var mıdır.

Teşekkürler

 

[YUSUF44]

Şöyle olabilir:
A1'den itibaren sağa ve aşağı doğru seçin
Koşullu biçimlendirme menüsünden yeni kural ekleyin
Kular olarak formül kullanmayı seçin
Formül kısmına aşağıdaki formülü yazın:

=YUVARLA(A1;2)<>A1

Biçim ayarı yapın ve çıkın

Bu işlemle virgülden sonra 2 basamak sonrası farklıysa belirlediğiniz biçimde görünecektir.

 

[izcik]

Uzmanım çok teşekkürler, fakat hiç bir şey olmadı maalesef

ctrl+shift+space ile sayfanın tamamını seçtim ve yazdıklarınızı yaptım ama değişen bir şey olmadı

(office 2002 kullanıyorum)

 

[YUSUF44]

Örnek dosya paylaşır mısınız? Dosyada verdiğim çözüm uygulanmış olursa iyi olur.

 

[izcik]

Uzmanım çok üzgünüm ne yazık ki telefondan yazdığım için şu an için dosya gönderemiyorum.

Fakat sorumu çok daha sadeleştiriyorum.

Yeni açılmış boş bir excel sayfasının

A3 hücresine 47,49999999999

D9 hücresine 16,39999999999

yazalım.

A3 hücresi 47,50
D9 hücresi 16,40 olarak görünecektir.

İşte bu bunun gibi hata yaptırabilecek rakamları yani hücreleri bulup düzeltmek istiyorum.

Tabi söz konusu olan, tahmin edileceği üzere büyük bir excel sayfası ve yukarıdaki gibi küsuratlı ama yuvarlanmış gibi görünen rakamlar, farklı farklı satır ve sütunlarda

Acaba bulunabilir mi

Saygılarımla

 

[YUSUF44]

Yeni bir dosya açtım.
A3 hücresine 47,499999999 yazdım, 47,5 göründü
D9 hücresine 16,399999999 yazdım, 16,4 göründü
C5 hücresine 1,5 yazdım, 1,5 göründü
A6 hücresine 2 yazdım, 2 göründü
B6 hücresine 1,58 yazdım, 1,58 göründü
A8 hücresine 6,582 yazdım, 6,582 göründü

Yukarda belirttiğim koşullu biçimlendirme işlemini yaptım.

A3, A8 ve D9 hücreleri kırmızıya boyandı. Diğerlerinde değişikliik olmadı.

Siz bir şeyleri yanlış yapmış olabilir misiniz?

 

[izcik]

Uzmanım hemen deniyorum. Belki biçimlendirmeyi eksik yapmış olabilirim. Sonucu arz edeceğim.

 

[izcik]

Uzmanım oldu

Biçimlrndirmede “hücre renklendirmeyi” yapmadığım için görünmemiş. Sorunum çözülmüştür

Teşekkür ederim saygılarımla

 

[Korhan Ayhan]

Alternatif;

Aşağıdaki kod ile küsüratlı hücreleri seçili hale getirebilirsiniz. Hatta kod içine isteğe göre biçimlendirme kodu da eklenebilir.

Option Explicit

Sub Kusutarli_Hucreleri_Sec()
    Dim Veri As Range, Alan As Range
    
    For Each Veri In Selection.Cells
        If Veri.Value <> "" Then
            If IsNumeric(Veri.Value) Then
                If Veri.Value - Int(Veri.Value) > 0 Then
                    If Alan Is Nothing Then
                        Set Alan = Veri
                    Else
                        Set Alan = Union(Alan, Veri)
                    End If
                End If
            End If
        End If
    Next
    
    If Not Alan Is Nothing Then
        Alan.Select
        MsgBox "Küsüratlı değer içeren hücreler seçilmiştir."
    Else
        MsgBox "Küsüratlı değer içeren hücre bulunamadı!", vbExclamation
    End If
End Sub

 

[izcik]

Korhan Ayhan uzmanım hemen deneyeceğim. Saygılarımla

 

[izcik]

Uzmanım kodlarla da oldu

iki yolla da gayet güzel bulunuyor küsüratlı rakamlar

Sağolunuz

 

[izcik]

Alternatif;

Aşağıdaki kod ile küsüratlı hücreleri seçili hale getirebilirsiniz. Hatta kod içine isteğe göre biçimlendirme kodu da eklenebilir.

Option Explicit

Sub Kusutarli_Hucreleri_Sec()
    Dim Veri As Range, Alan As Range
   
    For Each Veri In Selection.Cells
        If Veri.Value <> "" Then
            If IsNumeric(Veri.Value) Then
                If Veri.Value - Int(Veri.Value) > 0 Then
                    If Alan Is Nothing Then
                        Set Alan = Veri
                    Else
                        Set Alan = Union(Alan, Veri)
                    End If
                End If
            End If
        End If
    Next
   
    If Not Alan Is Nothing Then
        Alan.Select
        MsgBox "Küsüratlı değer içeren hücreler seçilmiştir."
    Else
        MsgBox "Küsüratlı değer içeren hücre bulunamadı!", vbExclamation
    End If
End Sub

Korhan Ayhan uzmanım eğer zahmet olmazsa kırmızı renkli dolgulandırma kodunu da ekler misiniz, bir denemek istiyorum

 

[YUSUF44]

Alan.Select satırından sonra Alan.Interior.Color = VbRed satırını eklerseniz olur muhtemelen.

 

[Korhan Ayhan]

Seçme kodunu örnek olsun diye eklemiştim. İlgili hücrelerde işlem yapmak için seçmeye gerek yok.

Option Explicit

Sub Kusutarli_Hucreleri_Renklendir()
    Dim Veri As Range, Alan As Range
    
    Selection.Cells.Interior.ColorIndex = xlNone
    
    For Each Veri In Selection.Cells
        If Veri.Value <> "" Then
            If IsNumeric(Veri.Value) Then
                If Veri.Value - Int(Veri.Value) > 0 Then
                    If Alan Is Nothing Then
                        Set Alan = Veri
                    Else
                        Set Alan = Union(Alan, Veri)
                    End If
                End If
            End If
        End If
    Next
    
    If Not Alan Is Nothing Then
        Alan.Interior.ColorIndex = 3
        MsgBox "Küsüratlı değer içeren hücreler seçilmiştir."
    Else
        MsgBox "Küsüratlı değer içeren hücre bulunamadı!", vbExclamation
    End If
End Sub