Mohamed 188

السلام عليكم شكرا لحضرتك استاذنا الفاضل اشكرك يا استاذ / سليم

السلام عليكم استاذى الفاضل شكرا لحضرتك انا اريد عندما اختار عنصر من الكمبوكس مثلا Ship Mode تظهر فى قائمه الليست بوكس اللى تحتو عناصر ( Ship Mode) Second Class Standard Class First Class عندما اختار اى عنصر ثم فلتر تظهر فى قائمه الليست بوكس هذه العناصر فقط وشكر لحضرنك ارجو المساعده فى ذلك

السلام عليكم عند تشغيل الفورم يعطى رساله (Method range of opject ) الرجاء المساعده فى حل مشكله run time error 1004 - FILTER DATA (2).xlsm

للرفع

السلام عليكم الرجاء المساعدة فى ترحيل البيانات الى الشيت حتى يعمل الفورم بشكل صحيح System.xlsm

السلام عليكم الرجاء مساعدتى فى تصحيح خطا بالكود يعطى خطا فى هذا السطر 'Balance Qty 'Purchase Qty - 'Sales Qty .List(c, 6) = Val(.List(c, 2)) - Val(.List(c, 4)) If Val(.List(c, 6)) >= 1 Then 'Balance Amount 'Purchase Amount /Purchase Qty *Balance Qty .List(c, 7) = Val(.List(c, 3)) / Val(.List(c, 2)) * Val(.List(c, 6)) الرجاء المساعده وشكرا لحضرتك مرفق البرنامج برنامج1.xlsm

للرفع

السلام عليكم عمل ترقيم تلقائى تكست بوكس 1 يبدا ب 00001-01 Hotel reservation program00000001.xlsm

السلام عليكم يوزر فورم 6 عندما اضغط على الغرفة المشغولة يظهر الفورم فارغ الرجاء مساعدة عند الضغط على الغرفة الفارغة يظهر الفورم فارغ وعندما تكون مشغولة يملى الفورم تلقائى من شيت Database Hotel reservation program00000001.xlsm

السلام عليكم الرجاء مساعدتى فى تصحيح الخطا عند تشغيل الفورم يعطى رساله خطا LATIHAN - FILTER DATA.xlsm

للرفع

السلام عليكم هذا الكود يعطى رساله خطا compile error Block if without end if Private Sub CmdSaveChanges_Click() 'edit ThisWorkbook.Activate If Me.TextBox1.Value = "" Then If Me.TextBox2.Value = "" Then If Me.TextBox3.Value = "" Then If Me.ComboBox5.MatchFound = False Then '====check date entry '== dtval = Val(Format(Me.TextBox2.Value, "0")) mindt = 40909 maxdt = Val(Format(Date + 1, "0")) If dtval < mindt Then If dtval > maxdt Then End If With Sheet13 invs = Me.ComboBox5.Value invn = Me.TextBox1.Value fc = Application.WorksheetFunction.CountIfs(Sheet13.Range("C2:C5000"), invs, Sheet13.Range("B2:B5000"), invn) If fc < 1 Then: MsgBox " ÑÞã ÇáÍÑßÉ åÐÇ ÛíÑ ãæÌæÏ Çæ ãßÑÑ ÝÖáÇ ÊÇßÏ ãä ÇáÑÞã ", vbCritical, "FADEL NASSER ": Exit Sub confir = MsgBox("åá ÊÑíÏ ÍÝÙ ÇáÊÚÏíáÇÊ Úáì ÇáÍÑßÉ... ¿", vbOKCancel, "FADEL NASSER ") If confir = vbCancel Then: Exit Sub Application.ScreenUpdating = False Me.TextBox2.Text = .Cells(lastrow, "A").Value 'date Me.TextBox2.Text = Format(Me.TextBox2.Text, "yyyy/mm/dd") 'f date Me.TextBox1.Value = .Cells(lastrow, "B").Value 'invn Me.ComboBox5 = .Cells(lastrow, "C").Value 'invs Me.ComboBox1.Value = .Cells(lastrow, "D") 'customer Me.ComboBox6.Text = .Cells(lastrow, "E") 'wazalik Me.TextBox3.Text = .Cells(lastrow, "F") 'mandob name Me.Label24.Caption = .Cells(lastrow, "G") 'payment method Me.TextBox7.Text = .Cells(lastrow, "H") 'bank name Me.TextBox6.Text = .Cells(lastrow, "I") 'shiak _no If invs = shSupport.Range("j2").Value _ Or invs = shSupport.Range("j3").Value Then Me.TextBox3.Text = .Cells(lastrow, "F") 'madfoaat sanad Me.TextBox6.Value = .Cells(lastrow, "E") 'khasm ElseIf invs = Support.Range("J1").Value _ Or invs = Support.Range("J1").Value Then Me.TextBox3.Value = .Cells(lastrow, "F") 'discount bai3 and shera2 End If End With Me.TextBox2.Value = Format(Date, "yyyy/mm/dd") Me.TextBox1.Text = "" Me.ComboBox5.Text = "" Me.ComboBox1.Text = "" Me.ComboBox6.Text = "" Me.TextBox3.Text = "" Me.Label24.Caption = "" Me.TextBox7.Text = "" Me.TextBox6.Text = "" Me.ComboBox4.Value = invs Me.TextBox10.Value = invn CmdSearchHaraka_Click MsgBox " ÊãÊ ÚãáíÉ ÊÚÏíá ÇáÍÑßÉ ÈäÌÇÍ " Application.ScreenUpdating = True End Sub 01-00001.xlsm

شكرا لحضرتك أ / على المصرى

يعطى لون اصفر على السطر (fc = Application.WorksheetFunction.CountIfs(.Range("C2:C5000"), invs, .Range("B2:B5000"), invn Private Sub CmdSearchHaraka_Click() ThisWorkbook.Activate With Sheet02 invs = Me.ComboBox4.Value invn = Me.TextBox10.Value If invs = "" Or invn = "" Then: MsgBox "اختر نوع الحركة او اكتب رقم الحركة ", vbCritical, "FADEL NASSER ": Exit Sub (fc = Application.WorksheetFunction.CountIfs(.Range("C2:C5000"), invs, .Range("B2:B5000"), invn If fc < 1 Then: MsgBox " رقم الحركة هذا غير موجود فضلا تاكد من الرقم ", vbCritical, "FADEL NASSER " _ : Me.TextBox10.Value = "": Me.TextBox10.SetFocus: Exit Sub Application.ScreenUpdating = False .Range("$C$1:$I$2").AutoFilter Field:=2, Criteria1:=invs .Range("$B$1:$1$2").AutoFilter Field:=1, Criteria1:=invn lastrow = .Range("B5000").End(xlUp).row .Range("$A$2:$I$2").AutoFilter Me.TextBox2.Text = .Cells(lastrow, "A").Value 'date Me.TextBox2.Text = Format(Me.TextBox2.Text, "yyyy/mm/dd") 'f date Me.TextBox1.Value = .Cells(lastrow, "B").Value 'invn Me.ComboBox5 = .Cells(lastrow, "C").Value 'invs Me.ComboBox1.Value = .Cells(lastrow, "D") 'customer Me.ComboBox6.Text = .Cells(lastrow, "E") 'wazalik Me.TextBox3.Text = .Cells(lastrow, "F") 'mandob name Me.Label24.Caption = .Cells(lastrow, "G") 'payment method Me.TextBox7.Text = .Cells(lastrow, "H") 'bank name Me.TextBox6.Text = .Cells(lastrow, "I") 'shiak _no If invs = shSupport.Range("j3").Value _ Or invs = shSupport.Range("j2").Value Then Me.TextBox3.Text = .Cells(lastrow, "F") 'madfoaat sanad Me.TextBox6.Value = .Cells(lastrow, "E") 'khasm ElseIf invs = shSupport.Range("J1").Value _ Or invs = shSupport.Range("J1").Value Then Me.TextBox3.Value = .Cells(lastrow, "F") 'discount bai3 and shera2 End If End With If Me.Label24.Caption = shSupport.Range("J4").Value Then OptionButton3.Value = True If Me.Label24.Caption = shSupport.Range("J5").Value Then OptionButton4.Value = True If Me.Label24.Caption = shSupport.Range("J6").Value Then OptionButton5.Value = True Me.ComboBox5.Enabled = False Me.TextBox1.Enabled = False Application.ScreenUpdating = True End Sub 01-00001.xlsm

السلام عليكم عندما اختار اى عنصر من الكمبوكس لا تظهر فى الليست بوكس Dim r As Integer Sheets("Database").Activate If Me.LsAdAm.ListIndex = -1 Then MsgBox " No selection made" ElseIf Me.LsAdAm.ListIndex >= 0 Then r = Me.LsAdAm.ListIndex With Me .TxtBalance.Value = LsAdAm.List(r, 0) .TxtDeparture.Value = LsAdAm.List(r, 1) .TxtArrival.Value = LsAdAm.List(r, 2) .TxtRoomType.Value = LsAdAm.List(r, 3) .TxtRoomNo.Value = LsAdAm.List(r, 4) .TxtCompany.Value = LsAdAm.List(r, 5) .TxtGuestName.Value = LsAdAm.List(r, 6) .TxtFilio.Value = LsAdAm.List(r, 7) End With End If End Sub مرفق الملف الرجاء المساعده Book .xlsm