الاستاذ محمد حجازي بخصوص كود التحديث إذا ممكن

[salman a]

الأستاذ محمد حجازي

السلام عليكم ورحمة الله وبركاته

ارجو ان تتحملني قليلا

الكود الموجود في هذا الرابط إشتغلت عليه لكن لدي مشكلتين معاه

الأولى - عندما أضغط زر بدء النسخ يقوم بالعملية لكن عندما ينتقل للورقة الثانية الأرقام في الصفحة اللتي تم الإنتقال منها تضل تحدث وهكذا( أي ان الأرقام بالصفحات جميعها تكون متساوية بالنهاية )

اريد عندما ينتقل للصفحة الجديدة يوقف عملية تحديث الصفحة اللتي تم الخروج منها .

ثانيا -هل بالإمكان عندما ينتقل للصفحة الثانية يقوم بنسخ الأرقام اللتي بالخلية G مكان التحديث من الورقة السابقه الأولى الى الخلية H في الورقة الثانية اللتي تم الإنتقال إليها لتحديثها وهكذا كل ما ينتقل لورقة اخرى يحضر القيمة اللتى بالخلية G من الورقة اللي قبلها .

ثالثا - عند التحديث بس يوصل للورقة العاشررة يعطيني هذه الرسالة

run-time error . 1004

worksheet من الفئة coby فشل اسلوب

واذا ظغط زر التحديث بدون عمل رابط للورقة يعطيني صفحات أكثر حوالى 20 هل لهذه المشكلة حل

http://www.officena.net/ib/index.php?showtopic=8215

اسف للإزعاج شاكر تجاوبك ولك مني كل التقدير والإحترام

[محمد حجازي]

السلام عليكم ...

الأولى - عندما أضغط زر بدء النسخ يقوم بالعملية لكن عندما ينتقل للورقة الثانية الأرقام في الصفحة اللتي تم الإنتقال منها تضل تحدث وهكذا( أي ان الأرقام بالصفحات جميعها تكون متساوية بالنهاية )

اريد عندما ينتقل للصفحة الجديدة يوقف عملية تحديث الصفحة اللتي تم الخروج منها .

بفرض أن البيانات موجودة على المجال A1:C5 فيمكنك تطبيق الكود التالي :

Private RunWhen As Double
Public Sub RunCopy()
  With Workbooks("CopySheet")
    .Sheets("Sheet1").Copy After:=.Sheets(.Sheets.Count)
    With .Sheets("Sheet1").Range("A1:C5")
      .Copy
      .PasteSpecial Paste:=xlPasteValues
    End With
    .Sheets(.Sheets.Count).Range("A1").Select
    .Sheets("Sheet1").Activate
    .Sheets(.Sheets.Count).Name = Replace(Time(), ":", "-", 1, -1)
  End With
  RunWhen = Now + TimeSerial(0, 0, 5)
  Application.OnTime RunWhen, "RunCopy", , True
End Sub
Public Sub StopCopy()
  On Error Resume Next
  Application.OnTime RunWhen, "RunCopy", , False
  RunWhen = 0
End Sub

ثانيا -هل بالإمكان عندما ينتقل للصفحة الثانية يقوم بنسخ الأرقام اللتي بالخلية G مكان التحديث من الورقة السابقه الأولى الى الخلية H في الورقة الثانية اللتي تم الإنتقال إليها لتحديثها وهكذا كل ما ينتقل لورقة اخرى يحضر القيمة اللتى بالخلية G من الورقة اللي قبلها .

الرجاء التوضيح أكثر.

ثالثا - عند التحديث بس يوصل للورقة العاشررة يعطيني هذه الرسالة

run-time error . 1004

worksheet من الفئة coby فشل اسلوب

واذا ظغط زر التحديث بدون عمل رابط للورقة يعطيني صفحات أكثر حوالى 20 هل لهذه المشكلة حل

قد يكون ذلك له علاقة بمدى الذاكرة المتوفرة لديك.

راجع حدود مصنف الاكسل.

[salman a]

الأستاذ الفاضل محمد حجازي

السلام عليكم ورحمة الله وبركاته

معليش ارجو منك تتحمل جهلي بموضوع الماكرو

ما اريده !!! اولا عملت ربط لهذا الملف الورقة Sheet 1 البيانات انستوردة وضعتها على المجال A1:C5 وهي تتغير كل ثانية من المصدر الى الأن كل شي ممتاز

اريد بس اضغط زر النسخ يقوم بالتالي

1 _ ينتقل للصفحة الجديدة يضع بنفس المجال A1:C5 لهذه الورقة البيانات التي موجوده

في هذه اللحظة بالملف المصدر ( الملف اللذي تم الإرتباط معه سابقا ) مع عدم تحديث

الصفحة السابقة

2 _ بنفس الوقت يقوم بنقل البيانات اللتي وضعت مسبقا بالمجال A1:C5 بالصفحة

السابقة ويضعها في المجال D1:F5 للصفحة الحالية

شاكر لك تفضلك بالرد مسبقا

كما أرجو التواصل معي عبر الإميل

salmanhmz@yahoo.com

[محمد حجازي]

السلام عليكم ...

جرب التعديل التالي :

Private RunWhen As Double
Public Sub RunCopy()
 With Workbooks("CopySheet")
   Sheets.Add After:=.Sheets(.Sheets.Count)
   .Sheets(.Sheets.Count).Name = Replace(Time(), ":", "-", 1, -1)
   .Sheets(.Sheets.Count).Range("A1:C5").Value = .Sheets("Sheet1").Range("A1:C5").Value
   .Sheets(.Sheets.Count).Range("D1:F5").Value = .Sheets(.Sheets.Count - 1).Range("A1:C5").Value
   .Sheets("Sheet1").Activate
 End With
 RunWhen = Now + TimeSerial(0, 0, 5)
 Application.OnTime RunWhen, "RunCopy", , True
End Sub
Public Sub StopCopy()
 On Error Resume Next
 Application.OnTime RunWhen, "RunCopy", , False
 RunWhen = 0
End Sub

CopySheet1.rar

[salman a]

الاستاذ محمد حجازي

السلام عليكم

1 - قمنا بعمل ربط للبيانات بالورقة Sheet 1 وذلك بالمجال A1 فقط

2 - عند ضغط زر التحيث إنتقل للورقة التالية ماهو المطلوب

3 - المطلوب عندما ينتقل من الورقة Sheet 1 إلي الورقة الجديدة يتم إيقاف تحديث ( قطع الربط ) للورقة اللتي تم الإنتقال منها حال الإنتقال لورقة اخرى .

4 - نقل التحديث ( الربط ) للورقة الجديدة وبنفس المجال السابق A1

5 - بس ينتقل من ورقة إلي ورقة اخرى أريد نقل القيمة الموجودة بالمجال A1 من الورقة السابقة الى المجال B 1 من الورقة الجديدة وذلك كقيمة فقط

وأيضا نقل القيمة الموجودة بالمجال D1 من الورقة السابقة الى المجال C1 للورقة الجديدة أيضا كقيمة فقط

علما بأن القيم اللتي نشأت في المجال D من معاده اضعها

شاكر لك لطفك ومساعدتك

تم تعديل يوليو 3, 2005 بواسطه salman a

[salman a]

مساء الخير استاذ محمد

انا بانتظار ردك لموضوعي

تم تعديل يوليو 4, 2005 بواسطه salman a

[محمد حجازي]

السلام عليكم ...

ما دمت معاي ، الرجاء توضيح طلبك لأني بصراحة لم أفهم ما تريد تحديثه و ما لا تريد تحديثه .

[salman a]

السلام عليكم ...

ما دمت معاي ، الرجاء توضيح طلبك لأني بصراحة لم أفهم ما تريد تحديثه و ما لا تريد تحديثه .

<{POST_SNAPBACK}>

الاستاذ محمد اولا قمت بربط النطاق A1 بــ SHEET 1

اريد عندما أضغط ازر للتحديث بعد خمسة دقائق ينتقل للورقة الثانية

عندما ينتقل للورقة الثاني هل بالإمكان قطع الإرتباط من الورقة اللتي تم الإنتقال منها وإبقاء الأرقام كما هي لحظة الإنتقال منها

2 - إحظار القيمة اللتي كانت بالورقة اللتي تم الإنتقال منها وهي اللتي بالمجال A الى المجال B للورقة الجديدة

مع ملاحظة نقل الإرتباط للورقة الجديدة مجال A

تم تعديل يوليو 4, 2005 بواسطه salman a

[محمد حجازي]

السلام عليكم ...

آسف أخي لأنني لم أنتبه إلى أنني غيرت اسم المصنف .

هل هذا ما تقصده ؟

CopySheet1.rar

[salman a]

استاذ محمد

هذا يبقي ارتباط بالورقة SHEET 1

وهو يقوم فقط بنسخ القيمة الموجودة بتلك الورقة أثناء الإنتقال لورقة جديدة

ما اريده العكس ان يرحل الإرتباط للورقة الجديدة وقطع الإرتباط من الورقة السابقة

[محمد حجازي]

السلام عليكم ...

للعملتين نفس النتيجة ، و ذلك لأنني أستخدم الورقة Sheet1 كأساس لتوليد باقي الأوراق .