Makro kodlama hk.

[recepkull]

Arkadaşlar aşağıdaki makro kodu tek satırda yazılabilir mi ? Malum bu şekilde olunca makronun çalışması biraz daha uzun sürüyor.

Sheets("Raporlar").Range("P10").Value = Sheets("Veri").Range("AN5").Value
Sheets("Raporlar").Range("G12").Value = Sheets("Veri").Range("AE7").Value
Sheets("Raporlar").Range("D16:W33").Value = Sheets("Veri").Range("AB11:AU28").Value
Sheets("Raporlar").Range("C36:W60").Value = Sheets("Veri").Range("AA31:AU55").Value

 

[Suskun]

Satır uzunluğu kaç karaktere kadar bilmiyorum. iki nokta üst üste :

 

[Necdet]

Merhaba,

Kodlarınızı tek satırda yazmanızın bir anlamı yok, çalışma süresinde farklılık olacağını düşünmüyorum.
Ama kodlarınızı biraz da olsa kısaltmak olası. Sayfa adlarını Set yaparak daha kısa kodlar kullanabilirsiniz.

Örneğin Sheets("Raporlar") diye sürekli uzun uzun yazmak yerine

    Dim s1  As Worksheet, _
        s2  As Worksheet
        
    Set s1 = Sheets("Raporlar")
    Set s2 = Sheets("Veri")
    
    
    s1.Range("P10") = s2.Range("AN5")
    s1.Range("G12") = s2.Range("AE7")

gibi kullanabilirsiniz.

 

[recepkull]

Teşekkür ederim hocam.