اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


إذهب إلى أفضل إجابة Solved by سليم حاصبيا,

الردود الموصى بها

السلام عليكم ..احتاج ملف اكسل ..يكون من العمود       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

  • Like 1
رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information