omhamzh

احتاج تغير حدث الكود من تحريك الماوس الى عند حدوث تغير او بمجرد الكتابة Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) TextBox26.Value = Val(TextBox2) + Val(TextBox3) + Val(TextBox4) + Val(TextBox5) + Val(TextBox6) + Val(TextBox7) + Val(TextBox8) + Val(TextBox9) + Val(TextBox10) + Val(TextBox12) + Val(TextBox12) - Val(TextBox13) - Val(TextBox14) - Val(TextBox15) - Val(TextBox16) - Val(TextBox17) - Val(TextBox18) - Val(TextBox19) - Val(TextBox20) - Val(TextBox21) - Val(TextBox22) End Sub لان الكود يعمل عند تحريك الماوس فقط بارك الله فيكم

وجدت الكود لتغير الليبل اخواتى الاساتذة وها هو للافادة للاخوة من تصميم الاستاذ ياسر خليل ابو البراء Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Intersect(Range("A4:V4"), Target) Is Nothing Then Exit Sub Else UserForm1.Label5.Caption = Range("A4").Value UserForm1.Label6.Caption = Range("b4").Value End If On Error GoTo 0 End Sub وبورقة العمل Private Sub UserForm_Initialize() Label5.Caption = Range("A4").Value و كود كود ل TextBox26 لكى تظهر ناتج طرح التكست بوكس من A:L-M:V للاستاذ حماده عمر Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) TextBox26.Value = Val(TextBox2) + Val(TextBox3) + Val(TextBox4) + Val(TextBox5) + Val(TextBox6) + Val(TextBox7) + Val(TextBox8) + Val(TextBox9) + Val(TextBox10) + Val(TextBox12) + Val(TextBox12) - Val(TextBox13) - Val(TextBox14) - Val(TextBox15) - Val(TextBox16) - Val(TextBox17) - Val(TextBox18) - Val(TextBox19) - Val(TextBox20) - Val(TextBox21) - Val(TextBox22) End Sub بارك الله فيكم

السلام عليكم ورحمة الله وبركاته الاساتذة مشرفى المنتدى احتاج كودين للفورم الاول لجعل بدأ من Label7 caption = C4, ,Label6 caption = B4,,Label5 caption = a4 وهكذا حتى LABEL26 بحيث اذا تغير الاسم فى الخلية يتغير فى الليبل الكود الاخر كود ل TextBox26 لكى تظهر ناتج طرح التكست بوكس من A:L-M:V بارك الله فيكم وجزاكم كل الخير form1.xlsm

بارك الله فيك اخى جزاك الله كل خير

السلام عليكم لدى شيت به 3 اعمدة الرقم القومى والاسم والجهة وشيت اخر نفس الاعمدة اريد استخلاص الغير مكرر بينهم باستخدام الرقم القومى فى شيت اسمه M بارك الله فيكم استخلاص غ المكرر.xlsm

الكود لمن يحتاجه ويعمل تمام بس عند تغير عدد الصفوف الى 15000 بياخد وقت طويل السادة الاساتذة حل للحلقة التكرارية لجعل الكود اسرع بارك الله فيكم مع الشكر Option Explicit Sub GetDataDemo() Dim FilePath$, Row&, Column&, Address$ Dim mpth Dim mfL 'change constants & FilePath below to suit '*************************************** Const FileName$ = "**" Const SheetName$ = "ورقة1" Const NumRows& = 10 Const NumColumns& = 10 Dir (mpth & "*xls*") mpth = ThisWorkbook.Path & "\do\" mfL = Dir(mpth & "*xls*") '*************************************** DoEvents Application.ScreenUpdating = False If Dir(mpth & mfL) = Empty Then MsgBox "The file " & FileName & " was not found", , "File Doesn't Exist" Exit Sub End If For Row = 1 To NumRows For Column = 1 To NumColumns Address = Cells(Row, Column).Address Cells(Row, Column) = GetData(mpth, mfL, SheetName, Address) Columns.AutoFit Next Column Next Row ActiveWindow.DisplayZeros = False End Sub Private Function GetData(Path, File, Sheet, Address) Dim Data$ Data = "'" & Path & "[" & File & "]" & Sheet & "'!" & _ Range(Address).Range("A1").Address(, , xlR1C1) GetData = ExecuteExcel4Macro(Data) End Function

السلام عليكم اساتذة المنتدى احتاج على غرار ما قدمه استاذنا الفاضل الخبير حسين مامون فى هذا الموضوع احتاج الى عملية عكسية نقل البيانات من a2:f10000 من الملف من الموجود فى المجلدdoالى الملف الى الموجود خارجه لان به كود اخر ينقل العمودg من الملف الى بخارج المجلدdo الى الملف من نفس فكرة getdata الموجودة فى الاكسيل بس بالVBA حفظكم الله وبارك لنا فيكم خبراء المنتدى الاجلاء الافاضل من الى.rar

رائع فعلا البرنامج كان بيغيب جدااا بارك الله فيك وزادك علما يارب بارك الله فيك استاذ سليم

استاذ سليم حاصبيا انا حاولت فى الكود لاضافة ازالة الالوان ممكن حضرتك تشوف كده صح ولا غلط مشكور جدا Sub ClearData() With Sheets("Sheet1").Range("G2:L10000") .Borders.LineStyle = xlNone .ClearContents End With Range("g2:L10000").Select With Selection.Interior .Pattern = xlNone .TintAndShade = 0 .PatternTintAndShade = 0 End With بارك الله فيك

زادك الله من فضله وبارك الله فيك استاذ سليم حاصبيا اشكرك

هل بالامكان تصحيح كود مسح نطاق والغاء التحديد والالوان انا حاولت ولم ينجح Sub ClearData() Dim ws As Worksheet, Lr As Long Set ws = Sheets("Sheet1") ws.Range("g2:l0000").ClearContents Range("G2:L10000").Select Selection.Borders = .LineStyle = xlNone .Pattern = xlNone .PatternTintAndShade = 0 End Sub الكود كان للاستاذ ابراهيم الحداد وحاولت اعدل فيه ليناسب طلبى بارك الله فيكم

الف شكر لحضرتك رينا يرضى عنك يارب كل الدعوات الطيبة لحضرتك

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

السلام عليكم ورحمة الله احتاج الى كود لترحيل المبالغ التى فى العمود g بالملف المسمى الترحيل من الى العمود g بالملف المسمى الترحيل الى بس يكون الملف المسمى الترحيل الى مغلق يتم الترحيل اليه وهو مغلق بارك الله فيكم ترحيل الى.xlsx ترحيل من.xlsm

حضرتك مش ممكن رائع بارك الله فيك استاذ سليم حضرتك فعلا رجل عظيم اشكرك

السلام عليكم ورحمة الله اريد كود يضاف لتكست فورم ليعرض ناتج طرح العمود c من العمود b قمت بعمل معادلة بالشيت والناتج يعرض بالتكست بس الناتج لو كان 0 كان بيعرض -100000000000000000000000 فما احتاجه هو ان ينفذ المعادلة بالكود لمنع التقريب واظهار الناتج بالتكست بمجرد ما افتح الفورم الناتج الفورمات بتاعه0.00 بارك الله فيكم معادلة للفورم.xlsm

الله الله تسلم وتعيش اكثر الله مالك وعلمك وبارك لك فى اهل بيتك اللهم امين حفظك الله استاذ سليم

السلام عليكم ورحمة الله اهل المنتدى ارجو مساعدتى المطلوب إخفاء السطور التي بين التاريخ فىA2,B2 اذا كان التاريخ فى العمود a يقع بين او يساوى التاريخ فى A2 وB2 يتم اخفاء وذلك حتى اتمكن من طباعة السطور وزر اخر لاظهارها مرة اخرى مع الشكر والدعاء المبلغ عن مدة اخفاء السطور.xlsm

اتقدم لسياتك استاذ خيماوى بخالص الشكر والدعاء

بارك الله فيك استاذ سليم مشكور تعبك حفظك الله

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

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

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

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

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