عبدالله باقشير

السلام عليكم فورم للبحث عن بيانات وارجاع البيانات في الخلية النشطة مع امكانية اختيار الخلية والفورم مفتوح طلب للاخ/ aazsubbah http://www.officena.net/ib/index.php?showtopic=29842 بحث مع نسخ بيانات.rar

السلام عليكم بعد اذن اخي الحبيب هادي سالم الاسم KH_SHEET_NAME يحتوي على المعادلة التالية: =MID(CELL("filename";INDIRECT("A1"));SEARCH("]";CELL("filename";INDIRECT("A1")))+1;LEN(CELL("filename";INDIRECT("A1")))-SEARCH("]";CELL("filename";INDIRECT("A1")))) اذا وضعت هذا الاسم في اي خلية في اي ورقة في المصنف يعطيك اسمها. شاهد المرفق اسم ورقة العمل بالمعادلات.rar

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

السلام عليكم للورقة اسمين: الاول : يسمى CODENAME وهو مايسمى في النسخة الانجليزية عند فتح ملف جديد sheet1 sheet2 sheet3 وهو مايسمى في النسخة العربية عند فتح ملف جديد ورقة1 ورقة2 ورقة3 الثاني الاسم الظاهر امامك اسفل المصنف والذي نقوم بالتعديل علية =========================== اثناء استخدامك CODENAME يكون الكود Range("O7").Select.ورقة1 والثاني Worksheets("add").Range("O7").Select

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

السلام عليكم انا استخدم اوفيس 2003 ولا يوجد عندي اوفيس 2007 جرب التعديل في التالي: غير الكود الممائل لهذا الكود في فورم البحث بالتالي: Private Sub UserForm_Activate() Dim C As Integer, R As Integer Dim My_path As String, K As String Set MyRange = Range("MyRange_Find") Comb_Find_Fill.Clear Comb_Find_Fill.AddItem "بحث في جميع الملفات ON " With MyRange For C = 1 To .Rows.Count If .Cells(C, 4).Text = "ON" Then K = .Cells(C, 1).Text My_path = ActiveWorkbook.Path & "\" & K If Not Dir(My_path, vbDirectory) = vbNullString Then Comb_Find_Fill.AddItem K Comb_Find_Fill.List(R + 1, 1) = .Cells(C, 2) Comb_Find_Fill.List(R + 1, 2) = .Cells(C, 3) R = R + 1 If Workbook_Open(K) = False Then OpenFill My_path End If End If End If Next C End With Comb_Find_Fill.Text = Comb_Find_Fill.List(0) Check_Button_Find.Value = False End Sub حيث قمت بازالة نوع الملف من المتغير K وفي عمود اسماء الملفات اضف نوع الملف لتسمية الملف مثلا: Class1.xls KHBOOR.xlsx جرب الطريقة دي واخبرنا بالنتيجة

السلام عليكم لو فرضنا ان اسم الورقة KHBOOR ضع هذا الكود في حدث ThisWorkbook Sheets("KHBOOR").ScrollArea = Range("A1:BF75").Address ثم اغلق الملف وقم بفتحه مرة اخرى

السلام عليكم فعلا لا يقبل اكثر من 14 نطاق area في ظل اسم واحد والنطاق ممكن يكون خلية واحدة او عدة خلايا مرتبة في صفوف او اعمدة ============================ السؤال هو لاي غرض تريد التسمبة بما اوردت حتى نعمل لك حلول اخرى للغرض الذي تريده

السلام عليكم الشكر واصل لجميع المشاركين الاخ/ obad65 في هذا الكود لفورم البحث Private Sub UserForm_Activate() Dim C As Integer Comb_Find.AddItem "بحث في جميع اوراق العمل" For C = 1 To ActiveWorkbook.Sheets.Count Comb_Find.AddItem ActiveWorkbook.Sheets(C).Name Next Comb_Find.Text = Comb_Find.List(0) End Sub في هذه الجزئية Comb_Find.Text = Comb_Find.List(0) حدد الاندكس للورقة التي تريدها او اكتب اسم الورقة مثلا: Comb_Find.Text = "بيانات اساسية"

السلام عليكم اخي كنانة مشكلتك الاساسيةهي التنسيقات للصفوف المستقبلية لاوراق العملاء وعملية فصل العملاء بملف احد لن تحل مشكلة زيادة حجم الملف ولوتلاحظ ملف العميل فيه عميل واحد فقط وحجمه تجاوز kb1500 الحل يكمن في ازالةالتنسيقات المستقبلية واضافتها اول باول حسب وجود البيانات في الصفوف مرفق ملف فيه فكرة تخفيف الحجم مع الاحتفاظ بالمعادلات الاحصائية بطريقة حديثة هي في المرفق ادناه ملف للفاتورة زايدا عميلين ولم يتجاوز 160 على فكرة انا استخدم ملف واحد لبرنامج محاسبي فيه حوالي 400 حساب فوق الاوراق الرئيسية للعمل وهي تسع اوراق ومازلنا نضيف حسابات اخرى وحجه لا يتجاوز kb4000 [ فاتورة2.rar

السلام عليكم ترحيل فاتورة من ملف خاص الى ملف العملاء طلب الاخ khanna 1فاتورة.rar

السلام عليكم عدم ترك خلية في العمود فارغة اعلى الصف بالكود و بمعادلة في التحقق من الصحة Private Sub Worksheet_Change(ByVal Target As Range) Dim R As Integer, C As Integer If Target.Column = 2 And Target.Row > 2 Then If Target.Value = "" Then GoTo 1 R = Target.Row - 1 C = Application.WorksheetFunction.CountA(Range("B3:B" & R)) If R - 2 <> C Then MsgBox "خلايا اعلى الصف فارغة", vbCritical + vbMsgBoxRtlReading, "استخدام خاطىء" Target.ClearContents Range("B" & C + 3).Activate End If End If 1 End Sub عدم ترك خلية فى العمود فارغة.rar

السلام عليكم عدم ترك خلية في الصف فارغة يمين العمود بمعادلة في ( التحقق من الصحة ) طلب للاخ دغيدي عدم ترك خلية فى الصف فارغة.rar

السلام عليكم تفضل المرفق 1فاتورة.rar

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

السلام عليكم اذا كنت تقصد بشاشة الادخال فورم طباعة سندات من فورم بتجديد عدد النسخ المطلوبة واخفاء الزرارات من الفورم اثناء الطباعة Private Sub CommandButton3_Click() On Error Resume Next Dim Kh_Count As Integer Dim Kh_Comm As Integer If MsgBox("هل تريد طباعة السند رقم " & Combo_NO.Value, vbYesNo + vbQuestion + vbMsgBoxRight, "تأكيد طباعة ") = vbYes Then Kh_Count = InputBox("فضلاً أدخل عدد نسخ الاوراق الذي تريدها " & Chr(13) & Chr(13) & "الافتراضي نسخة واحدة", "عدد النسخ", "1") '================================== 'اخفاء الزرارات من السند اثناء الطباعة For Kh_Comm = 1 To 3 Me.Controls("CommandButton" & Kh_Comm).Visible = False Next Kh_Comm '================================== Me.Hide '================================== 'عدد النسخ المطلوبة Do Until Kh_Count = 0 Me.PrintForm Kh_Count = Kh_Count - 1 Loop '================================== End If End On Error GoTo 0 End Sub تفضل المرفق طباعة فورم.rar

السلام عليكم قبل حماية الورقة من تنسيق / خلايا حماية شيك على مخفية

السلام عليكم اجعل جميع الصفوف التي بها معادلات كنطاق للطباعة ثم اعمل تصفية للعمود A للمعيار بدون فراغات وقد اضفت العملية اعلاة بكود في حدث الورقة Report اذا تم تغيير القيمة في الخلية G6 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("G6").Address Then Selection.AutoFilter Field:=1, Criteria1:="<>" End If End Sub واضفت زر لاظهار الكل بالكود التالي Sub KH_ALL() Selection.AutoFilter Field:=1 End Sub تفضل المرفق test.rar

السلام عليكم بعد اذن اخي يحي حسين استخدم الصيغة التالية في الخلية D4 IF(COUNT($F$5:$F$300)=SUBTOTAL(2;$F$5:$F$300);"";SUBTOTAL(4;$F$5:$F$300)) تفضل المرفق ارجاع قيمة التصفية.rar

عمل رائع جدا جدا سلمت يداك و

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

الاخ الفاضل/ محمد صالح

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

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