Soru Bu kodu nasıl sadeleştirebilirim?

[seckinb]

Merhaba

bir sayfadan diğerine kopyalamada kullandığım bu kodu nasıl sadeleştirebilirim??

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("Görüntülemeler").Range("a2:d50").Copy
  Workbooks("2.xlsm").Worksheets("Görüntülemeler").Range("A2").PasteSpecial Paste:=xlPasteValues
 
  Workbooks("1.xlsm").Worksheets("Dozimetri").Range("A2:T50").Copy
  Workbooks("2.xlsm").Worksheets("Dozimetri").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
 
  Workbooks("1.xlsm").Worksheets("kimlik").Range("C1").Copy
  Workbooks("2.xlsm").Worksheets("kimlik").Range("C1").PasteSpecial Paste:=xlPasteValues
 
    Workbooks("1.xlsm").Worksheets("kimlik").Range("C2").Copy
  Workbooks("2.xlsm").Worksheets("kimlik").Range("C2").PasteSpecial Paste:=xlPasteValues
 
    Workbooks("1.xlsm").Worksheets("kimlik").Range("C3").Copy
  Workbooks("2.xlsm").Worksheets("kimlik").Range("C3").PasteSpecial Paste:=xlPasteValues
 
    Workbooks("1.xlsm").Worksheets("kimlik").Range("C5").Copy
  Workbooks("2.xlsm").Worksheets("kimlik").Range("C5").PasteSpecial Paste:=xlPasteValues
 
    Workbooks("1.xlsm").Worksheets("kimlik").Range("C9").Copy
  Workbooks("2.xlsm").Worksheets("kimlik").Range("C9").PasteSpecial Paste:=xlPasteValues
 
    Workbooks("1.xlsm").Worksheets("kimlik").Range("H1").Copy
  Workbooks("2.xlsm").Worksheets("kimlik").Range("H1").PasteSpecial Paste:=xlPasteValues
 
    Workbooks("1.xlsm").Worksheets("kimlik").Range("H2").Copy
  Workbooks("2.xlsm").Worksheets("kimlik").Range("H2").PasteSpecial Paste:=xlPasteValues
 
    Workbooks("1.xlsm").Worksheets("kimlik").Range("H3").Copy
  Workbooks("2.xlsm").Worksheets("kimlik").Range("H3").PasteSpecial Paste:=xlPasteValues
 
      Workbooks("1.xlsm").Worksheets("kimlik").Range("B9").Copy
  Workbooks("2.xlsm").Worksheets("kimlik").Range("B9").PasteSpecial Paste:=xlPasteValues
 
      Workbooks("1.xlsm").Worksheets("kimlik").Range("D7").Copy
  Workbooks("2.xlsm").Worksheets("kimlik").Range("D7").PasteSpecial Paste:=xlPasteValues
 
      Workbooks("1.xlsm").Worksheets("kimlik").Range("F7").Copy
  Workbooks("2.xlsm").Worksheets("kimlik").Range("F7").PasteSpecial Paste:=xlPasteValues
 
        Workbooks("1.xlsm").Worksheets("kimlik").Range("F9").Copy
  Workbooks("2.xlsm").Worksheets("kimlik").Range("F9").PasteSpecial Paste:=xlPasteValues
 
      Workbooks("1.xlsm").Worksheets("kimlik").Range("H7").Copy
  Workbooks("2.xlsm").Worksheets("kimlik").Range("H7").PasteSpecial Paste:=xlPasteValues
 
      Workbooks("1.xlsm").Worksheets("kimlik").Range("H9").Copy
  Workbooks("2.xlsm").Worksheets("kimlik").Range("H9").PasteSpecial Paste:=xlPasteValues
 
        Workbooks("1.xlsm").Worksheets("kimlik").Range("J9").Copy
  Workbooks("2.xlsm").Worksheets("kimlik").Range("J9").PasteSpecial Paste:=xlPasteValues
 
        Workbooks("1.xlsm").Worksheets("kimlik").Range("J7").Copy
  Workbooks("2.xlsm").Worksheets("kimlik").Range("J7").PasteSpecial Paste:=xlPasteValues
 
          Workbooks("1.xlsm").Worksheets("kimlik").Range("F11").Copy
  Workbooks("2.xlsm").Worksheets("kimlik").Range("F11").PasteSpecial Paste:=xlPasteValues
 
          Workbooks("1.xlsm").Worksheets("kimlik").Range("I11").Copy
  Workbooks("2.xlsm").Worksheets("kimlik").Range("I11").PasteSpecial Paste:=xlPasteValues
 
 
    Workbooks("1.xlsm").Worksheets("kimlik").Range("B19:B23").Copy
  Workbooks("2.xlsm").Worksheets("kimlik").Range("B19:B23").PasteSpecial Paste:=xlPasteValues
 
      Workbooks("1.xlsm").Worksheets("kimlik").Range("B24:B29").Copy
  Workbooks("2.xlsm").Worksheets("kimlik").Range("B28:B33").PasteSpecial Paste:=xlPasteValues
 
      Workbooks("1.xlsm").Worksheets("kimlik").Range("D19:D23").Copy
  Workbooks("2.xlsm").Worksheets("kimlik").Range("E19:E23").PasteSpecial Paste:=xlPasteValues
 
      Workbooks("1.xlsm").Worksheets("kimlik").Range("D24:D29").Copy
  Workbooks("2.xlsm").Worksheets("kimlik").Range("E28:E33").PasteSpecial Paste:=xlPasteValues
 
    Workbooks("1.xlsm").Worksheets("kimlik").Range("A39").Copy
  Workbooks("2.xlsm").Worksheets("kimlik").Range("A39").PasteSpecial Paste:=xlPasteValues
 
  Workbooks("1.xlsm").Worksheets("kimlik").Range("a12").Copy
  Workbooks("2.xlsm").Worksheets("kimlik").oyku.Paste
 
  Application.CutCopyMode = False
 
 
    
End Sub

 

[muygun]

Merhaba;

Veri aldığınız sayfadaki başlıklar ile kimlik sayfasındaki başlıklar eşleşiyorsa for next döngüsü ile copy-paste yerine direkt veriyi yazdırarak halledilebilir.
Ama örnek dosyanızı görmek gerek.
İyi çalışmalar.

 

[seckinb]

örnek dosyam ektedir. afedersiniz.