Formüllü sayfanın diğer sayfaya değer olarak aktarılması...

[manly]

Ek'te gönderdiğim Formül adlı dosyanın Sayfa1 deki değerler Özel sayfasından formülle bağlantılıdır... Ben Sayfa1 deki formüllü hücrelerin Sayfa2 ye değer olarak aktarılmasını sağlayacak bir makro istiyorum...

 

[apocalyt]

şöle deneyin..

Sub daylight()
Sheets("Sayfa1").Range("a3:aa" & Rows.Count).Copy
Sheets("Sayfa2").Range("a3").PasteSpecial (xlPasteValuesAndNumberFormats)
Application.CutCopyMode = False
End Sub

 

[manly]

Ellerinize sağlık, çok teşekkür ederim... Bir isteğim daha olacak formüllü sayafayı A sütununa göre sıralandıracak bir makro kodu verebilirmisiniz...

 

[apocalyt]

şunu deneyiniz..

Sheets(2).Range("a3:aa1000").Sort key1:=Range("a3")