makro aktarma

[1903emre34@gmail.com]

arkadaşlar ekte gönderdiğim şekilde yardımcı olabilirmisiniz

 

[YUSUF44]

En basit hali Kopyala/Yapıştır'dır.

Ancak siz muhtemelen bunu istemiyorsunuz. O dosyada sarı bölgeyi taşımamızın nedeni nedir? Neden başka hücreleri değil de o sarı hücreleri taşıyoruz? Sadece o sarı bölge mi taşınacak yoksa asıl dosyanızda başka hücreler de taşınacak mı? Başka hücreler de taşınacaksa hangi hücrelerin taşınacağını neye göre belirleyeceğiz?

 

[Orion1]

Buyurun.

Sub aktar59()
Dim sat As Long, sh As Worksheet
Sheets("Sayfa1").Select
sat = Sheets("sayfa2").Cells(Rows.Count, "A").End(xlUp).Row + 1
Range("A12:H17").Copy Sheets("Sayfa2").Range("A" & sat)
MsgBox "Akatarıldı." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[1903emre34@gmail.com]

arkadaşlar kusura bakmayın ektedir.