Kopyala ve Özel Yapıştır Kullanımı

[cimcoz]

Merhaba,

Data sayfasından Sonuc sayfasına aşağıdaki kod ile seçtiğim hücrelerdeki veriyi kopyalıyorum.

Yalnız data sayfasındaki seçtiğim hücrelerdeki veriyi direkt copy - > paste olarak değil de, PasteSpecial Paste:=xlPasteValues veya benzer şeklinde kullanmam lazım. Aşağıdaki kodu nasıl modifiye etmem gerekir?

Sub Kopyala_Button2_Click()

Set S2 = Sheets(“Sonuc”)
Selection.Rows.Copy S2.Cells(S2.[a65536].End(3).Row + 1, "a")
Sheets("Sonuc").Select
Range("a301").Select
Selection.End(xlDown).Select
End Sub

Saygılarımla,

 

[Muzaffer Ali]

Merhaba.

Selection.Rows.Copy
S2.Cells(S2.[a65536].End(3).Row + 1, "a").pastespecial paste:=xlpastevalues

 

[cimcoz]

Merhaba.

Selection.Rows.Copy
S2.Cells(S2.[a65536].End(3).Row + 1, "a").pastespecial paste:=xlpastevalues

Teşekkür ederim..