+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : [نقاش] مطلوب التغديل علي كود نقل صف من شيت لاخر كل 30 دقيقة في اكسيل (/showthread.php?tid=23479)
مطلوب التغديل علي كود نقل صف من شيت لاخر كل 30 دقيقة في اكسيل - mhshahen - 22-01-18
الكود دة بينقل كل الشيت
انا عايز تعديل بسيط بحيث ينقل صف واحد كل مرة
يعني لوب بيدور مع الصف
بس انا مبتدئي في الفيجوال ومش عارف اظبطه
كود :
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