طلب عمل حد كود يوزرفورم (1)

[محمد عبدالسلام]

السلام عليكم ورحمة الله وبركاته

طلب عمل حد كود يوزرفورم (1) ليعمل من  E10 الى E60

 

 

 

 

1 تعديل يوزر فورم.zip

[ياسر خليل أبو البراء]

وعليكم السلام ورحمة الله وبركاته

أخي الكريم محمد عبد السلام لم أفهم المطلوب ..هلا أوضحت بالتفصيل الكود المطلوب التعديل عليه ، وما المتوقع بعد تنفيذ الكود؟

 

[محمد عبدالسلام]

السلام عليكم ورحمة الله وبركاته

اخي ياسر اريد تعديل الكود يوزر فورم  لترحيل البيانات من  E10 الى اخر سطر في الفاتورة E60

تم تعديل يوليو 17, 2016 بواسطه محمد عبدالسلام

[محمد عبدالسلام]

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

بارك الله فيكم جميعا

 

 

تم تعديل يوليو 17, 2016 بواسطه محمد عبدالسلام

[ياسر خليل أبو البراء]

أخي الكريم لا أدري أي كود بالضبط تريد تعديله ..ممكن تضع الكود في مشاركة إذ أنني اطلعت على اليوزرفورم رقم 1 ولم أجد عملية ترحيل في ورقة العمل invoice

 

[محمد عبدالسلام]

السلام عليكم ورحمة الله وبركاته

اخي ياسر   انا بدوي لا أدري أي كود بالضبط على ماظن وحد في هده الاكود

ارجو من الاخوة الكرام  من يعريفه ان يشر اليه

 

Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
Dim Rng As Range, LR As Long
Dim x, y, z
'x = InputBox("Please enter a Quantity")
UserForm2.Show
x = UserForm2.TextBox1.Value
y = UserForm2.TextBox2.Value
z = UserForm2.TextBox3.Value
Unload UserForm2
If x = False Or StrPtr(x) = 0 Or Not IsNumeric(x) Then
Exit Sub
Else
LR = Sheet1.Cells(Rows.Count, "E").End(xlUp).Row + 1
Set Rng = Sheet1.Cells(LR, 4)
    
If ListBox1.Value <> "" Then
Rng.Value = ListBox1.Value
Rng.Offset(0, 1).Value = y
Rng.Offset(0, 2).Value = x
Rng.Offset(0, 3).Value = ListBox1.List(ListBox1.ListIndex, 2)
Rng.Offset(0, 4).Value = z

End If
TextFind.SelStart = 0
TextFind.SelLength = Len(TextFind.Text)
TextFind.SetFocus
End If
End If
End Sub

 

 

 

 

Private Sub TextFind_Change()
Dim MyValue
Dim MyAr() As String
Dim R As Integer, i As Integer, ii As Integer
Dim MyColmnFind As Integer, Lastrow As Integer

MyColmnFind = Me.ComboBox1.ListIndex + 1
If MyColmnFind = 0 Then Exit Sub
If MyColmnFind = 3 Then Me.TextFind = ""
Me.ListBox1.Clear
With Rng.Worksheet
  Lastrow = .Range("A65536").End(xlUp).Row
End With
Colmn = ""
With Rng
    For R = 2 To Lastrow
             If .Cells(R, MyColmnFind) Like "*" & TextFind & "*" Then
                Colmn = Colmn & R & " "
                ii = ii + 1
                ReDim Preserve MyAr(1 To ContColmn, 1 To ii)
                For i = 1 To ContColmn
                    MyValue = .Cells(R, i).Value2
                    MyAr(i, ii) = MyValue
                Next
            End If
       
    Next
End With
If ii Then Me.ListBox1.Column = MyAr: Me.ListBox1.ListIndex = 0
End Sub

 

[ياسر خليل أبو البراء]

جرب أن تغير هذا السطر

LR = Sheet1.Cells(Rows.Count, "E").End(xlUp).Row + 1

إلى الشكل التالي

LR = Sheet1.Cells(60, "E").End(xlUp).Row + 1

أي يتم استبدال كلمة Rows.Count والتي تشير إلى عدد صفوف الورقة بالكامل إلى الرقم 60 وهو آخر صف تريد التعامل معه

أرجو أن يفي ذلك بالغرض

[محمد عبدالسلام]

  السلام عليكم ورحمة الله وبركاته

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

لطلب وارجو المعذرة ممكن كود يقوم بي حدف سطر  من c61 الى H61

[ابو عبدالبارى]

Range("c61:h61").ClearContents

 

[محمد عبدالسلام]

  السلام عليكم ورحمة الله وبركاته

  جزاك الله خيرا اخي ابو عبدالبارى

اريد حذف البيانات  بدون حذف المعادلة  من خلية

[ابو عبدالبارى]

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

 

[عبدالواحد احمد]

 عمل رائع ومميز

[محمد عبدالسلام]

السلام عليكم ورحمة الله وبركاته

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

[ياسر خليل أبو البراء]

وعليكم السلام ورحمة الله أخي محمد

ماذا تقصد بحذف الخلايا ؟؟؟

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

وكلا الوجهان سيؤديان إلى نفس الأمر وهو التخلص من المعادلات ..

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

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

تقبل تحياتي

[محمد عبدالسلام]

  السلام عليكم ورحمة الله وبركاته

اخي ياسر خليل أبو البراء اسف على عدم التوضيح الأمر

الخلايا فيها  المعادلات sum

[ياسر خليل أبو البراء]

أخي محمد لم نفهم بعد المقصود من حذف النطاق الذي يحتوي على المعادلات ..

ذكرت لك أنه يمكن مسح محتويات الخلايا التي تكون مرتبطة بتلك المعادلات ويمكن ذلك بتحديد النطاق المطلوب ثم إضافة نقطة ثم استخدام كلمة ClearContents

[محمد عبدالسلام]

اخي ياسر  والله انا اسف انى زعلتك يا خي معي على عدم التوضيح الأمر

اريدحذف المحتويات على المعادلة في سطر  من c61 الىH61

تم تعديل يوليو 18, 2016 بواسطه محمد عبدالسلام

[ياسر خليل أبو البراء]

ما هي المعادلة الموجودة في الخلايا C61 و H61 .. شوف النطاق داخل المعادلة وامسح النطاق الخاص بهم

مثال لو كانت المعادلة في الخلية C61 بالشكل التالي

=SUM(C10:C60)

إذاً السطر المستخدم في الكود سيكون بالشكل التالي

Range("C10:C60").ClearContents

 

[محمد عبدالسلام]

  السلام عليكم ورحمة الله وبركاته

اخي ياسر خليل أبو البراء  جزاك الله خيرا