abouelhassan

السلام عليكم احبابى الاساتذة الافاضل هذه اول مشاركة لى بمنتدى الاكسيس اتمنى لا ترودونى شاهدت هذا الموضوع للاستاذ شوقى ربيع احتاج لمساعدتكم لتنفيذ بحيث لدى ملف اكسيل تم كتابة الكودين بهم بواسطة الاستاذ سليم والاستاذ ياسر خليل الكود الاول كود ترحيل يقوم بالترحيل الى صفحة اكسيل 1 او2او3 على حسب ما احدده له والكود الثانى كود استدعاء عن طريق تحديد التاريخ واختار البيانات التى اريد استدعائها بكومبو بوكس فيتم استدعائها من الشيت 1و2و3 بالتاريخ من الى الكودين يعملان تمام بالملف ما اريد مساعدتكم فيه تنفيذ فكرة الاستاذ شوقى ربيع ربط الاكسيل بالاكسيس بحيث يكون ملف الاكسيل يرحل ويستدعى من قاعدة بيانات بدل الشيت1و2و3 مع خالص الدعاء abouelhassan.xlsm Data.accdb

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

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

هذا اخى هما الملفين الملف المطلوب تعديل او اضافة الى الكودين به هو ملف copy of my_new والملف الاخر new به الشيتات التى اريد تنفيذ الكودين الموجود ين بالملف copy of my new عليهم شكر وتقدير واحترام من اخيك Copy of My_New_Repport.xlsm new.xlsx

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

ربنا يرضى عنك استاذ حسين مامون بارك الله لك فى كل حياتك لم يتم استاذى التجميع بمعنى الشيت tim يوم 1/1 دائن 1000 ويوم 2/1 دائن 2000 اريد عند الاستدعاء ان يأتى الشيت tim دائن 3000 اما الان لازال يأتى اسم الشيت tim 1000 وتحته tim 2000 فاهمنى استاذى اريد اسم الشيت يكون مرة واحدة ودائن او مدين فى هذا التاريخ متجمع وبكده يكون جميلك على راسى والف شكر وحفظك ورعاك رب العالمين شكر وتقدير واحترام

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

اتقدم اليك اخى خيماوي كووولبخالص الشكر وخالص الاحترام والتقدير بارك الله فيك اريد اخى خيماوي كووولاستخدام الكودين الموجودين بملفى كل ماريده استذى الغالى هو الملف my new repport اول شيتين فيه كل شيت به كود الاول ترحيل والثانى استدعاء ويعملان تمام التمام اريد التعديل عليهم بحيث يتم فصل الصفحتين فى ملف وباقى صفحات فى ملف اخر وانا تركت الملف my repport كما هو لترى الية عمل الكودين وعمل ملف اخر به باقى الصفحات هو ما اريده مغلق ويتم تنفيذ الكودين الموجودين بالملف my new repport عليه ستجد ان الصفحات الموجودة بالملف المطلوب الترحيل اليه وهو مغلق نفسها الموجودة بالملف my repport ما عدا صفحتين الكودين لو جربت الملف my repport ستجده بيرحل تمام ةبيستدعى تمام مااريده هو تنفيذ الكودين على الملف الاخر وهو مغلق اشكرك وزاذك الله من فضله واكرمك من نعمه Copy of My_New_Repport.xlsm new.xlsx

بسم الله والصلاة والسلام على رسول الله عليه الصلاة والسلام احبابى الكرام احتاج مساعدتكم الكود الاول-كود ترحيل صفحة tarhel ترحيل التاريخ ورقم الصرف مع كل بيان اختيار الشيت الذى سيتم الترحيل اليه من القائمة واختيار اسم العمود المراد الترحيل من قائمة الكود الثانى- كود جلب البيانات لصفحة TAKRIR عن طريق اختيار التاريخ من والتاريخ الى فيتم استدعاء البيانات الموضحة بالشيت شكر وتقدير وخالص الدعاء من اخيكم ترحيل مدين ودائن.xlsb

السلام عليكم ورحمة الله وبركاته رأيت موضوع مهم من الاستاذ العبقرى المحترم سليم حاصبيا واريد تنفيذه وانا فى نهاية عمرى بحب اتعلم لقد تجاوزت60 من عمرى بس انا احب اتعلم لو سمحتولى الاساتذة العلماء موضوع الاستيراد من ملف مغلق لدى ملف به كودين الاول تفضل الاستاذ سليم بكتابة اكواده الى وهو بميزان حسناته ان شاء الله وهو كود استدعاء الكود الاخر قمت بتحميله من المنتدى كان سؤال احد الاخوة وهو من كتابة الاستاذ ياسر وان شاء الله بميزان حسناته الكودين والشيتات التى يتم الترحيل اليها والاستدعاء منها بالملف المسمى My_New_Repport احتاج الى ان يكون الكودين بالشيتين transfer-Report_Youmi بملف وياريت ياريت لو حبيت اضيف اكواد تانى لهذا الملف تعليمى ما هى الاضافات التى اضفها الى الكود لكى يعمل معى وباقى الشيتات بملف اخر ومغلق وان اقوم بفتح ملف الموجود به الشيتان فقط لا افتح الملف الاخر الذى به باقى الشيتات التى تتم الترحيل والاستيراد منها واعمل عليه فقط ويتم التنفيذ على الاخر وهو مغلق اعتذر للاطالة بس اتمنى شرح كيف انفذ الموضوع هذا الملف my new به كودين الاول ترحيل الى صفحات العمل بالملف. والكود الثانى استدعاء بيانات من صفحات العمل اريد بعد اذنكم فصل الشيتان الذان بهما الكودين فى ملف وباقى الشيتات فى ملف وأقوم بفتح ملف الذى تم فصل الكودين فيه وارحل واستدعى من وإلى الملف الآخر وهو مغلق مع الشكر والتقدير والاحترام كى لا ارهقكم بالاسئلة اساتذتى الافاضل الكرام شكر وتقدير واحترام من اخيكم My_New_Repport.xlsm ملف مطلوب ترحيل اليه والاستدعاء من وهو مغلق.xlsx

البرنامج يعمل اسم المستخدم- الدعم الفنى الباس ورد (1456)

ربنا يبارك لك استاذ طارق

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

شكر وتقدير وخالص الدعاء من اخيك الكود ممتاز الف شكر بارك الله فيك وزادك من خيره ونعمه اخيك باحترام

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

السلام عليكم اساتذة المنتدى كود اخفاء الصفوف التى تحوى صفر هذا من تنفيذ الاستاذ سليم حاصبيا بارك الله فيه ورزقه كل الخير احتاج لتغير بالكود ليشمل الصفوف من b5:I50 بحيث لن الصف بدأ من B5 :I5 اذا كان كله اصفار يختفى حتى لايظهر فى الطباعة وهكذا لباقى الصفوف Sub hid_rows() Dim Hide_range As Range Dim i% i = 2 Range("A1").CurrentRegion.EntireRow.Hidden = False Do Until Cells(i, 1) = vbNullString If Cells(i, 2) = 0 And Cells(i, 3) = 0 Then If Hide_range Is Nothing Then Set Hide_range = Cells(i, 1) Else Set Hide_range = Union(Hide_range, Cells(i, 1)) End If End If i = i + 1 Loop If Not Hide_range Is Nothing Then End If End Sub '+++++++++++++++++ Sub show_all_rows() Range("A1").CurrentRegion.EntireRow.Hidden = False Range("b5:j50").Select End Sub شكر وتقدير واحترام من اخيكم اخفاء الصفوف الصفرية.xlsm

استاذ على حفظك الله بعد اذنك يمكن استخدام حدث change بدون زر فى حدث الصفحة ليصبح الكود Private Sub Worksheet_Change(ByVal Target As Range) Dim sh As Worksheet For Each sh In ThisWorkbook.Worksheets sh.Columns.AutoFit sh.Rows.AutoFit Next sh End Sub مع الشكر

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

بارك الله فيك استاذ اجمد ربنا يحفظك اللهم امين

السادة الاخوة اصدقائى الافاضل كل الاحترام من القلب لدى عدد 7 شيتس بكل منها عدد 19 عامود تحمل نفس الاسم اريد كود ترحيل المبلغ الى الشيت الذى امامه وكذلك اسم الشيت قمت بعمل قائمة منسدلة لاختيار اسم العمود متها واسم الشيت المراد الترحيل المبلغ اليه بدأ من الشيت ص ص والشرح بالملف كل الشكر والتقدير والاحترام من اخيكم ترحيل2.xlsm

رائع استاذنا الفاضل بارك الله فيك

استاذنك استاذ سليم لمعالجة هذا الموضوع يجب مسح الحقول بعد عملية الحفظ ويتم تغير هذا الجزء من الكود Private Sub BT_SAVE_Click() Dim old_num Set sh = Sheets("Sheet1") last = sh.Cells(Rows.Count, 1).End(3).Row If last = 1 Then Exit Sub sh.Range("A2:G" & last).Interior.ColorIndex = 35 If Me.T_NewMASROUF.Value = "" Then MsgBox "الرجاء تحديد المصروف الجديد قي الخانة المناسبة", _ vbMsgBoxRtlReading Exit Sub End If old_num = LB_Kadim.Caption With Me.ListBox1 If .ListIndex < 2 Then Exit Sub x = .List(.ListIndex, 7) sh.Cells(x, 7) = Me.T_NewMASROUF.Value .List(.ListIndex, 0) = Me.T_NewMASROUF.Value End With Me.ListBox1.ListIndex = -1 Me.LB_Kadim.Caption = old_num sh.Cells(x, 1).Resize(, 7).Interior.ColorIndex = 40 Application.Goto sh.Cells(x, 1) Me.T_CODE = "" Me.T_KOUMI = "" Me.LB_Kadim = "" Me.T_NewMASROUF = "" End Sub اخر اربع اسطر مسئولين عن مسح الحقول سامحنى استاذى سليم ا اقصد الا المساعدة لوجه الله احترامى لشخصك الكريم

تسلم يمينك نصركم الله واعزكم اللهم امين

كل الشكر والتقدير والاحترام من القلب

استاذى الله يحفظك عندى عمود كامل به اكثر من 1000 رقم اريد ازالة هذه العلامة من العمود بالكامل اقوم بعمل كوبى وبيست سبشيال واختار ادد وذلك لازالة هذه العلامة التى تحول الرقم لنص هل من طريقة اسهل واسرع او ماكرو مع خالص الشكر والتقدير وخالص الدعاءللاخوة بلبنان