rakamları sayıya çeviremiyorum

[Musa Batur]

ekdeki listede rakamları sayıya çeviremiyorum

 

[Musa Batur]

Rakamları sayıya çeviremiyorum

Rakamları sayıya çeviremiyorum O ve P sutunlarındaki rakamları
Simdiden teşekkürler

 

[Necdet]

Dosyayı ekleyememişsiniz

 

[Necdet]

Rakam=Sayı

İstenen nedir?

 

[1Al2Ver]

rakamı "yazıya" çeviremiyorum demek istemiş olabilirmisiniz ?
O3 için S3'e paracevir=(O3) yazılabilir ve rakam yazıya döner...
Tabi bir eklenti gerekebilir, sayın Yesertener yardımcı olur sanırım

 

[Recep İpek]

Sanırım arkadaşımız bu kolondaki rakamlarla işlem yapamıyor.
Çünkü rakamlar text/resim? formatında.

Trim ve/veya Value fonksiyonuda işe yaramadı.

Peki internet sayfasından excele kopyalarken özel yapıştır html veya text olarak denediniz mi?

 

[baba_karabatak]

dosya ekte incele

 

[Musa Batur]

o ve p sütünundaki sayıları toplamak için üzerine geldiğimde toplamıyor sayı olarak görmuyor
teşekkürler

 

[Musa Batur]

sütün o ve p üzerinde bulunan sayıları toplayamıyorum sayı olarak nasıl tanıtabilirim

 

[Necdet]

Merhaba,

Araştırınca gerçekten bulunuyor. Bu olay Wordde olsa çok kolay ama Excel olunca araşırmak gerekti.

Fonksiyonlarla çözümü buldum, dosyayı inceleyiniz.

 

[Musa Batur]

teşekkürler

daha kısa yol yokmu mesaya =sayı(o3) gibi

=kırp(yerinekoy(o3; burayakadar anladım bundan sonra damga(160);damga(32))+0 anlamadım zor olmazsa bunlar neleri anlatır

 

[Necdet]

Ben bu yolu bulduğuma şükrettim.
Ve size yardımcı olduğuma
Biraz daha araştırıp Makrosunuda yazmak olası, yani bam diye işlemi yapacak bir kodlar silsilesi.

Olabilir.

Ama benim için zaman gerekli, bunu bilen arkadaşlarım için olay kolaydır.

Word de hard space denilen karakter sözkonusu damga(160) karşılığı olarak, yani boşluk karakteri ama sanki sözcüğün içinde gibi, boşluk olarak görüyorsunuz ama aslında boşluk değil.

Bu karakteri boşluk yani (damga(32) ile değiştiriliyor verilen formülde, Kırp fonksiyonu da hücrenin başında ve sonudaki boşlukları ortadan kaldırıyor.

 

[Necdet]

Merhaba

Evet makrolu çözümü de hazırlandı.

Önce Rakama çevrilecek hücreleri seçiniz ve aşağıdaki kodları çalıştırınız.

Sub Temizle()
Dim Değer As String
For Each Hücre In Selection
    Değer = ""
    For i = 1 To Len(Hücre)
        Karakter = Mid(Hücre, i, 1)
        If IsNumeric(Karakter) = True Or Karakter = "," Then
            Değer = Değer & Karakter
        End If
    Next i
    Hücre.Value = Trim(Değer) + 0
Next Hücre
End Sub

 

[1Al2Ver]

Sayın Necdet Yesertener, bana gerekli olmasa bile arşivime koydum ve bu nedenle de size bir kez daha saygılarımı ve teşekkürlerimi sunuyorum, sadece yardım yapmak adına forumda birçok uzman, yetkili yada bu işi seven şahsiyet var, imdat diyene, sorunum var diyene, danışmanlık yapmak ve hatta ötesinde çözümü arayıp onlara sunuyorlar, bu ne yüce bir davranıştır, sizler aslında çok şeyler hak ediyorsunuz, size gereken karşılığı veremiyoruz bile, şahsen ben bunun ezikliğini yaşıyorum, temiz kalbinize ve emeğinize bir kez daha teşekkürler ederim, saygılarımla

 

[Necdet]

Sayın 1Al2Ver,

Bu güzel sözleriniz için çok teşekkür ederim. Sonuçta bizde sizin kullanıcı adınız gibi davranıyoruz yani 1 aldık 2 vermeye çalışıyoruz.

Bu forumu bulup üye olduğumda makronun m'sini bilmiyordum. Şimdi makro konusunda uzmanlaştım diyemem ama halâ öğreniyorum ve öğrendiklerimi de paylaşmaya çalışıyorum.

Sanrım öğrenmenin en kolay yönü bence bu.

Saygılar.

 

[Musa Batur]

Necdet Bey Sİze Sonsuz TeŞekkur Ederİm

Şu Makrayi ÇaliŞtiran Temİzleme Butonunu Nasil Bende Yapabİlİrİm

Saygilarimla,