Veri aktarımı

[ozuberk]

Merhaba arkadaşlar aşağıdaki kodu verileri diğer sayfalara aktarmak için kullanıyorum. Veriler aktarılırken format ve formüller ile birlikte aktarılıyor.
Yapmak istediğim format ve formüllerin aktarılmadan verileri aktarmak.

Sub Aktar()
Application.ScreenUpdating = False
For s = 6 To Cells(Rows.Count, 1).End(3).Row
For i = 1 To Sheets.Count
If Cells(s, 1) = Sheets(i).Name Then
Range("C" & s & ":N" & s).Copy Sheets(i).Range("C" & Rows.Count).End(xlUp).Offset(1, 0)
End If
Next i
Next s
Application.ScreenUpdating = True
Range("C6").Select
MsgBox "Veriler aktarıldı.", vbInformation
End Sub

 

[bmutlu966]

Deneyiniz.

Sub Aktar()
Application.ScreenUpdating = False
For s = 6 To Cells(Rows.Count, 1).End(3).Row
For i = 1 To Sheets.Count
If Cells(s, 1) = Sheets(i).Name Then
Range("C" & s & ":N" & s).Copy
Sheets(i).Select
Range("C" & Rows.Count).End(xlUp).Offset(1, 0).Pastespecial xlValues
End If
Next i
Next s
Application.ScreenUpdating = True
Range("C6").Select
MsgBox "Veriler aktarıldı.", vbInformation
End Sub

 

[ozuberk]

bmutlu966 cevap için teşekkür ederim. Daha önceki kodda birden fazla sayfaya aktarım yapıyordu. Sizin yazdığınız kodda sadece tek sayfaya aktarım yapıyor. Ayrıca yapıştır seçeneği aktif olarak gözüküyor.

 

[Korhan Ayhan]

Deneyiniz.

Sub Aktar()
Application.ScreenUpdating = False
For s = 6 To Cells(Rows.Count, 1).End(3).Row
For i = 1 To Sheets.Count
If Cells(s, 1) = Sheets(i).Name Then
Sheets(i).Range("C" & Rows.Count).End(xlUp).Offset(1, 0).Resize(, 12).Value = Range("C" & s & ":N" & s).Value
End If
Next i
Next s
Application.ScreenUpdating = True
Range("C6").Select
MsgBox "Veriler aktarıldı.", vbInformation
End Sub

 

[ozuberk]

Korhan hocam cevap için teşekkür ederim. Tam istediğim gibi olmuş.