ربط الخلية بما قبلها

[وايلي حبيب]

السلام عليكم ..احتاج ملف اكسل ..يكون من العمود       a    الى العمود     k  مترابطة الخلايا ببعض

مثلا ما اقدر اكتب في الخلية  B     الا بعد تعبئة الخلية السابقة الي هي A

او اقيد الخلية ال K    ما ينكتب بها شي لين تتعبا الخلايا من  a    الى   j    وشكرا لكم مقدما

 

[سليم حاصبيا]

جرب هذه الملف في النطاق 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

[وايلي حبيب]

يعطيك الف مليون عافية ماقصرت