Resim Gibi Görünen Rakamları Sayıya Çevirme

[AzminZaferi]

İnternetten Resim Gibi Görünen Rakamları kopyalayıp Excel'e yapıştırdım fakat Sayıya Çevirmeyi başaramadım, yardımcı olursanız sevinirim tşk.

 

[Ömer]

Merhaba,

Küçük bir örnek eklermisiniz..

.

 

[AzminZaferi]

eklemiştim ama becerememişim galiba tekrar deneyeyim

 

[Ömer]

Ctrh h ( bul değiştir ) menüsünden;

Aranan değer bölümde iken klavyeden ALT 0160 tuş kombninasyonuna basın ve tümünü değiştir butonunu çalıştırın.

.

 

[AzminZaferi]

üstat ALT 0160 kombinasyonunu tam anlayamadım
aranan değerdeyken alt tuşuna basıp 0160 yazmaya çalıştım
cahilliğime verin

 

[Ömer]

Evet bu şekilde yapacaksınız. Aranan değer bölümüne fare ile tıklayın o kısıma ALT tuşuna basılı iken 0160 yazın sonra tümünü değiştir butonuna basın. ALT 0160 yazınca o kısımda bir veri gözükmez fakat boşluk karakterine benzer bir karakter gelir bu da damga(160) karakteridir.

.

 

[AzminZaferi]

üstat yaptım tümseçenekleri değiştir tuşu aktif bir şekilde bekliyor
uyarıda gelmiyor kısaca yapamadım...

 

[Ömer]

Tümünü değiştir butonuna bastınız mı?

Eğer alt 0160 yapamadıysanız kopyalama yolunu açıklıyım.

Örnek olarak G1 hücresinde iken F2 yaparak hücrenin içine girini 4738,50 olan saysının sonunda fazladan bir boşluk olduğunu göreceksiniz. Sadece bu boşluğu kopyalayarak "aranan" bölümüne yapıştırıp tümünü değiştir butonuna basın.

.

 

[AzminZaferi]

Üstat çok teşekkür ederim mantığı anladım...

 

[haso_excel]

Süpermiş üstadım. Bazen bazı programlardan attığımız sayılarıda text olarak görünüyor onlarıda aynı şekilde yapabilir miyiz yoksa onun içinde ayrı bir alt 0160 g'b' b'r kod var mi ?

 

[Ömer]

Kesin bir cevap için dosyadaki karakteri görmekte fayda var. Fakat bu tür dosyalarda ya fazladan boşluk karakter oluyor yada damga(160) karakteri oluyor. Bu iki seçeneği denetikten sonra veriler yine sayıya çevrilmemişse kopyala çarp özellğinide kullanın. Buda olmaz ise bu şekilde bir dosya ile karşılaşırsanız foruma eklerseniz hata nedeni hakkında daha net bir şekilde yorum yapabiliriz.

Kopyala çarp özelliğiyle ilgili bilgi vermeye çalışayım,

Örnek verileriniz A1:E10 arasında olsun. Boş bir hücreye 1 yazın ve bu hücreyi kopyalayın sonra A1:E10 aralığını fare ile seçerek sağ klik yaparak özel yapıştır dan çarp seçeneğini işaretleyin ve işlemi bitirin.

İyi çalışmalar..

 

[haso_excel]

Üstadım ekdeki dosyamdaki veriler, kullandığımız sistemden attığımda böyle geliyor. Bunları düzeltmek için yani sayı haline getirebilmek için bir kod var mı ?

 

[Ömer]

Dosya eklemede hata oldu sanırım.

.

 

[haso_excel]

Dosyam ekte

 

[Ömer]

B3: D15 aralığını fare ile seçin,

ctrl h ( bul değiştir ) menüsünden

"Aranan değere" , (virgül simgesi) tümünü değiştire basın. Menüyü kapatmadan bu sefer
"Aranan değere" . (nokta simgesi) "Yeni değere" , (virgül simgesi) yazarak tümünü değiştir butonuna basın.

D3: D15 arasını toplamak için aşağıdaki formülede kullanabilirsiniz.Fakat yukarıdaki değiştir işlemlerini yapmanız işlemlerin kolaylığı açısından en doğru olanıdır..

=TOPLA.ÇARPIM(--YERİNEKOY(YERİNEKOY(D3:D15;",";"");".";","))

.

 

[haso_excel]

Teşekkür ederim işlem tamam

 

[izcik]

Ctrh h ( bul değiştir ) menüsünden;

Aranan değer bölümde iken klavyeden ALT 0160 tuş kombninasyonuna basın ve tümünü değiştir butonunu çalıştırın.

.

Ömer uzmanım tebrik ederim. Space boşluğu oluşturunca değişim olmuyordu. alt 0160 ile oldu.

 

[izcik]

Peki Ömer uzmanım, sık karşılaştığım bir durum var. Örnekte B1 ve B6 arasında

bir de B11 ve B13 arasında boşluk olmayan ama boş da olmayan bir şey var. Görünmeyen bir veri diyebiliriz.

Mesela aynısı A sütunundaki hücrelerde yok.

Denemek için şunu uygulayablirsiniz.
A1 hücresi üzerindeyken Ctrl ve alt ok yapın, A7 ye gelecektir.

Fakat B1 in üzerinde aynısını yapınca B17 ye gelecektir.

Demekki B sütunundaki söz konusu hücreler boş değil; görünmese de bir veri var.

Ömer uzmanım, bu görünmeyen veriyi nasıl yok ederiz? (Ctrl H ile veya başka yolla)

 

[Ömer]

Merhaba,

Module kopyalarak çalıştırın.

Sub Temizle()
Application.ScreenUpdating = False
Selection.SpecialCells(xlCellTypeConstants, 23).Select
For Each Hücre In Selection
    If Len(Hücre) = 0 Then
        Hücre.ClearContents
    End If
Next Hücre
[A1].Select
Application.ScreenUpdating = True
End Sub

.

 

[izcik]

Ömer uzmanım, cevabınızı şu an farkettim. Teşekkür ederim fikrinize sağlık. Sorun çözülmüştür.