ابو اسامة العينبوسي

السلام عليكم ________________2.rar

السلام عليكم ____2.rar

السلام عليكم كما ذكر الاخ Imaginlife من بحث و استبدال ( خيار المصنف و ليس الورقة النشطة) هنا الملف جاهز ______2.rar

السلام عليكم في حدث دبل كلك Application.EditDirectlyInCell = False TR = Target.Row Sheets(2).Select Sheets(2).Cells(TR, 3).Select Selection.Interior.ColorIndex = 3 Application.EditDirectlyInCell = True ممكن ان نحدد اكثر المجال الذي ينطلق منه الحدث 0012.rar

السلام عليكم ****هناك فرق بين الخلايا ذات الخلفيه البيضاء و الخلايا التى لالون لها Function CountColors(myrng As Range) Dim Cell As Range For Each Cell In myrng If Cell.Interior.ColorIndex <> xlNone Then CountColors = CountColors + 1 End If Next End Function ___________________.rar

السلام عليكم ممكن نعدل في الكود حسب ما تريد Sub ttt() x = ورقة2.Cells(Rows.Count, 5).End(xlUp).Row + 1 For y = 3 To 28 ورقة2.Cells(x, y) = Range("r_" & y - 2) 'Range("r_" & y - 2) = "" هذا السطر ان اردت مسح الخلايا بعد الترحيل Next End Sub ___________1.rar

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

السلام عليكم سؤالك مبهم ارجو ان ترفق ملف

السلام عليكم ارفق ملف اخى الكريم

السلام عليكم في وقت فراغي ساضع كل الاحتملات لما هو متوقع من سؤال و ان تختار المناسب

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

السلام عليكم اخى ابو تامر

السلام عليكم اخى الكريم اين فئات الطرود اين معيار التقسيم ؟

السلام عليكم pleas3.rar

السلام عليكم لكن ملفه الصلى يقول عكس ذلك تماما اليك معادلته =IF(A1=0,TODAY()-1,"")

السلام عليكم اذا عادت الخليه الى a1 صفر تعود قيمه B1 المعادله ام تبقى ثابته ؟ :signthankspin:

السلام عليكم هذا في حدث ال workbook Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) If Target.HasFormula Then 'MsgBox "áÇíãßä ÇáÊÍÑíÑ...ÎáíÉ ãÍãíÉ" ActiveSheet.Protect Else ActiveSheet.Unprotect End If End Sub

السلام عليكم هكذا ممكن تحمى الى خليه بدون ان تخفيها Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.HasFormula Then 'MsgBox "áÇíãßä ÇáÊÍÑíÑ...ÎáíÉ ãÍãíÉ" ActiveSheet.Protect Else ActiveSheet.Unprotect End If End Sub protect_cells_hasformula.rar

السلام عليكم الادخال لا يكون في خليتين معا !! اليس كذلك اما في A1 او B1 يعنى ادخلنا في A1 ما ذا يحدث (بالتزامن مع شرط وجود او عدم وجود شئ في B1 ) ؟ او اذا ادخالنا في B1 ما ذا يحدث (بالتزامن مع شرط وجود او عدم وجود شئ في ِA1 ) ؟

السلام عليكم مرحبا بك اخى بين اخوانك و لتكن لبنه في هذا الصرح المعطاء

هو لا يظهر في رايت كلك لكنه يكون موجود في الحافظه و تستطيع لصقه

السلام عليكم اخى الكريم النسخ يعمل مع هذا الكود ملاحظه:ليس من الضرورى تلوين كامل الصف لون على قدر الاعمده لديك

السلام عليكم نعم هذا معناه اليس هذا طلبك

السلام عليكم الى الاخ samnaj Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column < 2 Then Exit Sub '----------------------------------- If Target.Column = 1 Then If Target.Offset(0, 1).Value <> "" Then Target.Offset(0, 3).Value = Target.Offset(0, 3).Value End If '----------------------------------- ElseIf Target.Column = 2 Then If Target.Offset(0, -1).Value <> "" Then Target.Offset(0, 2).Value = Target.Offset(0, 2).Value End If End If End Sub بشرط وجود قيمتين في الخليتين Book211.rar

السلام عليكم هل التاريخ اعلاه يعنى 1/10/1978