حاتم مبروك

للرفع

جمعة مباركة UP

السلام عليكم ورحمة الله وبركاته اساتذتي الكرام اسعد الله اوقاتكم بكل بخير و صحة اريد مساعدتكم في الملف المرفق حيث انه يوجد شيت (home ) ويعتبر الشيت الرئيسي وشيت ( west ) الشيت الذي يتم نقل البيانات منه الى الشيت الاول يوميا لانه متغير كل يوم اقوم بلصقه ولا يتغير به الا الارقام فقط او الكود , المطلوب بعد اذنكم وضع معادلة ثابته او كود ينقل البيانات معرف بكود المعرض مثاله ( fo3 ) بمجرد ان اقوم بنسخ شيت المنطقة الغربية الذي يصلني واقوم بنسخه في شيت ( west ) كما هو وتنتقل الارقام الى الخانات الموجوده في شيت ( home) لانني قمت بعمل = في الخانه المطلوب نقلها كما هو موضح في الشيت بمعنى كود fo3 مبيعات carpet الهدف السنوي له ( target ) 6666 والمحقق حتى الان 2382 هل يوجد معادلة ثابته او كود اضعه في شيت ( home ) تقوم بسحب البيانات عن طريق الكود من الشيت الذي يتم تغيره يوميا بمجرد ما اقوم بنسخ الشيت الخارجي واقوم بالصاقه في شيت ( west ) تنتقل المعلومات ولكم جزيل الشكر والتقدير محاولة ترحيل بيانات.rar

ماشاءالله تبارك الله يعطيك العافية استاذ رجب ويوفقك شكرا على الابداع

الله يعطيك العافية ابو حنين دائما مبدع ماشاء الله تحياتي

اخوي رفعت جزاك الله خير الجزاء

الاخ احمد عبدالناصر جزاك الله خير عمل رائع ومفيد

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

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

جزاك الله خير ابو محمد الله يعطيك العافية

اشكرك يا استاذ شوقي وبارك الله فيك عمل رائع

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

عمل رائع ماشاء الله وجزاك الله خير

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

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

السلام عليكم ورحمة الله وبركاته الاساتذة الكرام استخدمت الكود الموجود في ملف الاستاذ سعيد بيرم والاستاذ حمادة عمر والكود عبارة عن استعلام بالرقم او الكود ولكن اريد تغيرة الى استعلام بالاسم وهذا هو الكود وجزاكم الله خير Private Sub ComboBox1_Change() Set sh2 = Sheets("معارض ") LR = sh2.[d2000].End(xlUp).Row For Each cl In sh2.Range("A2:u" & LR) If Me.ComboBox1.Text = cl Then Me.TextBox21 = cl.Offset(0, 0) Me.TextBox1 = cl.Offset(0, -3) Me.TextBox2 = cl.Offset(0, -2) Me.TextBox3 = cl.Offset(0, -1) Me.TextBox4 = cl.Offset(0, 1) Me.TextBox5 = cl.Offset(0, 2) Me.TextBox6 = cl.Offset(0, 3) Me.TextBox7 = cl.Offset(0, 4) Me.TextBox8 = cl.Offset(0, 5) Me.TextBox9 = cl.Offset(0, 6) Me.TextBox10 = cl.Offset(0, 7) Me.TextBox11 = cl.Offset(0, 8) Me.TextBox12 = cl.Offset(0, 9) Me.TextBox13 = cl.Offset(0, 10) Me.TextBox14 = cl.Offset(0, 11) Me.TextBox22 = cl.Offset(0, 12) Me.TextBox23 = cl.Offset(0, 13) Me.TextBox24 = cl.Offset(0, 14) Me.TextBox25 = cl.Offset(0, 15) Me.TextBox26 = cl.Offset(0, 16) Me.TextBox27 = cl.Offset(0, 17) '=========== 'For ii = 4 To LR 'For i = 1 To 22 'If Me.ComboBox1.Text = .Cells(ii, 4).Value Then Dim MyPick MyPick = ThisWorkbook.Path & "\" & Int(ComboBox1.Value) & ".JPG" If Right(MyPick, 1) <> "\" Then On Error GoTo 1 Image1.Picture = LoadPicture(MyPick) Else 1: Image1.Picture = LoadPicture(ThisWorkbook.Path & "\M.JPG") Exit Sub End If End If Next End Sub 'Private Sub ComboBox1_Click() 'With Sheets(Label28.Caption) ' LR = .[d2000].End(xlUp).Row ' For ii = 4 To LR ' ' For i = 1 To 22 ' If Me.ComboBox1.Text = .Cells(ii, 4).Value Then ' Me.Controls("TextBox" & i).Value = .Cells(ii, i).Value ' End If ' Next 'Next 'End With ''TextBox4.Value = ComboBox1.Value: TextBox21.Value = CDate(TextBox21) ''TextBox5.Value = CDate(TextBox5): TextBox7.Value = CDate(TextBox7) ''TextBox8.Value = CDate(TextBox8): TextBox11.Value = CDate(TextBox11) 'Dim MyPick ' MyPick = ThisWorkbook.Path & "\" & Int(TextBox1.Value) & ".JPG" ' If Right(MyPick, 1) <> "\" Then ' On Error GoTo 1 ' Image1.Picture = LoadPicture(MyPick) ' Else '1: ' Image1.Picture = LoadPicture(ThisWorkbook.Path & "\M.JPG") ' Exit Sub 'End If 'End Sub

سلمت يداك يا استاذ ابو حنين فعلا انت رجل مبدع الله يوفقك ولكن مجرد سؤال لو وجد في المعرض الواحد اكثر من عامل او سائق او محاسب كيف يكون الاستعلام وجزاك الله خير الجزاء

الاستاذ عبدالله المجرب رأيك على عيني وراسي بس المشكله اني غير متمكن في الاكسس يعني مستحيل تظهر في الفورم ؟ اذا مستحيل ظهورها في الفورم ح اربطها في ماكروا وتظهر من الملف من غير ظهورها في الفورم

up

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

up

اسف هذا الملف استعلام عن المخزون.rar

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

بارك الله فيكم

الف مبروك والى الامام وربنا يزيد من العلم والمعرفة