Aktarda formülü değilde, üzerinde yazan değerleri aktarması

[mcetinkaya65]

Sözleşme sayfasında oluşturulan butona atanan aşağıdaki makroyla b1 g19 arası hücreleri Arşiv sayfasına aktarıyor.Fakat Sözleşme sayfasındaki veriler çeşitli formüllerle geliyor.Aktar butonuda hücrelerdeki formülleri aktarıyor.
Biçimlendirmeleri koruyarak hücre üzerinde bulunan formülleri değilde değerleri aktarması mümkün mü?

Sub Dikdörtgen1_Tıklat()
şifre = InputBox("Şifre Girin")
If şifre <> 1 Then
MsgBox "Hatalı şifre"
Exit Sub
End If
Range("b1:G19").Copy Sheets("Arşiv").Range("B65536").End(3)(2, 1)
Sheets("Sözleşme").Select
End Sub

 

[Ömer BARAN]

Merhaba.

Aşağıdaki satırı silip;

Range("B1:G19").Copy Sheets("Arşiv").Range("B65536").End(3)(2, 1)

o satırın yerine aşağıdaki satırları kullanın.

[B][COLOR="Blue"]Range("B1:G19").Copy[/COLOR][/B]
Sheets("Arşiv").Range("B65536").End(3)(2, 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

 

[mcetinkaya65]

Aşağıdaki hatayı veriyor

 

[Ömer BARAN]

Sayfayı yenileyerek önceki cevabıma tekrar bakınız.
Copy komut satırını unutmuşum.

 

[mcetinkaya65]

Ömer BARAN hocam Teşekkür ederim.
Allah Razı olsun..