Formülü Çalıştırıp Değer Olarak Yapıştırma

[ekrmy]

Excel Versiyonu

Excel 2019

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Selamlar,

Büyük bir dosyam var. Formülü tüm satırla uyguladığımda dosya çok ağır bir şekilde işliyor.

Dosyada belirttiğim gibi ilgili formülü K sütununun son satırına bakarak J sütununda son satıra kadar formülsüz yapıştıracak. Bir kod buldum fakat macro uygulanırken işlem uzun sürüyor. İşlemi kısa sürede tamamlayacak ve dosyayı kasmayacak bir yol var mıdır?

Bulduğum Kod;

Görüntülemek için giriş yapmanız gerekmektedir.
(10 satır)

Desteğiniz için şimdiden teşekkürler.

 

Birden Fazla Sayfadaki İçeriği Seçerek Yazdırma

Çoklu Koşul ile Veri Filtreleme

[cesur]

@ekrmy
formül yerine daha hızlı çalışan ve exceli yormayan makro yazdım.İnceleyiniz

 

[ekrmy]

@cesur Selam, çok teşekkür ederim. Doğru çalışıyor ancak hız konusunda bir değişikli olmadı sanıyorum, 20000 satır mevcut 5-10 dk bekletiyor. ChatGPT'ye sorduğumda "bu VBA kodunu optimize etmek mümkündür. İlk olarak, ADO bağlantı ve kayıt kümesi nesnelerini kullanmak yerine doğrudan Excel fonksiyonları ile çalışmak, genellikle daha hızlı bir yöntem olabilir." yanıtı aldım ancak düzelttiğinde kurguyu bozuyor

 

[Ömer BARAN]

@ekrmy
Bir de şu kodu deneyin.
Varsa önce K sütunundaki formülleri silin.

Görüntülemek için giriş yapmanız gerekmektedir.
(16 satır)

 

[ekrmy]

@Ömer BARAN Çok teşekkürler Ömer hocam, gerçekten ciddi bir fark oldu. Bunu sayfa4'te çalışacak şekilde nasıl belirtebilirim

 

[Ömer BARAN]

-- En üstteki, v = Range("A2:... kısmına v = Sheets("xxxxx").Range("A2:...
-- En alttaki [K2].Resize(UBou.... kısmına da Sheets("xxxxx").[K2].Resize(UBou...
şeklinde ekleme yapın.

 

[ekrmy]

@Ömer BARAN
Elinize emeğinize sağlık hocam çok teşekkürler. Chatgpt'nin en hızlısı bu olur dediği macrodan çok daha hızlı emeğinize sağlık