Aktarda sadece değer aktarımı

[mcetinkaya65]

Hazırladığım programda zimmet sayfasından arşiv sayfasına verileri aktarıyorum.Zimmet sayfasının b stununa veriler bu formülle doluyor. =EĞER(D6="";"";BUGÜN()) Aktar dediğimizde verilerle beraber yukardaki formülüde aktarıyor. Sadece değeri aktarması mümkün mü ?
Aktar makromuz:

Sub Dikdörtgen1_Tıklat()
şifre = InputBox("Şifre Girin")
If şifre <> 1 Then
MsgBox "Hatalı şifre"
Exit Sub
End If
Range("b6:g45").Copy Sheets("Arşiv").Range("A65536").End(3)(2, 1)
Sheets("ZİMMET").Select
End Sub

 

[Murat OSMA]

İlgili satırları bu şekilde düzenleyebilirsiniz.

[FONT="Trebuchet MS"][SIZE="2"]Range("b6:g45").Copy
Sheets("Arşiv").Range("A65536").End(3)(2, 1).[COLOR="Red"]PasteSpecial[/COLOR] [COLOR="Blue"]xlPasteValues[/COLOR][/SIZE][/FONT]

 

[mcetinkaya65]

Üstad ilginiz için teşekkür ederim.
b6 g45 arasını toplu aktarıyor boş dolu fark etmiyor bir sonraki aktarda arşivin ilk dolu hücresinden başlaması mümkün değil mi?

 

[Murat OSMA]

İlk mesajınızda ne istediyseniz ona göre kodu düzenledim.
Yapmak istediğiniz düzenleme için örnek dosyanızı eklemeniz iyi olur.​

 

[mcetinkaya65]

Üstad İlginize teşekkür ederim.
Şuan bir problem gözükmüyor.
Allah Razı olsun.