onlymanly

:) دائما اطلاتك كإطلالة القمر للساري في ظلم الليل... زادناالله من فضله و إياك

اظن أني عرفت كيف اختيار الورقة أو النطاق المطلوب نسخه .. فقط أحاول أتعلم حسب وقتي .. في الملف هذا الكود .. الذي في اللون الأحمر هو النطاق و الكحلي هو الورقة .. و يمكنك اختيار أي نطاق يتم نسخة و أي ورقة كذلك حسب اسمها لديك والله اعلم Private Sub CommandButton1_Click() On Error Resume Next Dim xlSheet As Worksheet Dim xlSh As Worksheet If Me.BackColor = 192 Then MsgBox "ÇáÇÓã ãÑÝæÖ äÕíÇð", vbInformation + vbMsgBoxRight, "ÊäÈíå": GoTo 1 If TextBox1.Text = "" Then MsgBox "ÎáÇíÇ ÝÇÑÛÉ ", vbInformation + vbMsgBoxRight, "ÊäÈíå": GoTo 1 For Each xlSh In ActiveWorkbook.Worksheets If xlSh.Name = TextBox1.Text Then MsgBox "ÇÓã ãßÑÑ", vbInformation + vbMsgBoxRight, "ÊäÈíå": GoTo 1 Next xlSh B = MsgBox(" åá ÊÑíÏ ÇÖÇÝÉ " & vbNewLine & "" & vbNewLine & "ÇáÍÓÇÈ : " & TextBox1.Text, vbOKCancel + vbQuestion + vbMsgBoxRight, "ÊÃßíÏ ÇÖÇÝÉ ÍÓÇÈ") If B = 2 Then GoTo 1 Application.ScreenUpdating = False Set xlSheet = ActiveWorkbook.Sheets.Add With xlSheet .Name = TextBox1.Text 33.Range("A1:K74").Copy .Paste .Range("A1").PasteSpecial Paste:=xlPasteColumnWidths .[C3] = "ÍÓÇÈ / " & TextBox1.Text .[A5].Select End With Application.CutCopyMode = False With ActiveWindow .FreezePanes = True .DisplayGridlines = False End With Set xlSheet = Nothing Application.ScreenUpdating = True End On Error GoTo 0 1 End Sub

نعم أخي الخالدي.. عز الطلب... اشكرك جدا

أحتاج في المرفق أمنع المستخدم من تجاوز ا لصف إلا بعد إكمال كل خلاياه طبعا جانب الدائن و المدين يجب ان يكون الإدخال في واحد فقط .. ثم كيف امنع المستخدم من تعبئة خليتي الدائن و المدين في ان واحد و أنه عليه تعبئة جانب واحد فقط؟؟؟ بارك الله فيكم جميعا

الله يرحم والديك أخي :أيسم إبراهيم و يسهل طريقك أخي : احمدزمان جزاك الله خيرا و بارك فيك استفدت كثيرا من هذا المنتدى الرائع و من أهله .فاللهم بارك فيه و فيهم

أنتظر كرمكم

معليش بثقل عليك ... ياريت تصحيح لبيان التعبئة هذا... و يوشك أن يكون الأخير :$ و بقي سؤال يتعلق بالمرفق.. أخفيت 3 أعمدة لغرض الجمع فيها و اعتبارها في الإجمالي... لكن عندما يحدد المستخدم بالماوس مثلا 4 أو 5 خلايا متجاوزة ينحذف ما في الأعمدة المخفية .. هل من حل لهذا؟

بارك الله فيك أخي أيسم إبراهيم و اخي adam13 و أخي احمدزمان . جزاكم الله خيرا

كيف أجمع (G11+L11+Q11) من غير نفس الإشكال أعلاه :$ لأن بعض الخلايا المذكورة قد تكون فاضية ... فتطلع رسالة VALUE المشكلة ما فهمت محتويات المعادلة اللي كتبتها لي ع شان اقيس عليها :(

بارك الله فيك و زادك علما

ارفقت ملف و هو عبارة عن بيان تعبئة.. و لكنني لم افلح في إخفاء النتيجة #VALUE! كيف الحل و شكرا

و الله يا غالي الشكر لله ثم لك .. و العفو منك أخي الكريم أحيانا فارق التوقيت أو الإنشغال يُظهر المرء في صورة غير أديبة. أنت المشكور على المساعدة ..

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

بارك الله فيك أخي الفاضل ... العفو ع التأخير لم أفتح النت ألا الان ... الملفات التي أشرت إليها في مشاركتك موجودة ضمن المرفق.. ربما تم تغيير الإسم في بعضها. و قد ارفقت الملف مرة أخرى

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

اقصد يا أستاذي .. أن تكون هذه الملفات في مجلد واحد يتم ترحيل ما في ملف القيود إليها

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

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

ربنا يقدر اللي عنده خبرة ووقت

هل من مساعدة؟

أتمنى أن أجد ردا حول طلبي

ملف حملته من هنا.. و فيها شي جميل و هو خيار نسخ صفحات بحيث تكون للحساب .. بس ياريت يعطيني خيار أختار مثل أي ورقة اريد كي ينسخ مثلها و يكتب اسم الحساب و ممكن يكون العنوان : هل يمكن أن يعطيني الخيار؟؟؟ شكرا لله ثم للجميع

يا بارك الله فيك أيها العالم الطيب.. زادك الله من فضله و من عليك بالزيادة يوم القيامة .

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

اشكرك أخي طارق... و قد شعرت أنك مشغول ... الله يكون بعون الجميع ..و بارك الله فيك