مهند محسن

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

وعليكم السلام بالتأكيد طبعا انه من الأمور المستحيلة

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

عامة كل ملفات الإكسيل عندما اقوم بفتحها تظهر هذه الرسائل كما ترى 1.xlsm

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

بارك الله فيك استاذى الكريم كما ترى هذه هى التعليمات لدى هل كده صحيح ؟

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

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

تفضل كشف حساب تجريبي.xlsx

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

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

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

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

السلام عليكم اساتذى وخبرائى رجاءا مساعدتى فى ضبط وتعديل هذا الكود بحيث يقوم بعرض نتائج البحث بين تاريخين وفى وجود شرط معهما فى الليست بوكس وجزاكم الله جميعا كل خير Private Sub CommandButton1_Click() Dim tarih1, tarih2: Dim ara As Range, LastRow As Long Dim s1 As Worksheet Application.Calculation = xlCalculationManual Application.ScreenUpdating = False Application.EnableEvents = False Set s1 = Worksheets("P-1") If TextBox1.Value = "" Or TextBox2.Value = "" Then MsgBox "You need to add the beginning and end dates", vbCritical, "" Exit Sub End If If ComboBox1.Value = "" Then MsgBox "Please choose a product from drop-down list", vbDefaultButton1, "" Exit Sub End If Call uzat tarih1 = CDate(TextBox1.Value) tarih2 = CDate(TextBox2.Value) ListBox1.Clear ListBox1.ColumnCount = 5 ListBox1.ColumnWidths = "30;140;80;70;80" LastRow = s1.Range("C" & Rows.Count).End(xlUp).Row For Each ara In s1.Range("C2:C" & LastRow) If ara >= tarih1 And _ ara <= tarih2 And _ ara.Offset(0, 1) = CStr(ComboBox1.Text) Then ListBox1.AddItem ListBox1.List(ListBox1.ListCount - 1, 1) = VBA.Format(ara, "dd.mm.yyyy") ListBox1.List(ListBox1.ListCount - 1, -1) = ara.Offset(0, -2) ListBox1.List(ListBox1.ListCount - 1, 0) = ara.Offset(0, -1) ListBox1.List(ListBox1.ListCount - 1, 2) = ara.Offset(0, 3) ListBox1.List(ListBox1.ListCount - 1, 3) = ara.Offset(0, 4) End If Next ara Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True Application.EnableEvents = True End Sub Private Sub CommandButton2_Click() Unload Me End Sub Private Sub CommandButton3_Click() TextBox1 = Empty: TextBox2 = Empty: ComboBox1 = Empty: ListBox1.Clear UserForm1.Height = 107 End Sub Sub uzat() Dim x, d, yuk, mak As Integer For x = 1 To 20 DoEvents If E = 0 Then d = d + 10 yuk = 242 End If UserForm1.Height = yuk + d Next End Sub Private Sub CommandButton4_Click() Dim sat As Long, sut As Integer, s2 As Worksheet Sheets("P-2").Range("A:E").ClearContents If ListBox1.ListCount = 0 Then MsgBox "There Aren't Data", vbExclamation, "" Exit Sub End If Set s2 = Sheets("P-2") sat = ListBox1.ListCount sut = ListBox1.ColumnCount s2.Range(s2.Cells(1, 1), s2.Cells(sat, sut)) = ListBox1.List MsgBox "Data Were Copied." End Sub Private Sub Date1_Click() Call SF_DatePick.DatePickinCtl(Me.TextBox1) End Sub Private Sub Date2_Click() Call SF_DatePick.DatePickinCtl(Me.TextBox2) End Sub Private Sub UserForm_Initialize() Dim x, a, b As Long, c As Variant Application.ScreenUpdating = False 'Unique Records For x = 3 To Cells(Rows.Count, 1).End(xlUp).Row If WorksheetFunction.CountIf(Range("A2:A" & x), Cells(x, 1)) = 1 Then ComboBox1.AddItem Cells(x, 1).Value End If Next 'Alphabetic Order For a = 0 To ComboBox1.ListCount - 1 For b = a To ComboBox1.ListCount - 1 If ComboBox1.List(b) < ComboBox1.List(a) Then c = ComboBox1.List(a) ComboBox1.List(a) = ComboBox1.List(b) ComboBox1.List(b) = c End If Next Next UserForm1.Height = 107 Application.ScreenUpdating = True End Sub Private Sub UserForm_Activate() UserForm1.Left = 100 UserForm1.Top = 20 End Sub Search Between 2 Dates.xlsm

عليك بعمل معادلات لكل كمبوبوكس منفصل ولماذا كل هذة الكمبوبوكس؟!!!!!!!!!! طالما ان البيانات واحدة

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

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

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

أخى الكريم وضح ما تريد بالضبط فانا لا أرى اى علامة ل Refresh هل تريد جلب الأسعار بناءا على الإسم بالمعادلات مثلا

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

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

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

اخى الكريم طلباتك كثيرة وليست سهلة كما تتصور وأتمنى ان يكون هناك حل من قبل الأساتذة والخبراء بارك الله فيك

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

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