خالدو

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

 

أنا عارف أن طلباتي كثرت

إذا ممكن استبدال التكست بوكس بكومبوبوكس الخاص بالصنف المطلوب - اسمه

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

إن لله ما أخذ وله ما أعطى وكل شيء عنده بمقدار.

أصبر واحتسب.... أعظم الله أجرك.

اللهم أغفر لميتنا واعفو عنه وتجاوز عن سيئاته وابدله أهلاً خيراً من أهله وداراً خيراً من داره.