Sütunlardaki Sayıları Düzeltme

[SilinenUye8231]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Merhaba, hayırlı kandiller.

Ekte gönderdiğim ikramiye programında, başka programdan almış olduğum siciller metin olarak para miktarıda kuruş kısmı noktalı olarak geliyor.
Hangi personelin kaç lira almış olduğunu toplamak istiyorum, bu şekilde olduğu için toplamıyor, dosyada kod var SAYILARI DÜZELT butonundaki kodu çalıştırdığımda sayfa kilitleniyor. Veri aralığını küçülttüğüm zaman güzel çalışıyor.

Yapmak istediğim bu butona bastığımda Application.Inputbox kutusu açılsın, oraya yazacağım sütun başlıklarında işlem yapmasını istiyorum, örneğin bu kutucuğa I-L sütunu yazdığımda I4 ile L2000 arasındaki metin olanları rakama çevirsin, para olarak yazılı bulunan kuruş kısmındaki noktayı virgüle çevirsin istiyorum.

Yardımcı olur musunuz?

 

Boş Sayfaları Gizleme ve Gösterme

Stok Kayıt VBA Programına Barkod Okuyucu Yapma

[SilinenUye8231]

Aşağıdaki gibi yapmaya çalıştım, hata verdi.

İndirmek için giriş yapmanız gerekmektedir.
(31 satır)

 

[Feyzullah]

Merhaba, Hayırlı Kandiller.

İndirmek için giriş yapmanız gerekmektedir.
(28 satır)

 

[SilinenUye8231]

Sayın Feyzullah Bey, ilginiz için çok teşekkür ediyorum.
Kodu çalıştırıyorum, hücreler hala metin olarak göründüğü için E ve F sütundaki formüller toplama yapmıyor.

 

[Feyzullah]

2. mesajda Paylaşmış olduğum kodu revize ettim. tekrar deneyin.

 

[SilinenUye8231]

Sayın Feyzullah Bey, güzel çalışıyor ellerinize sağlık, küçük bir sorun var, o da düzelirse süper olacak.
Butona bastığımda J ve L sütundaki parada yuvarlama yapıyor.

J4 hücre içeriği 55,1199989318847 bu şekilde görünüyor, hücrenin kendisi 55,11 bu şekilde görünmesi gerekir.
L4 hücre içeriği 25,6599998474121 bu şekilde görünüyor, hücrenin kendisi 25,66 bu şekilde görünmesi gerekir.

Bu şekilde ayarlayabilir misiniz?

 

[Feyzullah]

formatı NumberFormat = "0.00" bu şekilde yapın.

 

[SilinenUye8231]

Sizin gönderdiğiniz kod içerisinde zaten var, ama hücreyi ona dönüştürmüyor.

If InStr(hcr, ".") > 0 Then Cells(hcr.Row, hcr.Column).NumberFormat = "0.00"

 

[Ömer BARAN]

Merhaba Sayın @SilinenUye8231 .

Alternatif cevap vereyim dedim.

İndirmek için giriş yapmanız gerekmektedir.
(50 satır)

 

[Feyzullah]

ben yanlış anlamışım.

İndirmek için giriş yapmanız gerekmektedir.
(1 satır)

yukarıda ki kodu CDbl(Replace(hcr, ".", ",")) bu şekilde değiştirin hocam.

 

[SilinenUye8231]

Feyzullah Bey, CDbl(Replace(hcr, ".", ",")) bu kodu uyguladım, güzel çalışıyor, elinize sağlık, bu seferde J ve L sütunundaki hücrelerde 55,12 ve 25,66 kuruşlu para miktarları hücrede 55 ve 25 olarak görünüyor, hücre içerisine girildiği zaman 55,12 ve 25,66 olarak görünüyor, hücrede para miktarlarının hepsinin kuruşlu olarak tam görüntülemek istiyorum.

 

[SilinenUye8231]

Sayın Ömer Bey, ilginiz için çok teşekkür ediyorum,
Kodları dosyama uyguladım, ekrana gelen mesaj kutusu içerisine I,J olarak yazdım butona bastığımda,
1111 sicili 1.111,00 şekline çevirdi, 55,12 olan para miktarını 5.512,00 şekline çevirdi.
1111 sicil aynı kalmalı, para miktarıda 55,12 şeklinde kalmalı.

Ayrıca ekrana gelen mesaj kutusu içerisine I-L şeklinde yazıp butona bastığımda debug hatası veriyor,
veri = Range(alan).Value kodun bu kısmını sarıya boyuyor.

 

[Ömer BARAN]

Sayın @SilinenUye8231

Örnek belgeniz üzerinde herhangi bir hata almadım.
Ben genel geçer nitelikli bir yapı öngörmüş ve SAYIların ondalıklı kısmı 2 hane olarak biçimlendirme uygulatmıştım.
Açılan küçük ekranda yazılacak sütun adının hangisinin SİCİL, hangisinin PARASAL bir değer olacağı
bilinemeyeceğine göre en iyisi, verdiğim koddaki ....NumberFormat = "#,##0.00" kısımlarını (2 yerde var)
....NumberFormat = "General" olarak değiştirip ondan sonra deneyin.

 

[SilinenUye8231]

Sayın Ömer Bey, parasal değer olan sütun olan J sütunundaki virgülleri iptal etti, sütundaki 55,12 değeri 5512 olarak yazdı.
Ekrana gelen mesaj kutusunun içerisine I-L yazdığımda debug hatası veriyor.

 

[Ömer BARAN]

Şu an başka bir belgeyle meşgulüm, birazdan kontrol ve dönüş yaparım.

 

[Ömer BARAN]

Verdiğim kod cevabını güncelledim, sayfayı yenileyerek,
kodun yeni halini dener misiniz?

 

[SilinenUye8231]

Sayın Ömer Bey, kod gayet güzel çalışıyor elinize sağlık, küçük bir sorun var.
Parasal kısım olan sütundaki rakamların arasındaki virgüller iptal olup, 5512, 2566 şekline dönüşüyor.

 

[Ömer BARAN]

O halde, kodda yer alan (2 yerde) veri(sa, su) = 1 * veri(sa, su) kısımlarını veri(sa, su) = CSng(veri(sa, su)) olarak değiştirerek deneyin.
Yine sorun yaşarsanız Csng yerine bir de CDbl yazıp denersiniz.

Hangi sütunun parasal değer sütunu olduğu bilinemeyeceğine göre;
PARASAL sütunlar için virgülden sonraki basamak sayısı ayarını elle yapmanız gerekecek.

.

 

[SilinenUye8231]

Sayın Ömer Bey, Csng ve CDbl olarak denedim, bu şekilde sonuç verdi.

 

[Ömer BARAN]

Ben ise aynı kod ile (Csng) şöyle sonuç alıyorum.