kopyalama ili ilgili yardım talebi

[ckkaraca]

önceki sayfanın değerlerini yeni açtığım sayfaya kopyala - yapıştır olarak aşağıdaki kodu kullanıyorum

Range("B51:B94").Value = Sheets(ActiveSheet.Index - 1).Range("B51:B94").Value

ancak benim bunun yerine önceki sayfanın b51 ile b94 arasında kullanılanU]formülleri sonraki sayfada b51 ile b94 arasına yapştırmam gerekiyor yani kopyala-özel yapıştır-formülleri işlemini yapacak koda ihtiyacım var
Birde yeni açtığım sayfada c51 ile c94 arasında renklendirilmiş hücrelerin renkelerini temizlemem gerekiyor
yardımlarınız için çok teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub FORMÜL_KOPYALA_RENK_SİL()
    Sheets(ActiveSheet.Index - 1).Range("B51:B94").Copy
    Range("B51:B94").PasteSpecial Paste:=xlPasteFormulas
    Application.CutCopyMode = False
    Range("C51:C94").Interior.ColorIndex = xlNone
End Sub

 

[ckkaraca]

Korhan hocam yardımın için çok teşekkür ederim