أبو حنــــين

السلام عليكم جزيل الشكر و الامتنان للإخوة : أخي الحبيب : أبو أنس أخي الحبيب : محمود رواس جزاكم الله خيرا على المرور

العفو أخي admbrk

السلام عليكم ربما الخطأ في اسم الورقة في الملف السابق كان السطر التالي هو الذي يحدد آخر خلية تحتوي على بيانات و هذا هو السطر : LR1 = ورقة2.Cells(Rows.Count, "E").End(xlUp).Row - 2 بمعنى الورقة2 هي ورقة حركة المبيعات ، غيريها حسب اسم ورقة المشتريات تأكدي من هذا

أخي الكريم Jo11 جراكم الله خيرا على المرور

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

هذا الملف الذي أرفقته في مشاركتك الاولى check box.rar

العفو أخي إبراهيم

العفو أخي سعد عابد

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

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

هذه الكود يعمل مع البيانات في العمود K Private Sub CheckBox1_Click() LR = Cells(Rows.Count, "K").End(xlUp).Row + 1 For s = 5 To LR If Cells(s, 11).Text <> "" Then If CheckBox1.Value = False Then Cells.EntireRow.Hidden = False Else Cells(s, 11).EntireRow.Hidden = True End If: End If: Next End Sub

العفو أخي : admbrk و هذا الملف كما طلبه أخي ابراهيم Book1-2xx.rar

أخي يوسف جربت الكود على 2003 و هو يعمل بطريقة جيدة اما بالنسبة للاهتزاز فقد اضفت فقط سطرين و اعتقد انه توقف عن الاهتزاز Sub Printno_From_To_() Application.ScreenUpdating = False Dim i As Integer For i = Range("G6") To Range("I6") Step 3 If i <= Range("I6") Then Range("K3") = i Activewindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True End If Next i Range("K3").Select Application.ScreenUpdating = True End Sub

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

أخي الحبيب : أبو أنس حاجب أخي الحبيب : عباس السماوي أخي الكريم : Jo11 جزاكم الله خيرا على المرور و الكلمات الطيبة أخي عباس المثال يعمل عندي بطريقة صحيحة ربما الخطأ من عندك

يمكن عمل ذلك بالطريقة التالية بعد اذن أخي الاستاذ طارق Book1-2xx.rar

قم بضغط الملف ببرنامج ضغط مثل الونرار ثم ارفق الملف

السلام عليكم أخي قم بضغط الملف ببرنامج ضغط مثل الوينرار ثم ارفع الملف للمنتدى

هذا المثال يبين طريقة استدعاء بيانات من عدة ملفات مغلقة أردت طرحه بطريقة مبسطة لتعم الفائدة استدعاء بيانات.rar

و هذه طريقة اخرى Manpawer22222.rar

هذه محاولة مني New Microsoft Office Excel Worksheet.rar

السلام عليكم اخي يوسف عندما نكتب هذا السطر ينبغي تعريف كل المتغيرات في البرنامج مثلا لو كتبنا for r=1 to 100 فالكود يشير الى خطأ و تصحيحه يكون كالتالي : Dim r As Integer for r=1 to 100 هذا حسب علمي و الله اعلم

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

السلام عليكم إن وقع خطأ في الكود السابق يرجى تغييره بالكود التالي Sub HH() Dim m As Range For Each m In ورقة2.Range("F3:F1000") If m.Text Like ورقة1.Range("R3").Text Then MsgBox "رقم هذه الفاتورة موجود مسبقا", vbCritical, "خطأ" Exit Sub End If Next '---------------------------------------------------------------------------- Application.ScreenUpdating = False LR = ورقة1.Cells(Rows.Count, "Q").End(xlUp).Row + 1 x = 3 LR1 = ورقة2.Cells(Rows.Count, "E").End(xlUp).Row - 2 For i1 = 2 To LR If ورقة1.Cells(i1, 17).Text <> "" Then ورقة1.Range("q" & i1).Resize(1, 20).Copy ورقة2.Range("E" & LR1 + x).PasteSpecial xlPasteValues x = x + 1 End If Next Application.ScreenUpdating = True: Application.CutCopyMode = False MsgBox "تم ترحيل البيانات بنجاح", vbInformation, "ترحيل" '-------------------------------------------------------------------------------------- For i = ورقة2.Range("F" & Rows.Count).End(xlUp).Row To 1 Step -1 If WorksheetFunction.CountIf(ورقة2.Range("F1:F" & i), ورقة2.Range("F" & i).Value) > 1 Then ورقة2.Range("F" & i) = "" End If Next i ورقة2.Select End Sub[/font] [font=arial,helvetica,sans-serif]

إجعل مصدر البيانات بالكود التالي و ليس النطاق المسمى و يكون هذه الكود في الحدث UserForm_Activate Dim Ataxs Ataxs = Array("10%", "20%", "30%", "40%", "50%", "60%") ComboBox3.Style = fmStyleDropDownList ComboBox3.List = Ataxs