• Foruma hoş geldin 👋 Ziyaretçi

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü hücrelerde sadece sayılar kalsın

Bu sorun verilen destek sayesinde çözüme ulaştırılmıştır.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
S

sevensuleyman

Yeni Üye
Kullanıcı Bilgileri
Katılım
10 Ağu 2021
Mesajlar
64
Aldığı beğeni
3
Excel Versiyonu
Office 2010 TR
Konuyu Başlatan
merhaba koaly gelsin ; excell dosyamda 4 sütunda verilerim mevcut. buradaki satırlarda sadece rakamların kalmasını ve format olarak sayı olarak gelmesini istiyorum. tl simesi metin olarak geldiği için hücrede değişikliği yaptıgımda değişmiyor..bunu makro ile yapmak istiyorum.yardımcı oluresanız sevinirim. teşekkürler

FiyatTutarBrüt FiyatTutar
38,50₺38,50₺
68,1​
68,1​
32,84₺32,84₺
50,33​
50,33​
32,03₺64,06₺
2,62​
2,62​
2,50₺20,00₺
2,62​
2,62​
7,43₺29,72₺
224,2​
224,2​
 

Ekli dosyalar

  • Yeni Microsoft Excel Çalışma Sayfası.xlsx
    10.7 KB · Gösterim: 8
Tarihe göre sırala Oylara göre sırala
Aşağıdaki kodu dener misiniz?
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 0 Negatif oyla
Merhabalar

Kodsuz

Ctrl F bul oradan değiştir. Aranan kısma ₺ simgesini yaz tümünü değiştir.
sonrada tüm hücreyi tl simgeli olarak biçimlendirirsin
 
Olumlu oy 0 Negatif oyla
aşağıdaki kod ile deneyiniz
C-like:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 1 Negatif oyla
Çözüm
Alternatif
₺ karakterinin bulunduğuna emin olduğunuz hücreye referans vererek aşağıdaki kodu kullanabilirsiniz. ben A5 hücresine referans verdim.
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 0 Negatif oyla
Adnan' Alıntı:
aşağıdaki kod ile deneyiniz
Sub ExcelCozumTest()
Dim rng As Range
Dim r As Range
Set rng = Sayfa1.Range("A3:d" & Sayfa1.Cells(Rows.Count, 1).End(xlUp).Row)

For Each r In rng
r.Value = CDbl(FormatNumber(r.Value, 2))
r.Offset(0, 1).Value = FormatNumber(r.Offset(0, 1).Value, 2)
Next r
End Sub
Genişletmek için tıkla...
teşekkürler. bu kod işimi gördü
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

Konuyu okuyanlar

Toplam: 2 (Kullanıcı: 0, Ziyaretçi: 2)
Geri
Üst