wahid-chaoui

السلام عليكم ورحمة الله تعالى وبركاته جربت دمج هذين الكودين ولم افلح اليكم الكودين 1 خاص بالورقة Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("d4")) Is Nothing Then If [a2] = 1 Then Application.ScreenUpdating = False If Target.Text = "ãÈíÚÇÊ" Then '--------------------------- Range("H4").Validation.Delete Range("H4").Validation.Add Type:=xlValidateList, Formula1:="=seller" [d5] = Application.WorksheetFunction.Max(Sheet3.Range("b5:b10000")) + 1 End If If Target.Text = "ãÔÊÑíÇÊ" Then [a1] = 2 Range("H4").Validation.Delete Range("H4").Validation.Add Type:=xlValidateList, Formula1:="=buyer" [d5] = Application.WorksheetFunction.Max(Sheet4.Range("b5:b10000")) + 1 End If End If If Target.Text = "ãÈíÚÇÊ" Then [a1] = 3 If Target.Text = "ãÔÊÑíÇÊ" Then [a1] = 2 End If If Not Intersect(Target, Range("h4:i4")) Is Nothing Then If Range("d4").Text = "ãÈíÚÇÊ" Then '--------------------------- Range("f5") = Application.WorksheetFunction.VLookup(Target, Sheet1.Range("q5:s5000"), 2, 0) Range("h5") = Application.WorksheetFunction.VLookup(Target, Sheet1.Range("q5:s5000"), 3, 0) End If If Range("d4").Text = "ãÔÊÑíÇÊ" Then '--------------------------- Range("f5") = Application.WorksheetFunction.VLookup(Target, Sheet1.Range("t5:v5000"), 2, 0) Range("h5") = Application.WorksheetFunction.VLookup(Target, Sheet1.Range("t5:v5000"), 3, 0) End If If [h4] = "" Then Range("f5") = "" If [h4] = "" Then Range("h5") = "" End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("e8:g32,b8:b32,f5,h5")) Is Nothing Then Cells(Target.Row, 1).Select If Not Intersect(Target, Range("f4")) Is Nothing And [a2] = 1 Then UserForm1.Show If Not Intersect(Target, Range("f4,h4")) Is Nothing And [a2] = 2 Then Cells(Target.Row, 1).Select If Not Intersect(Target, Range("d5")) Is Nothing And [a2] = 1 Then Cells(Target.Row, 1).Select End Sub 2 خاص بـ Combobox Dim a(), mémo, f Private Sub Worksheet_SelectionChange(ByVal Target As Range) Set f = Sheets("Mar") Set zSaisie = Range("D12:D35") If Not Intersect(zSaisie, Target) Is Nothing And Target.Count = 1 Then If mémo <> "" Then If IsError(Application.Match(Range(mémo), a, 0)) Then Range(mémo) = "" a = Application.Transpose(f.Range("a2:a" & f.[A65000].End(xlUp).Row)) Me.ComboBox1.List = a Me.ComboBox1.Height = Target.Height + 3 Me.ComboBox1.Width = Target.Width Me.ComboBox1.Top = Target.Top Me.ComboBox1.Left = Target.Left Me.ComboBox1 = Target Me.ComboBox1.Visible = True Me.ComboBox1.Activate mémo = Target.Address Else Me.ComboBox1.Visible = False End If End Sub Private Sub ComboBox1_Change() If Me.ComboBox1 <> "" And IsError(Application.Match(Me.ComboBox1, a, 0)) Then Set d1 = CreateObject("Scripting.Dictionary") tmp = UCase(Me.ComboBox1) & "*" For Each c In a If UCase(c) Like tmp Then d1(c) = "" Next c Me.ComboBox1.List = d1.keys Me.ComboBox1.DropDown End If ActiveCell.Value = Me.ComboBox1 End Sub Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) ComboBox1.List = Application.Transpose(f.Range("a2:a" & f.[A65000].End(xlUp).Row)) Me.ComboBox1.DropDown End Sub Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then If IsError(Application.Match(ActiveCell, a, 0)) Then ActiveCell = "" ActiveCell.Offset(1).Select End If End Sub facture.xls

tafkeet Ywmyat Mohasb .rar

اخي الكريم اليك هذا الملف وسف يعجبك كثيرا détail.xlsx

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

السلام عليكم ورحمة الله تعالى وبركاته عندي ملف الفاتورة واريد من اصحاب الخبرة التعديل في كود حركة الأصناف لكي يعمل الكود وجزاكم الله خيرا فاتورة جديدة7.xls

اليك الملف ترحيل الفاتورة فاتورة جديدة7.xls

في اعتقادي ان هناك حل للأزمة هو عدم ترحيل عمودي السعر والإجمالي فما رأيك

عند الأستدعاء المعدلات في F12 حتى آخر خلية مكتوب فيها بيانات تختفي

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

اخوتي الكرام الخلية A2 متغيرة و C2 ثابتة وتساوى 8 كيفية جعل الخلية A2 نشيطة بحيث عند كتابة رقم بدون الخروج منها يعطينا الناتج اي عند كتابة رقم 5 يعطينا الناتج مباشرة بدون الخروج منها واذا اضفنا لها عدد يصبح 25 الناتج يصير 25*8=200 وكذلك اذا اردنا ان نوسع العملية الى الصف 3 اي A3,C3,E3 فكيف يكون المنتديات.xls

السلام عليكم ورحمة الله تعالى وبركاته اخي الكريم الخلية A2 متغيرة و C2 ثابتة وتساوى 8 كيفية جعل الخلية A2 نشيطة بحيث عند كتابة رقم بدون الخروج منها يعطينا الناتج اي عند كتابة رقم 5 يعطينا الناتج مباشرة بدون الخروج منها واذا اضفنا لها عدد يصبح 25 الناتج يصير 25*8=200 وكذلك اذا اردنا ان نوسع العملية الى الصف 3 اي A3,C3,E3 فكيف يكون المنتديات.rar

السلام عليكم ورحمة الله تعالى وبركاته اما بعد اليكم الملف عند الترحيل يتم مسح البيانات والمعادلات وانا اريد مسح البيانات لا المعادلات وكذلك اريد التغيير في كود حركة الأصناف لكي يعمل وبارك الله فيكم مسبقا تم فصل المشاركة عن المشاركة القديمة حتى تلقى الإهتمام من الأساتذة -فيجب دائما رفع مشاركة مستقلة عند طلبك فاتورة جديدة7.xls

السلام عليم ورحمة الله تعالى وبركاته احبتنا في الله وجدت في هذا المنتدى ما احتاج اليه من علم ومعرفة ودروس لكنني مازلت مبتدئ ووجدت ملف احتاجه في عملي لكن لم اجد الحل لكي يرحل البيانات حسب كل صفحة عميل على انفراد ارجوا منكم المساعدة وبارك الله فيكم فاتورة جديدة7.xls

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

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