hayyan alaa

السلم عليكم

يا اساتذتنا قمت بعمل ملف اكسل لتنظيم بيانات الصندوق عندي وذلك تم بفضل كبير منكم و خاصة الاستاذ سليم ولكني وقعت في مشكلة

لقد اوضحت شرحها ضمن ملفي المرفق

اضف اليها مشكلة اغفلت كتابتها ضمن الملف وهي ارتجاج الشاشة بشكل كبير عند قيام الكود بفتح صفحة جديدة

ارجو مساعدكم والافادة

صندوق.xlsm

شكرا جزيلا استاذ سليم

اسعد الله  اوقاتكم يا سادة

سؤال ارسل الي و من فترة قريبه جدا الاستاذ سليم.ماكرو كان يحتوي على متغير كالتالي

dim t%

سؤالي الى ما يرمز % و بماذا يفيد

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

دمتم بخير

22 minutes ago, سليم حاصبيا said:

اين ذهب الماكرو الذي قمت انا بانشائه ===> لا لزوم له   تم مسحه

هل الماكرو الذي احدثته انت يتولى هذه المهمه اضافة الى مهمة انشاء صفحة جديدة  ===> بالطبع هذه مهمته

1-   اذا كان عدد الصفوف المملوءة في الشيت الاخير اقل من 11 يتم اضافة ما تريد الى اول صف  فارغ في نفس الصفجة حتى يصل عدد            الصفوف الى 11

2-  و اذا  كان عدد الصفوف المملوءة في الشبت الاخير يساوي  11 يتم ادراج شيت جديد الذي يأخد اسم الشيت الذي قبله زائد واحد

    ويذلك يكون هذا الشيت قد اصبح بدوره اخر شيت و تتم اضافة ما تريد اليه  ابتداء من الصف الثاني حتى الرقم 11

ووهكذا دواليك

اعجز بالكلام عن وصفك

يا رائع

انا مبتدئ في هذا المجال و 

هل من نصائح لديك تفيدني في التدرج في مجالvba

يا اساتذتنا الافاضل

اسعد الله اوقاتكم

الاستاذ سليم كفى و وفى بهاد الموضوع

ولكن عندي طمع بالعلم و الاحاطة بهادا الموضوع اكتر

فهل يوجد لدى احدكم طريقة أخرى لحل هذا

الموضوع 

ولكم جزيل الشكر

3 hours ago, سليم حاصبيا said:

جرب هذا الماكرو (تم تغيير اسماء الصفحات لحسن عمل الكود بالنسبة لنسخه (حتى لا تظهر احرف غريبة)

Sub Salim_Macro()
Rem Created On 31/5/2019 By Salim Hasbaya
Application.ScreenUpdating = False

Dim New_ro%
Dim t%: t = Sheets(Sheets.Count).Index
Dim target_sh As Worksheet
Dim M_sh As Worksheet
Set M_sh = Sheets("main")
 Dim last_ro%
 laste_ro = Sheets(t).Cells(Rows.Count, 1).End(3).Row
  Select Case laste_ro
   Case 11
    Set target_sh = Sheets.Add(after:=Sheets(t))
    ActiveSheet.Name = "MY_sh" & t - 1
    M_sh.Range("a1:c1").Copy ActiveSheet.Range("a1")
   End Select
   Set target_sh = Sheets(Sheets.Count)
    New_ro = target_sh.Cells(Rows.Count, 1).End(3).Row + 1
     M_sh.Range("a2:c2").Copy _
    target_sh.Cells(New_ro, 1)
M_sh.Select
Application.ScreenUpdating = True
End Sub

 

33_salim.xlsm 23.72 kB · 3 downloads

لقد اذهلتني فعلا

سؤالي لك يا استاذ

اين ذهب الماكرو الذي قمت انا بانشائه مسبقا و الذي مهمته ترحيل البيانات

هل الماكرو الذي احدثته انت يتولى هذه المهمه اضافة الى مهمة انشاء صفحة جديدة

و اخيرا اذا كان لديك من و قت

هل بالامكان شرح الماكرو خاصتك خطوه بخطوه 

باركك الله 

فضلك كبيرر علي و على امثالي

استاذ سليم

انت رااااااااائع

شكرا جزيلا لك ولكل الاساتذة و المتابعين

ارجو ان اكون قد اوضحت المطلوب في هذا المرفق

من جديد اقول اعذروا جهلي

وبارك الله بكم

33.xlsm

شكرا لك 

ليلى الهلالي

بارك الله بك و بكل من ساهم في انجاز هذه الدروس

عذرا والخطأ مني

ولكن اقصد جدول محدد في تلك الصفحة واريد ان انتقل الى جدول جديد في صفحة جديد يتم إنشاؤه اليا

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

 كيف اقوم بذلك؟؟؟

  مشكور جدا لتلطفك بالرد سيد سليم حاصبيا

في هذا المرفق يوجد صفحتين 

نقوم في الصفحة الاولى بادخال بيانات من ثم تنتقل الى الصفحة الثانية التي تحتوي عدة اعمدة

(المطلوب ان يتم احتساب مجموع قيمة الاعمدة (مختلفة.تسليف.خدمات.رسم سنوي

(و وضعه في عمود (المجموع

ثم الاتنقال بالعميلة صف تلو الاخر

وقد اضفت بيانات وهي موجودة في الصفحة الثانية و قمت بحذف الصفحة الغير مطلوبة

تجريب.xlsm

السلام عيكلم

من فضلكم

في ملفي المرفق في ورقة العمل الثانية 

اريد ان يظهر في الخلية(H2)مجموع الخلايا(d2,e2,g2,f2)و تكرار العملية مع كل سطر جديد

تجريب.xlsm

حبا بالله اريد ان اتعلم كيف اكتب الاكواد 

انا جديد في المنتدى 

بقالي سنين بحاول اكتب كود او اعمل دالة ما عرفت

ما بعرف كيف استخدم علامات التنصيص و سخرها بالكتابه

هل من مجيب