Değer Kopyalama

[opossum]

Arkadaşlar merhaba;
Bir çalışma kitabımda iki sayfa var. İlk saydaki hücreler formül içeriyor ve formül sonucuna göre değerleri var veya değerleri yok, ikinci sayfa ise boş. İstediğim ilk sayfanın tamamının bir makro yardımıyla ikinci sayfaya kopyalanması, yalnız kopyalama işleminde sadece değerler kopyalanacak.
Teşekkürler.

 

[1Al2Ver]

Merhaba,

Öneri ;

2003 formatında örnek bir dosya ekleyebilirseniz, çabuk ve doğru cevap alabilirsiniz.

 

[opossum]

Sub Koyala()
ActiveWorkbook.Sheets("11").UsedRange.Copy
Sheets("1").Cells.PasteSpecial Paste:=xlPasteValues
Sheets("1").Cells.PasteSpecial Paste:=xlPasteValues
End Sub

 

[halit3]

Arkadaşlar merhaba;
Bir çalışma kitabımda iki sayfa var. İlk saydaki hücreler formül içeriyor ve formül sonucuna göre değerleri var veya değerleri yok, ikinci sayfa ise boş. İstediğim ilk sayfanın tamamının bir makro yardımıyla ikinci sayfaya kopyalanması, yalnız kopyalama işleminde sadece değerler kopyalanacak.
Teşekkürler.

bunu denermisiniz.

Sub Koyala()
Sheets("Sayfa1").Range("A1:F6").Copy
Sheets("Sayfa2").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

Sub Koyala()
Sheets("Sayfa1").Cells.Copy
Sheets("Sayfa2").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

 

[Korhan Ayhan]

Selamlar,

Eğer kopyalamak istediğiniz alandaki biçimlendirmeler önemli değilse alternatif olarak aşağıdaki koduda kullanabilirsiniz.

Option Explicit
 
Sub KOPYALA()
    Sheets("Sayfa2").Range("A1:F100").Value = Sheets("Sayfa1").Range("A1:F100").Value
End Sub