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
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