Çözüldü Kod Düzenleme Hk. ( Kapalı Excel Belgesinden Veri Al - Düzenle )

Merhaba Sayın @valentino06 .

Örnek belge eklemediğiniz için, yanlış düşündüğüm kod satırları/işlemler olabilir.
Bu nedenle; aşağıdaki işlemleri yaparken; kodlardaki(hem sizin kullandığınız, hem de benim verdiğim kod)
Call sirala satırının sol başına TEK TIRNAK ekleyerek, geçici olarak bu kısmı devredışı bırakın.

-- Belgenizdeki Format isimli sayfanın, kodun çalıştırılmamış halinin bir kopyasını oluşturup, kopya safyanın adını BARAN olarak değiştirin.
-- Ardından, Format isimli sayfada, açılış mesajında verdiğiniz kodu çalıştırın.
-- Sonra da benim aşağıda verdiğim kodu BARAN ismini verdiğiniz sayfa üzerinde çalıştırın.

Her iki sayfada makrolar işlemleri bitirdikten sonra; Format isimli sayfa ile BARAN isimli sayfa birbirinin aynı mıdır kontrol edin.

Eğer sonuç aynı ise;
verdiğim koddaki sayfa adını Format olarak değiştirin ve Call sirala satırını tekrar aktif hale getirerek
makronun yeni halini kullanabilirsiniz,

Yanlış düşünmüyorsam iki kod da aynı işlemi yapıyor olmalıdır.
.

@Sayın Ömer Baran Hocam Çok Teşekkür Ederim.Hocam Kod çok güzel olmuş elinize sağlık A sütünunda Rakamlar bu şekilde geliyor. 2E+11 bunun haricinde hiç sıkıntı yok. ne kadar teşekkür etsem azdır.

Sayın @valentino06 .

Önceki kod cevabımda küçük değişiklik ve ekleme yaptım.
Sayfayı yenileyerek önceki cevabıma tekrar bakınız.
Kırmızı stırlar hakkında önceki cevabımda belirttiğim uyarılara dikkat.

Mavi kod satırı, A sütunun sayı formatını ve sütun genişliğini ayarlıyor.

Kodun yeni halini, önceki cevabımda belirttiğim şekilde tekrar deneyip,
özellikle A sütununa ilişkin olarak kontrol yapıp sonucunu yazarsınız.

.

@Sayın Ömer Baran Hocam son eklemiş olduğunuz kodda A sütünundaki sayıları silmiş ben silmesini istemiyorum. sadece görünümü 2E+11 bu şekilde geliyor. Normalda manuel düzeltiğim zaman gerçek saysal değer 200000107983 bu şekilde gözükmesini istiyorum. Eğer düzenleyebilirsek çok güzel olacak Çok teşekkür ederim.

Sayın @valentino06 .

Örnek belge olmayıp konu hakkında detaylı açıklama olmayınca, böyle şeyler oluyor.
Kodun son haline göre alt tarafta mavi renklendirdiğim Columns("A:A").NumberFormat = "#,##0.00"
satırını Columns("A:A").NumberFormat = "General": Columns("A:A").AutoFit şeklinde değiştirerek deneyin.

.

Sayın @Ömer BARAN Hocam "0" yapınca düzeldi çok teşekkür ederim.Allah yolunuzu açık etsin.

@Sayın Ömer Baran Hocam "A"Sütünundaki sayısal değerler sadece Kaynak Grubu satırlar yani koyu olanlar gelecek alttakilere getirmiyecek.Ömer Hocam olmasını istediğim orjinalini ekliyorum. lütfen Özellikle A sütununu incelermisiniz. Ömer Hocam hem sizin yaptığınızı hemde eski karşık kod olanı ekliyorum. lütfen her ikisinide çalıştırırmısınız.

Eklenen dosya, konu sahibinin isteği üzerine tarafımdan silinmiştir. >> Ömer BARAN

.

Ömer Hocam çok teşekkür ederim. Kod çalışıyor. Allah yolunuzu açık etsin.

Tekrar merhaba Sayın @valentino06 .

Yine de işlemleri toparlayayım dedim.
Eklediğim belgeyi deneyip, sonuçlarını kontrol eder misiniz?
Veri alma, işleme, sıralama için TEK MAKRO öngördüm.

.

Ömer Hocam çok teşekkür ederim. F*G Çarpımlarında özelilke koyu olanlar hatalı yapmış ben yeni excelde denedim. hatalı çarpıyor. lütfen bakabilirmisiniz. B5 de yanlış geliyor.

Sayın @valentino06 .

Yanlış hesaplıyor demek yerine, kaynak veri satır adetini azaltarak (yeni örnek kaynak belgede özellikle yanlış diye gördüğünüz satırlar olmalı)
ve D, E, F, G sütunlarında, hem KAYNAK GRUBU satırlarında hem de diğer satırlarda ondalıklı veriler içerecek şekilde
yeni bir kaynak belge ile olması gereken durumu (özellikle H sütunu için) elle yazarak, basit kopyala yapıştır yaparak örneklendirin ki;
ney yanlış ney doğru anlaşılabilsin, düzeltilebilsin değil mi?

Bu cevap ekine, sizin önceden kullandığınız makrolarla alınan sonucun aynını veren tek makrolu yeni belgeyi yüklüyorum.
Sizin önceden kullandığınız makroların doğru sonuç verdiğini varsayıyorum tabi.

Göz atın bakalım.

Ömer Hocam çok teşekkür ederim. çok güzel olmuş Ellerinize sağlık Lütfen konuyu kapatalım.

Ömer Hocam çok teşekkür ederim. Ellerinize sağlık.

Küçük biçimlendirme ilaveyle, ek belge tarafımdan yenilenmiştir. Ömer BARAN, 13.03.2020 14:10