تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[نقاش] مطلوب التغديل علي كود نقل صف من شيت لاخر كل 30 دقيقة في اكسيل
#1
الكود دة بينقل كل الشيت 
انا عايز تعديل بسيط بحيث ينقل صف واحد كل مرة 

يعني لوب بيدور مع الصف 
بس انا مبتدئي في الفيجوال ومش عارف اظبطه  Huh Huh Huh
كود :
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
الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم