• DİKKAT !

    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 Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

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

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
S

sevensuleyman

Yeni Üye
Katılım
10 Ağu 2021
Mesajlar
69
Aldığı beğeni
4
Excel V
Office 2010 TR
Konu Sahibi
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

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Tarihe göre sırala Oylara göre sırala
Aşağıdaki kodu dener misiniz?
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
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
HTML:
C-like:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
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.
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
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.
Geri
Üst