طلب كود تسطير الخلايا اليا بمجرد ادخال البيانات في سطير

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

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

لي طلب اريد كود تسطير الخلايا اليا بمجرد ادخال البيانات في سطير  من نطاق C10  الى J60

العطارتمسنا_2015_07_21.zip

[خالد الرشيدى]

اخى الكريم جرب المرفق وابدى ملاحظاتك

الكود يقوم بالتسطير حال اضافة قيمة الى خلايا العمود C

 العطارتمسنا_2015_07_21.zip

تم تعديل أغسطس 26, 2015 بواسطه خالد الرشيدى

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

 اريد تسطر لما يتم اضافة قيمة الى خلايا العمود    E

اريد عندما يتم حدف البيانات تتم اخفاء سطر

اريد عمل سطر في صورة

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

 

تم تعديل أغسطس 26, 2015 بواسطه محمد عبدالسلام

[خالد الرشيدى]

اخى الكريم

استبدل الكود السايق بهذا الكود

Private Sub Worksheet_Change(ByVal Target As Range)
      
      If Target.Cells.Count > 1 Then Exit Sub
      If Not Intersect(Target, Range("E10:E60")) Is Nothing Then
           With Target.Offset(0, -2).Resize(1, 8)
               .Borders.LineStyle = xlDot
           End With
      End If
End Sub

اما وعن ازالة التسطير عند افراغ الخلايا

الافضل ..ان يكون هذا الامر فى حدث ترحيل الفاتورة وافراغ بياناتها .... من خلال اضافة الكود التالى

     Range("C10:J60").Borders.LineStyle = xlNone

تقبل تحياتى

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

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

[خالد الرشيدى]

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

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

   Range("C10:J60").Borders.LineStyle = xlNone

اما وان اردت كود يقوم باضافة تسطير حال اضافة قيمة الى العمود E ومسح التسطير حال حذف تلك القيمة

Private Sub Worksheet_Change(ByVal Target As Range)
      
      If Target.Cells.Count > 1 Then Exit Sub
      If Not Intersect(Target, Range("E10:E60")) Is Nothing Then
      If Target.Value <> "" Then
           Target.Offset(0, -2).Resize(1, 8).Borders.LineStyle = xlDot
      Else
           Target.Offset(0, -2).Resize(1, 8).Borders.LineStyle = xlNone
      End If
      End If

End Sub

 

تم تعديل أغسطس 26, 2015 بواسطه خالد الرشيدى

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

 جزاك الله خيرا و جعله في ميزان حسناتك اخي ‎خالد الرشيدى