Soru Sadece değerleri kopyalamak

[seckinb]

Workbooks("1.xlsm").Worksheets("kanlar").Range("A2:N50").Copy _
Workbooks("2.xlsm").Worksheets("kanlar").Range("A2")

bu kodu sadece değerleri kopyalar hale getirmeye çalışıyorum. Başaramadım.

    Workbooks("1.xlsm").Worksheets("kanlar").Range("A2:N50").Copy _
    Workbooks("2.xlsm").Worksheets("kanlar").Select
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

 

[Korhan Ayhan]

Aşağıdaki gibi deneyiniz.

Workbooks("2.xlsm").Worksheets("kanlar").Range("A2:N50").Value = _
Workbooks("1.xlsm").Worksheets("kanlar").Range("A2:N50").Value

 

[seckinb]

Sub sbCopyRangeToAnotherSheet()

  Workbooks("1.xlsm").Worksheets("kanlar").Range("A2:N50").Copy
  Workbooks("2.xlsm").Worksheets("kanlar").Range("A2").PasteSpecial Paste:=xlPasteValues
 
  Workbooks("1.xlsm").Worksheets("doz").Range("a2:d50").Copy
  Workbooks("2.xlsm").Worksheets("doz").Range("A2").PasteSpecial Paste:=xlPasteValues
 
  Workbooks("1.xlsm").Worksheets("Tutulum Paterni").Range("a2:d50").Copy
  Workbooks("2.xlsm").Worksheets("Tutulum Paterni").Range("A2").PasteSpecial Paste:=xlPasteValues
 
  Workbooks("1.xlsm").Worksheets("Dozimetri").Range("A2:C50").Copy
  Workbooks("2.xlsm").Worksheets("Dozimetri").Range("A2").PasteSpecial Paste:=xlPasteValues
 
  Workbooks("1.xlsm").Worksheets("Tutulum Paterni").Range("a2:d50").Copy
  Workbooks("2.xlsm").Worksheets("Tutulum Paterni").Range("A2").PasteSpecial Paste:=xlPasteValues
 
  Workbooks("1.xlsm").Worksheets("Konsey_ekibi").Range("A2:M100").Copy
  Workbooks("2.xlsm").Worksheets("Konsey_ekibi").Range("A2").PasteSpecial Paste:=xlPasteValues
    
End Sub

bu şekle getirince çalıştı. Teşekkürler ^^

 

[Korhan Ayhan]

Telefondan yazınca hatalı olmuş. Düzelttim. Tekrar deneyiniz.