Bir alanı kopyalayıp başka alanlara yapıştırmak istiyorum

[sinbade]

Herkese selamlar;

Bir alana girdiğim bilgileri, butona atadığım bir makroyla, başka alanlara aktarmak istiyorum. Basit gibi görünüyor ama ben beceremedim... Ekteki dosya üzerinden yardımcı olabileceklere şimdiden teşekkür ederim.

 

[Selçuk1]

sn. sinbade;

aşağıdaki gibi dener misiniz? kopyalanacak yada yapıştırılacak alanları isteğinize uyarlayabilirsiniz.

Sub alancopy()
m = MsgBox("Eski bilgiler yenisiyle değiştirilecek, onaylıyor musunuz?", vbYesNo + vbCritical)
If m = vbNo Then Exit Sub
    Range("I6:M10").Select
    Selection.Copy
    Range("C3:F7").Select
    ActiveSheet.Paste
    Range("C9:G13").Select
    ActiveSheet.Paste
    Range("C15:G19").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

 

[Zeki Gürsoy]

sor = MsgBox("Eski bilgiler yenileriyle değiştirilsin mi?", _
vbExclamation): If sor = vbNo Then Exit Sub
Range("I6:M10").Copy Range("B3,B9,B15")

 

[sinbade]

çok teşekkür ederim