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

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

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

حفظك الله

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

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

اختك

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

انا اسفة اخى

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

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

اتمنى تعديل من حضرتك استاذ حسين للكود ليصبح الموضوع متكامل مع خالص الشكر

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

معلش استاذ حسين مامون 

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

مع الشكر الجزيل