formül yerine değeri kopyalamak

[igultekin2000]

Sub hareket_ay_aktar()
Dim sonsat As Long, sh As Worksheet
Sheets("HAREKET").Select
Range("P2:P" & Rows.Count).ClearContents
Set sh = Sheets("ANAGİRİŞ")
sonsat = sh.Cells(Rows.Count, "Q").End(xlUp).Row
Application.ScreenUpdating = False
sh.Range("Q2:Q" & sonsat).Copy Range("P2")
Application.ScreenUpdating = True
End Sub

bu makro ile ilgili sütünda formülle bulunan AY değerini hareket sayfasının P2 sütununa aktarmak istiyorum. uyguladığım formül formül olarak aktarıyor. formül yerine ANAGİRİŞ sayfasında oluşan AY' ı rakamsal değer olarak aktarabilirmiyim.
teşekkürler

 

[Korhan Ayhan]

Kod içinde geçen aşağıdaki satırı bir sonraki gibi değiştirin;

sh.Range("Q2:Q" & sonsat).Copy Range("P2")

Olması gereken;

sh.Range("Q2:Q" & sonsat).Copy
Range("P2").PasteSpecial xlPasteValues

 

[igultekin2000]

sorun çözüldü

Kod içinde geçen aşağıdaki satırı bir sonraki gibi değiştirin;

sh.Range("Q2:Q" & sonsat).Copy Range("P2")

Olması gereken;

sh.Range("Q2:Q" & sonsat).Copy
Range("P2").PasteSpecial xlPasteValues

teşekkürler , dağarcığımıza bir kod daha katmış olduk.