Formülleri değer olarak kopyalamak

[bravia]

Değerli üstadlar ve arkadaşlar,

Örneğin E ve P kolanları arası çeşitli formüllerin oluşturduğu verilerim var. Acaba makro yardımıyla bu formülleri nasıl değer olarak yapıştırabilirim? Yani bir başka bir deyişle E ve P kolonlarını seçip kopyala ve değer olarak yapıştır seçeneğini makro ile nasıl yapabilirim?

Şimdiden herkese çok teşekkür ederim...

 

[Vedat Özer]

kardeş formülü kopyala yapıştıracagın yere gel orda sağ tuş özel yapıştır değeri işaretle o kadar

 

[bravia]

Ben özellikle makro ile bir çözüm istemiştim çünkü dosya çok yüklü ve birçok çalışma sayfasından oluşuyor. Eğer formüller hesaplandıktan sonra sonuçlar değer olarak yapıştırılmaz ise dosya her açılışta ve kaydederken tekrar hesaplama yaptığı için oldukça yavaş çalışıyor. Bu konuda yardımcı olacak bir arkadaş varsa çok sevinirim.

Teşekkürler...

 

[Ömer]

Merhaba,

Sorunuz tam olarak anlaşılmıyor.

Araçlar / Seçenekler / Hesaplama menüsünden "El İle" seçeneğini işaretlerseniz formül manuel çalışır. Tekrar "Otomatik" seçeneğini işaretlerseniz hesaplamalar otomatik olur.

Değer yapıştır yaparsanız formülleri kaybedersiniz.

 

[bravia]

Ömer Bey,

İstediğim tam olarak şöyle...Bir çalışma sayfasındaki E ve P kolonları arası çeşitli formüllerle hesaplanmış olan değerleri bir düğmeye makro atanarak değer olarak yapıştırması.

Teşekkürler...

 

[Vedat Özer]

Kardeş Dosyanı Gönder Bakalım)

 

[Ömer]

Değer olarak yine E aralığınamı yapıştıracak. Eğer E aralğında yapıştıracaksa formülleri kaybedersiniz.

.

 

[Vedat Özer]

Ömer Hocam Birde Benim Gönderdiğim yeni konuya bi bakarmısınız "cari hesapla muhasebe kontrol ""

 

[bravia]

Ömer Bey,

Evet değer olarak yine E kolonları arasına yapıştırılacak, formülleri kaybedeceğimi biliyorum. Peki başka bir düğme vasıtasıyla formülleri tekrar yerine getirebilir miyim? Getiremezsem de problem değil ilk seçenek işimi görür.

Tekrar teşekkür ederim..

 

[Ömer]

Yaparsınız fakat bunu tavsiye etmem.

Eki inceleyin, bu şekilde kullanmanız daha doğru olacaktır.

.

 

[bedri41]

İstediğiniz böyle birşey sanırım

Columns("E").Select
Selection.Copy
Range("E1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

 

[bravia]

Yardımlarınız için çok teşekkür ederim.