محمد مصراوى

اين انتم اخوتى

اشكرك اخى على سرعة استجابتك لى

ولكن نفس المشكلة debug

فى سطر الاخفاء

وسوف ارفق الملف لكى يظهر لك

وشكرا لك اخى

t.rar

السلام عليكم

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

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

وهذا هو الكود

Private Sub Worksheet_Calculate()

Application.ScreenUpdating = False

For Each cell In Range("k10:k49")

If cell.Value = 0 Then

cell.EntireRow.Hidden = True

End If

Next cell

Application.ScreenUpdating = True

End Sub

فماذا افعل برجاء افادتى فى هذا الكود

" ملحوظة "

هل المعادلات تؤثر على الكود ام لا لاننى شيلت المعادلات وخليت قيمة الخلية تساوى صفر فاشتغل الكود

وشكرا

بارك الله لنا فيك وجزاك عنا خيرا

بصراحة تسلم ايدك

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

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

قاعدة if الشرطية جميلة

بصراحة عمل فى غاية الابداع

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

ويارب نخرج مثل هذا العمل ان شاء الله

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

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

لى طلب ارجو افادتى فية

شرح الاكواد التى قمت بعملها

Application.ScreenUpdating = False

For E = 19 To 25

If Cells(E, 1).Value > 0 Then

Y = Y + Cells(E, 1).Count

End If

Next

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

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

T = 18

For R = 1 To 7

For M = 1 To Y

.Cells(N - 1 + M, R) = myRng1.Areas®

.Cells(N - 1 + M, 8) = Cells(T + M, 7)

.Cells(N - 1 + M, 9) = Cells(T + M, 3)

.Cells(N - 1 + M, 10) = Cells(T + M, 5)

.Cells(N - 1 + M, 11) = Cells(T + M, 1)

.Cells(N - 1 + M, 11 + R) = myRng2.Areas®

Next

Next

End With

لانى محتاج فعلا افهم الترحيل ولكنى لست دارس لل v.b

هذا لينتفع به جميع الاخوة

بصراحة عمل رائع

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

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

تسلم ايدك

بارك الله فيك وجزاك خيرا

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

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

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

شكرا

شكرا اخى هادى على تعبك ويارب دائما نستفيد منك

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

كل عام وانتم جميعا بخير وعيد سعيد على كل المسلمين

Masrawy_online@hotmail.com

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

وتسلم ايدك ياباشا

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

شكرا اخى هادى

انا قرأت الموضوع اثناء بحثى ولكنة ليس مرادى

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

ملحوظة : الملف الموجود به الشرح هو test1

new.rar

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

السلام عليكم

اية يا جماعة انا طلباتى كثيرة ولا ملهاش حل

ياريت احد يفيدنى ويفيد الاخرين من الاخوة الاعزاء

السلام عليكم اخوتى جميعا

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

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

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

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

ومرفق ملف به توضيح

مع العلم اخوتى ان الملفات تكون مغلقة وهو يقوم بفتحها

وسؤال اخر كنت اشرت الية فى مشاركة قبل ذلك ولم يرد على احد ولم ارد ادراج مشاركة جديدة بنفس المطلوب وهو كيفة كتابة الحروف الاولى وهو يعطى باقى الاسم لكى يتم اختيار الصنف لان الاصناف كثيرة مع ملاحظة اننى استخد هذة الخلية (المختار منها اسم الصنف) لكى يحدد سعر هذا الصنف فى فاتورة وهذة الخلية عبارة عن قائمة منسدلة

وشكرا لكم جميعا

test.rar

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

هل من مغيث

ياريت حد يشوف حل يا اخوتى

اين انتم

اشكرك اخى ابو اكرم

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

مع الشرح ارجوك

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