Sütunlardaki Sayıları Düzeltme

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

SilinenUye8231

Kısa Açıklama

Sütunlardaki Sayıları Düzeltme isimli başlıkta, ilgili işlemlere dair detaylar yer almaktadır.
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

Ekli dosyalar

Tarihe göre sırala Oylamaya göre sırala
Sayın Ömer Bey, yanlış veri veriyor, bazı rakamların kuruş kısmını fazla veriyor,
Bu sonuç birşeyin çarpımı sonrasından gelen veri değil ki, neden kuruş kısmı fazla çıkıyor anlamadım.
 
Oyla 0 Olumsuz oyla
Merhaba,
Anladığım kadarıyla örnek dosyanızdaki kod güzel çalışıyor, ama kilitlendiği için tercih etmiyorsunuz.
Eğer kilitlenme dışında bir şikayetiniz yoksa örnek dosyadaki kodunuzu aşağıdaki şekilde güncelleyip dener misiniz?
Kod: 
Görüntülemek için giriş yapmanız gerekmektedir.
(16 satır)
 
Oyla 0 Olumsuz oyla
Dosyanızı yeniden indirip kodları denediğimde bende bahsettiğniz şekilde çıkmıyor.
Video görüntüsü ekliyorum.

xd1.webp
 
Oyla 0 Olumsuz oyla
Sayın Ömer Bey, çok teşekkür ediyorum, ellerinize sağlık süper çalışıyor, kendi orijinal dosyamda denedim, 1 dakika 10 saniye sürdü.

Set alan = Intersect(ActiveSheet.UsedRange, Range("I4:ALT5000")) benim göndermiş olduğum kod içerisinde sadece burası değişik, burası ne anlama geliyor acaba?
 
Oyla 0 Olumsuz oyla
yukarıda ki kodu CDbl(Replace(hcr, ".", ","))
Sayın Feyzullah Bey, ben bu kodu dün ofis 2013 te denemiştim, para kısmını 5512 ve 2566 şekline çevirmişti.
Bugün ofis 2016 da denedim, böyle bi sorun vermedi. Versiyon farkı olabilir mi?
 
Oyla 0 Olumsuz oyla
Sayın Feyzullah Bey, dosya ile ilgili videoyu gönderiyorum.
Şimdi yine denedim. Butona bastığımda kuruşlu olan para kısmının tam kısmı hücrede görünüyor kuruş görünmüyor,
hücre içerisine girildiğinde görünüyor.
 
Oyla 0 Olumsuz oyla
Office 2010 ve Office 2016'da bir sıkıtın yok hocam.

Bende tekrardan 1.mesajdaki dosyayı indirip denediğimde bahsettiğiniz bir sorun olmadığını gördüm, farklı bir işlem yapıyor olabilirmisiniz ?

Şimdi tekrar denememde kodu ikinci defa çalıştırınca bahsettiğiniz sıkıntıyı gördüm. Aşğıdaki kodu deneyiniz.

VBA: 
Görüntülemek için giriş yapmanız gerekmektedir.
(31 satır)
 
Oyla 0 Olumsuz oyla
Çözüm
Siz dosyanızda çok geniş bir alanda (1000 sütun-5000 satır gibi) işlem yaptırıyordunuz, o sebeple kitlenme oluyordu. Buradaki kod sizin belirlediğiniz alan ile sayfada kullanılan alanın kesişimini alıyor. Yani boş olan hücrelerde boş yere işlem yapılmamış oluyor.
 
Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst