بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
زوهير
-
Posts
251 -
تاريخ الانضمام
-
تاريخ اخر زياره
Community Answers
-
زوهير's post in نقل ناتج فورم الى textbox في صفحة الاكسل was marked as the answer
السلام عليك اخي الكريم
تفضل ربما يناسبك الحل
المصنف1.rar
-
زوهير's post in طلب مساعدة في تعديل كود حتي يعمل was marked as the answer
السلام عليك اخي
ضع الكود في حدث الورقة وجرب ان شاءالله ياتي بثماره
Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range Application.EnableEvents = False On Error Resume Next For Each c In Range("D1:D" & Cells(Rows.Count, "D").End(xlUp).Row) X = Cells(c.Row, Columns.Count).End(xlToLeft).Column + 1 If c = "Yes" Then If Cells(c.Row, X) = "" Then Cells(c.Row, X).Value = c.Offset(, -3).Value End If End If Next c Application.EnableEvents = True End Sub -
زوهير's post in أريد أبسط حل لهذا الإستدعاء ثم الترحيل والحفظ - يوجد مثال- was marked as the answer
السلام عليك اخي الكريم
اليك الحل كاملا بالفورم ترحيل استدعاء تعديل
ان نسابك الحل اضغط افضل اجابة لتمام الموضوع
كود ترحيل جميل جدا.rar