Hücredeki formülleri değere dönüştürme

[ermanusta]

Merhaba,

arkadaşlar 2 farklı çalışma kitabım var
2.kitap 1.kitaptan formülle hücre çekiyor.

1.kitaptaki değerler değiştiğinde 2.kitaptakilerde değişiyor.

ben değişmesini istemediğim zamanlarda
formüllü hücreleri seçip sağ tık kopyala ve yine sağ tık değerleri yapıştır yapıyorum.

ancak hücreler çok olduğu için zor oluyor (toplu seçim dahil) bunu bir makroya bağlı olarak tek tıkla yapabilir miyim ?

hücre aralığı : B4:AA40 buradaki tüm formüller bir makroya bağlı olarak manuel şekilde çalıştırmak koşulu ile değerlere dönüştürülebilir mi ?

 

[hamitcan]

Her iki dosyada açık olmalı.

Sub DigerKitaptanKopyala()
    Set Kitap1 = Workbooks("Kitap1.xlsm")
    Set Kitap2 = Workbooks("Kitap2.xlsx")
    Kitap2.Sheets("Sayfa1").Range("c5:e8").Copy Kitap1.Sheets("Sayfa1").[c5]
End Sub

 

[alicimri]

Sayın ermanusta
Formülleri kaldırıp, sadece değerleri aktarmak istiyorsanız, Sayın hamitcan ın kodlarını aşağıdaki gibi değiştirin.

Sub DigerKitaptanKopyala()
    Set kitap1 = Workbooks("kitap1.xlsm") 
    Set kitap2 = Workbooks("kitap2.xlsx")
    kitap2.Sheets("Sayfa1").Range("c5:e8").Copy
    kitap1.Sheets("Sayfa1").[c5].PasteSpecial Paste:=xlPasteValues
End Sub

 

[Merhum İdris SERDAR]

.

Sub Test()
   Range("B4:AA40") = Range("B4:AA40").Value
End Sub

Bunu bir düğmeye atayın.

.