خالدو

السلام عليكم ورحمة الله وبركاته أنا عارف أن طلباتي كثرت إذا ممكن استبدال التكست بوكس بكومبوبوكس الخاص بالصنف المطلوب - اسمه Customer request ويكون الكومبوبوكس مرتبط بالعمود A في شيت List لو ممكن الأخ خزاني والأخوة بالمنتدى المساعدة العاجلة ... سامحوني على الإلحاح جزاكم الله خيراً

طلب أخير أخي خزاني عند إضافة سجل جديد ياخذ نفس تنسيق الصف السابق له. وشكراً

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

جزاك الله خيراً أخي خزاني سـأجربه واخبرك إن شاء الله.

السلام عليكم ورحمة الله وبركاته شكراً اخي خزاني عند اضافة سجل جديد لماذا يبدأ من رقم 300 ولا يكمل على بعد آخر سيريال موجود؟

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

السلام عليكم ورحمة الله وبركاته شكراً أخي الحبيب خزاني هل من الممكن إضافة زر التالي وزر السابق في حالة أن لنفس اسم العميل أكثر من سجل؟ وزر للطباعة أيضاً الازرار باللغة الفرنسية ويصعب علي معرفة معناها ولكنني ساحاول ترجمتها جزاك الله خيراً أخي الكريم

السلام عليكم ورحمة الله وبركاته أطلب من إخواني الكرام عمل فورم يتيح البحث من خلال إدخال أي حقل مع إمكانية التعديل وإضافة سجلات جديدة على نمط مشاركة استاذي الكبير عبد الله باقشير حفظه الله. ولكن امكانياتي لا تؤهلني لعمل ذلك. المزيد في الملف المرفق. جزاكم الله خيراً NewForm.zip

السلام عليكم ورحمة الله وبركاته وجدت الحل بفضل الله من أحد المنتديات وأحببت مشاركته مع اخواني الاعزاء في هذا المنتدى العظيم لعله ينفع : Option Explicit Sub GetDataDemo() Dim FilePath$, FileName$, i& Const SheetName$ = "Form" Application.ScreenUpdating = False For i = 9 To Cells(Rows.Count, "C").End(xlUp).Row FilePath = Left(Cells(i, "C"), InStrRev(Cells(i, "C"), "\")) FileName = Mid(Cells(i, "C"), InStrRev(Cells(i, "C"), "\") + 1) Cells(i, "G") = GetData(FilePath, FileName, SheetName, "$C$73") Cells(i, "H") = GetData(FilePath, FileName, SheetName, "$E$42") Cells(i, "I") = GetData(FilePath, FileName, SheetName, "$E$73") Next i End Sub Private Function GetData(Path, File, Sheet, Address) Dim Data$ Data = "'" & Path & "[" & File & "]" & Sheet & "'!" & _ Range(Address).Range("A1").Address(, , xlR1C1 GetData = ExecuteExcel4Macro(Data)

جزاك الله خيراً اخي الكريم ولكن ليس هذا ما اريده ... ممكن اعمل ربط مباشر بالملفات ولكن هذه القيم "الوصلات " متغيرة وليست ثابتة كما انها تبلغ 32154 صف "ملف" لو ممكن كود يعالج الموضوع بحيث يتعامل مع الوصلة: C:\Docs\2011\Dec-201313\files\330909 Dec-13.xlsm ويدرج عليها اسم الورقة والخلية اكرر الشكر والدعاء لك.

السلام عليكم ورحمة الله وبركاته ارجو التكرم والمساعدة بادراج معادلات في الاعمدة الثلاثة الموضحة بالملف المرفق بالاكواد يكون افضل. وجزاكم الله خيراً. Book1.zip

أخي الفاضل محمود جزاك الله خيراً على هذا العمل الرائع. هل من الممكن شرح هذه المعادلة لمبتدئ مثلي: IF(ISERROR(FIND(ADDRESS(ROW(),MOD(COLUMN()-1,4)+1,4),CHOOSE(MID(TEXT($T$1,"0000"),INT(COLUMN()/4)+1,1)+1,"A1A2A3A4A5B1B5C1C2C3C4C5","C1C2C3C4C5","A1A3A4A5B1B3B5C1C2C3C5","A1A3A5B1B3B5C1C2C3C4C5","A1A2A3B3C1C2C3C4C5","A1A2A3A5B1B3B5C1C3C4C5","A1A2A3A4A5B1B3B5C1C3C4C5","A1B1C1C2C3C4C5","A1A2A3A4A5B1B3B5C1C2C3C4C5","A1A2A3B1B3C1C2C3C4C5"))),"","*")

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

السلام عليكم ورحمة الله وبركاته أخي الحبيب يوسف وأخي الحبيب khhanna جزاكم الله خيراً واحسن إليكم وجعله في ميزان حسناتكم...أعمال اكثر من رائعة ويكفينا نعلم ان أحداها بتوقيع استاذنا ومعلمنا الفاضل محمد طاهر حفظه الله ورعاه. عندي سؤال أرجو منكم الاجابة عليه: هل من الممكن عمل نفس ملف الاكسيل لينفذ على الاصدار 2010 وهل يمكن عمل ملف الريجيستري بيعمل تحت ويندوز 7 وأوفيس 2010 وأكرر شكري الجزيل وجزاكم الله خيراً

فكرة رائعة أخي أبو حنين جزاك الله خيراً

جزاك الله خيراً ونفعنا وإياك بهذا العمل الرائع

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

السلام عليكم ورحمة الله وبركاته طيب شؤال آخر .. هل من الممكن عمل لك أم إنه مستحيل أو غير ممكن حتى أبحث عن طريقة أخرى. لأني أعتقد أنني لو لم أجد الحل عند أوفيسنا فليس من الممكن إجاده في مكان آخر. أرجوكم أفيدوني ... وجزاكم الله خيراً

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

السلام عليكم ورحمة الله وبركاته إخواني الكرام حاولت عمل التالي ولكنني فشلت ... وأول ما فكرت به هو طلب المساعدة من منتدى العمالقة: الشيت به البيانات كما يلي من ميزان المراجعة والمطلوب إعادة تويبها على شكل شجرة محاسبية كما هو موضح بالشيت الثاني. وأنا تحت أمركم في حالة اي ايضاحات. يا ريت يكون زر أمر يستورد البيانات من صفحة الميزان ويعملها شجرة في صفحة فاضية أرجوكم المساعدة العاجلة يا إخواني وشكراً. tree.rar

جزاكم الله أخيراُ وقمت بتفيير اسمي للعربية

أخي واستاذي الحبيب طارق جزاك الله خيراً على اهتمامك وعلى وقتك جربت الكود ولكنه لم يحدث البيانات لكن وبعدين لاحظت إنه لازم يفتح المصدر وبعدين يعطيني رسالة هل تريد حفظ التغييرات في ملف المصدر عندما يتم اغلاقه هل من الممكن ان يتم الربط والتحديث والمصدر مغلق ولو ممكن تكمل جميلك معي تتكرم وتحل لي المطلوب في الملف المرفق. وجزاك الله خيراً أخي الحبيب Copy of Source.zip

السلام عليكم ورحمة الله وبركاته يوجد لدي محاولة ولكن ملف التقرير جعلت فيه شيت للمصدر ولكن المشكلة إنه بطيء جداً فهل من الممكن المساعدة في تسريع القيد وجعله أكثر كفائة وضغطه لأقصى حد ممكن؟ أرجو المساعدة السريعة منكم وجزاكم الله خيراً الكود: Private Sub CommandButton2_Click() On Error Resume Next If CommandButton2.Caption = "ImportData" Then khaledo = MsgBox("Would you like to update source links before proceeding?", vbYesNo, " Reporting Sys-BTC") If khaledo = vbYes <> "" Then ThisWorkbook.UpdateLink ("C:\Source\source.xls") Select Case CommandButton2.Caption Case Is = "ImportData" Call Khaledo1 CommandButton2.Caption = "ClearData" Case Is = "ClearData" Call khaledo2 CommandButton2.Caption = "ImportData" End Select If khaledo = vbNo Then Select Case CommandButton2.Caption Case Is = "ImportData" Call Khaledo1 CommandButton2.Caption = "ClearData" Case Is = "ClearData" Call khaledo2 CommandButton2.Caption = "ImportData" End Select End If End If End Sub Sub Khaledo1() Sheets("SAPBW70_DOWNLOAD").Select Application.EnableEvents = False Application.ScreenUpdating = False Dim i If Range("S8") = "" Then For i = 7 To 1250 With Range("r7") .Formula = "=VLookup(b7,'GL Mapping'!$c:$e,3,False)" With .Resize(Range("r" & i).End(xlUp).Row) .FillDown .Copy .PasteSpecial xlPasteValues End With End With Next End If If Range("S8") = "" Then Range("r8:r1250").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("s8"), Unique:=True Range("S8").ClearContents End If Dim ddd For ddd = 8 To 200 With Range("t9") .Formula = "=SUMIF($R$7:$R$1250,$S9,$e$7:$e$1250)" With .Resize(Range("t" & ddd).End(xlUp).Row - 1) .FillDown .Copy .PasteSpecial xlPasteValues End With End With Next Dim CC For CC = 8 To 200 With Range("u9") .Formula = "=SUMIF($R$7:$R$1250,$S9,$f$7:$f$1250)" With .Resize(Range("u" & CC).End(xlUp).Row - 1) .FillDown .Copy .PasteSpecial xlPasteValues End With End With Next Dim EE For EE = 8 To 200 With Range("v9") .Formula = "=SUMIF($R$7:$R$1250,$S9,$g$7:$g$1250)" With .Resize(Range("V" & EE).End(xlUp).Row - 1) .FillDown .Copy .PasteSpecial xlPasteValues End With End With Next Application.EnableEvents = True Application.ScreenUpdating = True Range("c1").ClearContents 'Range("a1").Select Sheets("FS 2012 new").Select End Sub Sub khaledo2() Sheets("SAPBW70_DOWNLOAD").Select Range("R8:AE1250").ClearContents Range("A1").Select Sheets("FS 2012 new").Select

السلام عليكم ورحمة الله وبركاته إخواني أحتاج انجاز هذا الملف بشكل عاجل فقد حاولت فيه ولكنني فشلت ودائماً بفضل الله أجد عندكم الحلول: المطلوب استيراد بيانات من ملف اسمه Source إلى ملف آخر اسمه Report Source فيه صفحتين الأولى عبارة عن تبويب للثانية والخلاصة أو الملخص يتم تصديره الخلاصة : إني افتح ملف Report واكبس الزر يتم استيراد البيانات من ملف Source بشرط وجوده طبعاً وجزاكم الله خيراً jg.zip

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