وايلي حبيب قام بنشر أغسطس 20, 2017 مشاركة قام بنشر أغسطس 20, 2017 السلام عليكم ..احتاج ملف اكسل ..يكون من العمود a الى العمود k مترابطة الخلايا ببعض مثلا ما اقدر اكتب في الخلية B الا بعد تعبئة الخلية السابقة الي هي A او اقيد الخلية ال K ما ينكتب بها شي لين تتعبا الخلايا من a الى j وشكرا لكم مقدما رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر أغسطس 20, 2017 أفضل إجابة مشاركة قام بنشر أغسطس 20, 2017 جرب هذه الملف في النطاق A2:k11 (يمكن تعديل هذا النطاق من داخل الكود) الكود مرفق Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim my_rg As Range Dim col%, r%, x%, t% Application.EnableEvents = False Set my_rg = Range("a2:k11") If Intersect(Target, my_rg) Is Nothing Then GoTo 1 If Target.Rows.Count <> 1 Then GoTo 1 r = Target.Row: col = Target.Column t = Cells(r, 1).End(xlToRight).Column: If t > 11 Then t = 1 x = Application.CountA(Range(Cells(r, 1), Cells(r, col))) If x <> col Then MsgBox ("Out Of range") Target.Value = vbNullString If t = 1 Then Cells(r, 1).Select Else Cells(r, t + 1).Select End If End If 1: Application.EnableEvents = True End Sub الملف No_cells_to_skeep.rar 1 رابط هذا التعليق شارك More sharing options...
وايلي حبيب قام بنشر أغسطس 21, 2017 الكاتب مشاركة قام بنشر أغسطس 21, 2017 يعطيك الف مليون عافية ماقصرت رابط هذا التعليق شارك More sharing options...
الردود الموصى بها