اذهب الي المحتوي
أوفيسنا

ahmed fathy2017

عضو جديد 01
  • Posts

    2
  • تاريخ الانضمام

  • تاريخ اخر زياره

كل منشورات العضو ahmed fathy2017

  1. جرب هذا الكود أخي فهو يفي بالغرض .. وكل عام وأنتم بخير Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Answer% If Target.Address <> "$A$1" Then Exit Sub Answer = MsgBox("The range (""C2:C4"") ,Will be Deleted..No Way to Undo." & Chr(10) & "are you sure you want to do this?..", 260) If Answer <> 6 Then Exit Sub Range("C2:C4").ClearContents End Sub
  2. مش عارف اطبق المعادلة دي علي الملف دة .. أرجو من الأخواة الأعزاء مساعدتي .. وشكرا جزيلا أصابات.rar
×
×
  • اضف...

Important Information