اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

كيف ادخل بيانات فى شيت وترحل تلقائيا فى شيت اخر

sadouka

بواسطه sadouka
في منتدى الاكسيل Excel

 مشاركة

الردود الموصى بها

  • الردود 117
  • Created
  • اخر رد

Top Posters In This Topic

Popular Days

Top Posters In This Topic

Popular Days

Popular Posts

الـعيدروس
الـعيدروس

استبدل كود زر الاضافة بهذا الكود Private Sub CommandButton1_Click() Dim sh As Worksheet Dim R As Integer, N As Integer, Endrow As Integer, ALI As Long Set sh = Sheets(TextBox4.Value) ALI =

الـعيدروس
الـعيدروس

السلام عليكم الاخ الفاضل نزاهة والاخ الحبيب العام الجديد اذا كنت تريد كود يلائم طلبك ارفق مثال وان شاء الله سوف تجد من يقوم بعمل اللازم وزيادة وفقك الله

الـعيدروس
الـعيدروس

السلام عليكم جرب المرفق واي تعديلات او اضافات انا موجود وعذراً على التأخير تعرف شواغل الدنيا المطلوب ترحيل _ALI_4.rar

Posted Images

الـعيدروس

الـعيدروس

قام بنشر
قام بنشر

السلام عليكم

الاخ الفاضل العام الجديد2012

عندي لايوجد أي مشكلة

بيعمل 100%

ربما الملف الذي تعمل عليه يختلف عن المرفق في المشاركة

والسلام عليكم

أبو عبد النور

أبو عبد النور

قام بنشر
قام بنشر

السلام عليكم،

بالنسبة للصورة :

- الاولى، فالخطأ كتابي وكان بامكانك ملاحظة ذلك وتصحيح الخطأ

اكتب Nothing في مكان notking

- الثانية في عدم اشتغال زر "تقرير مفصل" لان ورقة الكشف الرئيسي فارغة وليس بها معطيات

- الثالثة، حاول تجرية الطباعة من جديد.

2012_5.3.rar

العام الجديد2012

العام الجديد2012

قام بنشر
قام بنشر (معدل)

اخي واستاذي

apt

و الله أني خجلت منك

واسأل الله العظيم رب العرش العظيم

أن يجزاك خير الجزاء وأن يوفقك للخير

ويجعلك من الهادين الى فعل الخير

وان يغفر لك ولوالديك

ولي وللمسلمين جميعا اللهم امين

اخي اكرر شكري وخجلي من كريم تجاوبك

ولكن لا اعلم ما المشكلة بضبط مع العلم

اني كنت اعمل على اوفيس 2010

ثم ذهبت لجهاز اخر فيه اوفيس 2003

ولكن نفس المشكلة

بالصورة ما ظهر لي

post-73957-0-90879900-1329494467_thumb.p

post-73957-0-20577700-1329494471_thumb.p

post-73957-0-78415900-1329494477_thumb.p

post-73957-0-29930500-1329494533_thumb.p

تم تعديل بواسطه العام الجديد2012
أبو عبد النور

أبو عبد النور

قام بنشر
قام بنشر

السلام عليكم،

انا اعمل عل اكسل 2007

بالنسبة للازرار غير المفعلة فهي كذلك حتى يتم ادخال معطيات جديدة لان الجدول الرئيسي في ورقة "الكشف الرئيسي" فارغ

بالنسبة للطباعة كنت اعتقد انك تريد فقط طباعة الجدول بالاصفر ؟

اما خطأ الزوم فساحاول ان ابحث عن الامر.

العام الجديد2012

العام الجديد2012

قام بنشر
قام بنشر

السلام عليكم

اخي واستاذي

apt

بالنسبة للازرار غير المفعلة فهي كذلك حتى يتم ادخال معطيات جديدة لان الجدول الرئيسي في ورقة "الكشف الرئيسي" فارغ

لم تعمل رغم كل المحاولات

الاستاذ

messboub

ماهي فكرة " لصق بارتباط "

أبو عبد النور

أبو عبد النور

قام بنشر
قام بنشر (معدل)
لم تعمل رغم كل المحاولات

الرجاء ارفاق الملف الذي لديك ولم تعمل فيه الازرار.

لاني اعدت تجريب تفعليها بعد اضافة سطر جديد في ورقة الكشف الرئيسي عن طريف زر "ادخال جديد" وتم ذلك بنجاح.

بالنسبة للطباعة وفي محاولة لطباعة جدوليين متجانبين، فإنه لا يمكن ذلك لتمدد طولهما خارج حدود الصفحة.

فهل من فكرة أخرى تريدها لطباعة هذين الجدوليين ؟

تم تعديل بواسطه apt
أبوبكر مسعودي

أبوبكر مسعودي

قام بنشر
قام بنشر

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

لقد قمت بعملية " لصق بارتباط " في الملف المرفق

و أضع الملف بعد التعديل مع شرح العملية في ورقة أضفتها

سميتها " طريقة العمل " مع صورة تشرح العمل

أرجو أن أكون قد وفقت في حل المشكل

المطلوب ترحيل2 _ALI.rar

الـعيدروس

الـعيدروس

قام بنشر
قام بنشر

السلام عليكم

الاخ الفاضل العام الجديد 2012

اضف هذه الجملة في أول الكود

ON ERROR RESUME NEXT

يصير الكود كالتالي


Sub ScreenResolution()

On Error Resume Next

    Dim Zoom&

    If DisplayVideoResolution = "1024 x 768" Then Zoom = 170

    If DisplayVideoResolution = "800 x 600" Then Zoom = 136

    If DisplayVideoResolution = "640 x 480" Then Zoom = 85

    Sheets("الادخال").Activate

    ActiveWindow.Zoom = Zoom

End Sub

أبو عبد النور

أبو عبد النور

قام بنشر
قام بنشر

السلام عليكم،

اليك الملف به اعداد لطباعة الجدولين مع بعض.

أرجو ان يناسبك.

ملاحظة : للأسف لم استطع تحميل الفيديو الذي ارفقته لان النت عندي ضعيف جدا.

2012_6.rar

العام الجديد2012

العام الجديد2012

قام بنشر
قام بنشر (معدل)

السلام عليكم ورحمه الله

بالاول

اعتذرعلى التاخر بالرد

الف الف الف الف شكر لك استاذي

apt

والشكر موصول لاستاذي

ابونصار

بدأت بتجربة يوجد ملاحظة صغيرة

الان عند ادخال اسم واحد فقط وطلب تقرير مفصل لطباعة تتداخل البيانات ببعضها عند الطباعة

هل فيه امكانية لجعل حدود الطباعة عدد 20 صف ثابتة حتى ولوكان يوجد اسم واحد في كل تقرير

هل استطيع عمل ترويسة ثابته في الصفحة الرئيسية تظهر عند الطباعة كل تقرير

ملاحظة عند مسح التقارير المفصل لا يمسح الجداول في الاسفل الصفحة

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

***

قمت بإضافة خانة الرسوم

وعدلت على الفورم وتم الاضافة بالجدول بنجاح الرئيسي والفرعي

ولكن بقي اضافتها في تقرير مفصل

اضافة اسم معد التقرير

***

الملف مرفق

2012_6 رسوم.rar

تم تعديل بواسطه العام الجديد2012
abuali7

abuali7

قام بنشر
قام بنشر

السلام عليكم شباب

برنامج حلو ما قصرتون

أنا قمت بتجربة البرنامج وأعجبني ولكن هناك بعض المشاكل الطفيفة

من ضمنها إذا قمنا بـ حماية للشيت (أي وضع الباسوورد عليه) فإن البرنامج لايقوم بحذف ما تحذفه فقط يكتب لك تم الحذف و في الحقيقة لم يحذف اي شئ

جرب بنفسك وأرجو تعديل البرنامج

و شكراً لكم

amir501

amir501

قام بنشر
قام بنشر

السلام عليكم .. عند تغير الجنسية من اللغة العربية الى اللغة الانكليزية ... لا يتم الترحيل ؟؟؟ هل يمكن تعديل هذا الكود ليتناسب مع اللغة الانكليزية.. جزاكم الله كل خير

amir501

amir501

قام بنشر
قام بنشر

السلام عليكم .. عند تغير الجنسية من اللغة العربية الى اللغة الانكليزية ... لا يتم الترحيل ؟؟؟ هل يمكن تعديل هذا الكود ليتناسب مع اللغة الانكليزية.. جزاكم الله كل خير

إبراهيم محمد

إبراهيم محمد

قام بنشر
قام بنشر

<p style="text-align: left;"><span class="typ">Private</span><span class="pln"> </span><span class="typ">Sub</span><span class="pln"> </span><span class="typ">CommandButton1_Click</span><span class="pun">()</span><br />

<span class="typ">Dim</span><span class="pln"> sh </span><span class="typ">As</span><span class="pln"> </span><span class="typ">Worksheet</span><br />

<span class="typ">Dim</span><span class="pln"> R </span><span class="typ">As</span><span class="pln"> </span><span class="typ">Integer</span><span class="pun">,</span><span class="pln"> N </span><span class="typ">As</span><span class="pln"> </span><span class="typ">Integer</span><span class="pun">,</span><span class="pln"> </span><span class="typ">Endrow</span><span class="pln"> </span><span class="typ">As</span><span class="pln"> </span><span class="typ">Integer</span><span class="pun">,</span><span class="pln"> ALI </span><span class="typ">As</span><span class="pln"> </span><span class="typ">Long</span><br />

<span class="typ">Set</span><span class="pln"> sh </span><span class="pun">=</span><span class="pln"> </span><span class="typ">Sheets</span><span class="pun">(</span><span class="typ">TextBox4</span><span class="pun">.</span><span class="typ">Value</span><span class="pun">)</span><br />

<span class="pln">ALI </span><span class="pun">=</span><span class="pln"> sh</span><span class="pun">.</span><span class="typ">Cells</span><span class="pun">(</span><span class="typ">Rows</span><span class="pun">.</span><span class="typ">Count</span><span class="pun">,</span><span class="pln"> </span><span class="lit">1</span><span class="pun">).</span><span class="typ">End</span><span class="pun">(</span><span class="pln">xlUp</span><span class="pun">).</span><span class="typ">Row</span><span class="pln"> </span><span class="pun">+</span><span class="pln"> </span><span class="lit">1</span><br />

<span class="typ">For</span><span class="pln"> R </span><span class="pun">=</span><span class="pln"> </span><span class="lit">0</span><span class="pln"> </span><span class="typ">To</span><span class="pln"> </span><span class="lit">10</span><br />

<span class="typ">If</span><span class="pln"> </span><span class="typ">Me</span><span class="pun">.</span><span class="typ">Controls</span><span class="pun">(</span><span class="pln">myCon</span><span class="pun">(</span><span class="pln">R</span><span class="pun">)).</span><span class="typ">Text</span><span class="pln"> </span><span class="pun">=</span><span class="pln"> </span><span class="str">&quot;&quot;</span><span class="pln"> </span><span class="typ">Then</span><span class="pln"> N </span><span class="pun">=</span><span class="pln"> N </span><span class="pun">+</span><span class="pln"> </span><span class="lit">1</span><br />

<span class="typ">Next</span><br />

<span class="typ">If</span><span class="pln"> N </span><span class="pun"><></span><span class="pln"> </span><span class="lit">0</span><span class="pln"> </span><span class="typ">Then</span><span class="pln"> </span><span class="typ">MsgBox</span><span class="pln"> </span><span class="str">&quot;ملف فارغ لا يمكن الأضافة&quot;</span><span class="pun">:</span><span class="pln"> </span><span class="typ">GoTo</span><span class="pln"> </span><span class="lit">1</span><br />

<span class="typ">Me</span><span class="pun">.</span><span class="typ">MousePointer</span><span class="pln"> </span><span class="pun">=</span><span class="pln"> </span><span class="lit">11</span><br />

<span class="typ">With</span><span class="pln"> </span><span class="typ">Sheets</span><span class="pun">(</span><span class="str">&quot;الكشف الرئيسي&quot;</span><span class="pun">)</span><br />

<span class="typ">Endrow</span><span class="pln"> </span><span class="pun">=</span><span class="pln"> </span><span class="pun">.</span><span class="typ">Range</span><span class="pun">(</span><span class="str">&quot;A&quot;</span><span class="pln"> </span><span class="pun">&amp;</span><span class="pln"> </span><span class="pun">.</span><span class="typ">Rows</span><span class="pun">.</span><span class="typ">Count</span><span class="pun">).</span><span class="typ">End</span><span class="pun">(</span><span class="pln">xlUp</span><span class="pun">).</span><span class="typ">Row</span><span class="pln"> </span><span class="pun">+</span><span class="pln"> </span><span class="lit">1</span><br />

<span class="typ">For</span><span class="pln"> R </span><span class="pun">=</span><span class="pln"> </span><span class="lit">0</span><span class="pln"> </span><span class="typ">To</span><span class="pln"> </span><span class="lit">10</span><br />

<span class="pun">.</span><span class="typ">Cells</span><span class="pun">(</span><span class="typ">Endrow</span><span class="pun">,</span><span class="pln"> R </span><span class="pun">+</span><span class="pln"> </span><span class="lit">1</span><span class="pun">).</span><span class="typ">Value</span><span class="pln"> </span><span class="pun">=</span><span class="pln"> </span><span class="typ">Me</span><span class="pun">.</span><span class="typ">Controls</span><span class="pun">(</span><span class="pln">myCon</span><span class="pun">(</span><span class="pln">R</span><span class="pun">)).</span><span class="typ">Value</span><br />

<span class="typ">If</span><span class="pln"> </span><span class="typ">TextBox4</span><span class="pun">.</span><span class="typ">Value</span><span class="pln"> </span><span class="pun">=</span><span class="pln"> sh</span><span class="pun">.</span><span class="typ">Name</span><span class="pln"> </span><span class="typ">Then</span><br />

<span class="pln">sh</span><span class="pun">.</span><span class="typ">Cells</span><span class="pun">(</span><span class="pln">ALI</span><span class="pun">,</span><span class="pln"> R </span><span class="pun">+</span><span class="pln"> </span><span class="lit">1</span><span class="pun">).</span><span class="typ">Value</span><span class="pln"> </span><span class="pun">=</span><span class="pln"> </span><span class="typ">Me</span><span class="pun">.</span><span class="typ">Controls</span><span class="pun">(</span><span class="pln">myCon</span><span class="pun">(</span><span class="pln">R</span><span class="pun">)).</span><span class="typ">Value</span><br />

<span class="typ">End</span><span class="pln"> </span><span class="typ">If</span><br />

<span class="typ">Next</span><span class="pln"> R</span><br />

<span class="typ">End</span><span class="pln"> </span><span class="typ">With</span><br />

<span class="pln">KH_A</span><br />

<span class="typ">ActiveWorkbook</span><span class="pun">.</span><span class="typ">Save</span><br />

<span class="typ">Me</span><span class="pun">.</span><span class="typ">MousePointer</span><span class="pln"> </span><span class="pun">=</span><span class="pln"> </span><span class="lit">0</span><br />

<span class="typ">MsgBox</span><span class="pln"> </span><span class="str">&quot;تمت الأضافة بنجاح&quot;</span><br />

<span class="lit">1</span></p>

<p style="text-align: left;"> </p>

<p style="text-align: left;"><span class="typ">End</span><span class="pln"> </span><span class="typ">Sub</span></p>

<p style="text-align: left;"> </p>

<p style="text-align: left;"> </p>

<p style="text-align: left;"> </p>

<p style="text-align: left;"><span class="typ">السلام عليكم روحمه الله وبركاته </span></p>

<p style="text-align: left;"><span class="typ">فى الحقييقه المنتدي غنى بالمعرفه والجديد   وارجو من الاستاذ محرر هذا الكود ان يقوم بشرح مبسط له لان هذا الكود مفيد جدا لى فى عملي ولكنى احتاج لفهمه حتى استطيع تطبيقه </span></p>

<p style="text-align: left;"><span class="typ">وارجوا ان لا يكون فى ذلك اثقال عليكم  </span></p>

<p style="text-align: left;"><span class="typ">وجزاكم الله خيرا </span></p>

زائر
هذا الموضوع مغلق.
 مشاركة
الذهاب الي قائمه المواضيع

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه


×
×
  • اضف...

Important Information

  I accept