gamalin

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

all.rar

الحمد لله تم انجاز المطلوب بالفلتر المتقدم على مرحلتين

ارجوا من الاخوة المشرفين

ان يحاولوا المساعدة في هذا للاهمية

شاكر لكم

ارجوا ان يكون الطلب واضح

الاخوة الافاضل

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

اريد عمل تقرير

يجمع البيانات من الشيتين

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

و يراعي التقرير الفترة بين تاريخين على تاريخ حق الشيك

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

شكل التقرير المطلوب بشيت التقرير

هل يمكن عمل ذلك بالفلتر المتقدم

او بالبيفوت تابل او اي اداة اخرى

متابعة اوراق.rar

عند عمل import data  من ملف نص
وتسجيل الحركات بالماكروا لاعادتها مرة اخرى
يسجل الماكرو مسار الملف النصي في الكود
ويظل يجلب البيانات منه حتى بتغيير موضع ملف الاكسل
هل يمكن تعديل الكود
ليجلب البيانات من الملف النصي الموجود في نفس الفلدر وليس في المسار الاصلي

لاستخدام الملف نفسه مع مجموعات متشابه في الاسم من الملفات النصية ؟
 

  Sheets("1").Select
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;D:\2013\ãæÇÒíä ÊÍáíáíå\01.TXT", Destination:=Range("$A$1"))
        .Name = "01"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 1256
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileOtherDelimiter = ":"
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
        1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 _
        , 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With

الملف اهه

ارجو سرعة الرد

el-destor cash.rar

ارجو الاهتمام هل لترحيل التاريخ حاله خاصة

هل هناك حل للمشكلة اعلاه

مع العلم ان الخانة التي بها التاريخ هي e3

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

ومنها تاريخ الاذن

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

مرفق كود الترحيل المستخدم

Sub post1()

Application.ScreenUpdating = False

On Error Resume Next

    Sheets("ÍÝÙ ÇáÈíÇäÇÊ").Visible = True

    Set myRng1 = Range("b3,e3,a2,b4,b8,b5,b6,b7,d7,f7,b9")

     If [b3] > 0 And [b5] > 0 And [b8] <> "" And [b6] <> "" Then

With Sheets("ÍÝÙ ÇáÈíÇäÇÊ")

N = .Cells(.Rows.Count, "A").End(xlUp).Row + 1

For R = 1 To 11

               .Cells(N, R) = myRng1.Areas®

Next

End With

Else

Application.ScreenUpdating = True

MyAnswer = MsgBox("íÌÈ ÇßãÇá ÇÏÎÇá ÇáÈíÇäÇÊ   -   áã íÊã ÇáØÈÚ Çæ ÇáÍÝÙ", vbOK, "ãØáæÈ ÇáÅßãÇá")

End

End If

    Sheets("ÍÝÙ ÇáÈíÇäÇÊ").Visible = False

End Sub

الاخوة الكرام جزاكم الله خيرا لدي نفس المشكلة

وقمت بتعديل اللغة داخل صفحة  الكود وبالفعل ظهرت الكتابة عربي والحمد لله

لكن عند استخدام الكود في شيت الاكسل تظهر برضة النتائج غير عربية  وغير مقرؤة

فهل هناك حلول اخرى

ارجوا الرد من احد المشرفين حملت اللغة للاوفيس

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

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

الخط العربي اللي في الكود في النتيجة في صفحة الاكسل غير عربي

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

ولا يقرأ الاكواد القديمة المكتوبة بالعربي

جزاك الله خيرا

الاخوة الافاضل

ارجوا سرعة الرد

لدي ملف للتفقيط

حاولت استخدامه مؤخرا في اكسل 2007 ووجدت الكلمات العربية غير مفهومة يرجى

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

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

احاول اوضح اكثر المشكلة

بفرض انه ورد الي مبلغ محول من عميل 105012 مثلا واريد ان اعرف هذا المبلغ يسدد اي فواتير له

وكانت مبالغ الفواتير كما يلي

4012

1000

5000

10000

100000

اريد دالة او معادلة تبحث في احتمالات التباديل لتعطيني احتمالات المجاميع ليكون الاجابة مثلا في المثال اعلاه ان المبلغ يمكن ان يكون مجموع 4012 +1000 + 100000

السادة اعضاء ومشرفي قسم الاكسل

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

مثال لدي ارقام 1 و 5 و 8 و 15 و 1.3 و 7 مثلا

هل توجد معادلة

تخبرني ان الرقم 9.3 هو ناتج جمع 8+1.3

هل يمكن التوصل الى اي صيغة تحل هذا اللغز علما بان هذا مثال مبسط لكني احتاجه مع عدد كبير من الارقام ولعديد من الحالات وليس بهذه البساطة

ارجوا ان يكون الشرح والاستفسار واضح

ارجوا لمن يعرف حلا ان يراسلني على الايميل

m.gamalin@medstar-misr.com

الاخوة الافاضل

لدي مشكلة في الكود التالي لا اعرف سببها

Sub fifo_all()

Sheets("sale").Activate

Dim salrows As Integer

salrows = Range("a1048576").End(xlUp).Row

For r = 2 To salrows

'For r = 2 To 37078

Application.Run "!FIFO1"

Next r

End Sub

الكود يتوقف ولا يعمل عند تعريف المتغير salerows السطر بالاحمر ويقبل وكمل العمل اذا اوقفته وكتبت بدلا من المتغير الرقم في دورة for

علما بانه بالوقوف على كلمة salerows بالسطر الاصفر عند توقف الكود يكتب salerows = صفر على الرغم من عند الوقوف بالماوس على الطرف الاخر من المعادلة يعطي القيمة 37078

مشكلة اخرى

بالكود التالي

r = Sheets("sale").Cells(1, 10).Value + 1

الكود يعمل بكفاءة حتى يصل الى سطر معين

في الشيت والعداد يعمل لينتقل الى السطر الذي يليه ثم يتوقف عند السطر 32767 في كل مرة

ولا اعلم لماذا ويعطي نفس الخطأ السابق ان قيمة المتغير r = صفر علما بانه يعمل في كل الاسطر السابقة

قراءت هذا الموضوع الغريب

وهو عند تغير اسم اى فولدر اوملف

وكتابة con

لايتغير اسم الفولدر

لان con هى كن

والله فقد هو الذى يقول لاشئ كون فيكون

سبحان الله

جرب بنفسك

برجاء الرد

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

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

ليست دلاله على شي وان وجدت ولو ان الاخوة الافاضل اكدوا انها ايضا ليست حقيقه

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

تحياتي

السلام عليكم

اخي

كان الافضل ارسال ملف و لكن لتفهمي ما تريد

ارسل مثالا قد يساعدك جربه و ارسل الملاحظات

تحياتي

جزاك الله خيرا اخي الكريم هو المطلوب

ومثال رائع

السلام عليكم

ممكن عن طريق دبل كليك علي الرقم في عمود الكمية

تحفز الكود التالي

أو ضعه في حدث الورقة

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

rr = Target.Row: cc = Target.Column

t = Target.Value: p = Target.Offset(0, -1).Value

If rr < 5 Or cc <> 6 Or t = "" Or p = "" Then Exit Sub

On Error Resume Next

Set price = Range("M7: O14")


a = WorksheetFunction.VLookup(Cells(rr, cc - 1).Value, price, 2)

b = WorksheetFunction.VLookup(Cells(rr, cc - 1).Value, price, 3)



Cells(rr, cc + 1).Value = a

Cells(rr, cc + 3).Value = b


Cells(rr, cc + 2).Value = a * t

Cells(rr, cc + 4).Value = t * (a - b)

End Sub

أو حمل المرفق

ثم ضع اي رقم في عمود الكمية

ثم دبل كليك علي الرقم

تركت اول صف بالمعادلات للمرجع

ويمكنك طبعا تلغيها

ممتع سهل وبسيط وراااااااااائع جزاك الله خيرا وزادك من علمه ونفعك بما تعلم ونفع بك

الاخوة الافاضل اريد حذف الخلايا التي ليس بها بيانات من سطر يحتوي على خلايا كثيرة فارغة واخرى بها بيانات

فهل يمكن اجراء ذلك بالكود لتصبح الخلايا التي بها بيانات متجاورة

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

أخي العزيز

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

تحياتي

أبو عبدالله

جزاك الله خيرا

اخي الكريم ابو عبد الله

واشكر اخي طارق على اهتمامه

جزاكما ربي الخير الكثير وزادكما علما ونفعكما بما تعلما

السلام عليكم

أخي جمال

حاول ترسل نسخة من الملف

طبعا بعد ضغطه ببرنامج

Winzip

أو

Winrar

موضوعات التنمية البشرية .rar

الاخوة الافاضل

لدي ملف به عدد من الخلايا تحتوي على روابط لصفحات انترنت

واحتاج الى عمل فهرسة لهذه الروابط ولاتعامل معها

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

ولكثرة هذه الخلايا احتاج الى كود او وظيفة تتعامل مع الهيبرلينك وتحضر العنوان وكذلك النص للعرض text to display & address

اتمنى ان يكون الطلب واضح

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

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