التنبيهات التالية ظهرت :
Warning [2] count(): Parameter must be an array or an object that implements Countable - Line: 864 - File: showthread.php PHP 7.4.33 (Linux)
File Line Function
/showthread.php 864 errorHandler->error



تقييم الموضوع :
  • 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
الرد }}}
تم الشكر بواسطة:


الردود في هذا الموضوع
مطلوب التغديل علي كود نقل صف من شيت لاخر كل 30 دقيقة في اكسيل - بواسطة mhshahen - 22-01-18, 07:05 PM


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


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