22-01-18, 07:05 PM
الكود دة بينقل كل الشيت
انا عايز تعديل بسيط بحيث ينقل صف واحد كل مرة
يعني لوب بيدور مع الصف
بس انا مبتدئي في الفيجوال ومش عارف اظبطه
انا عايز تعديل بسيط بحيث ينقل صف واحد كل مرة
يعني لوب بيدور مع الصف
بس انا مبتدئي في الفيجوال ومش عارف اظبطه
كود :
Sub snapShot()
Dim sourceSheet As String, destinationSheet As String
Dim copyR As Range, pasteR As Range
sourceSheet = "Sheet1"
destinationSheet = "Sheet2"
With Sheets(sourceSheet)
Set copyR = .Range("A1", .Cells(.Rows.Count, 1).End(xlUp)(1, 9))
End With
With Sheets(destinationSheet)
Set pasteR = .Cells(.Rows.Count, 1).End(xlUp)(2, 1) _
.Resize(copyR.Rows.Count, 5)
End With
copyR.Copy pasteR
Application.OnTime Now() + TimeValue("00:00:02"), "snapShot"
End Sub