Makro kodu kısaltma

[recepkull]

Bu olabilir mi?

Sub test()
    Range("C4:D11").Select
    Selection.Copy
    Sheets(CStr([F2])).Select
    ActiveSheet.Range("C4").Select
    ActiveSheet.Paste
End Sub

Ustam cevabınızı yeni farkettim ellerine sağlık istediğim gibi çalışıyor.

 

[Necdet]

Herkese zaman ayırıp ilgilendiği için çok teşekkür ediyorum. @Orion1 hocam sizin verdiğiniz kodu çalıştırdığımda veri sayfasındaki içeriği tüm sayfalara kopyalıyor. @Necdet hocam sizin verdiğin kod tam istediğim gibi çalışıyor. Ancak merak ettim neden bu işlem size yanlış geldi. Öneriniz yanlışımı düzeltmem için önemli olacaktır.

Veri sayfasındaki sadece yakıt ve km bilgilerini aktarmak istediniz. Bu durumda Plaka No'ları tüm sayfada olması gerekiyor. Sonradan yeni bir plaka geldiğinde diğer sayfalarda bu bilgi olmayacak. O yüzden km ve yakıtla birlikte plaka numaralarının da aktarılması gerekir diye düşündüm.

 

[recepkull]

Anladım hocam önerin için teşekkür ederim.