احضار قيمة خلية بشرط محدد

[ABOU ELSAAD]

الاخوة الكرام 

السلام عليكم ورحمة الله وبركاته

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

باختصار

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

وجزاكم الله خيرا

     

[عبدالفتاح في بي اكسيل]

جرب هذا  الملف 

اكتب قيمة في العمود  a   واجعل بين القيم فراغات  سيتم نسخها بالترتيب الى الورقة 2

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
        If Target.Value <> "" Then
            LastCell = Sheets("sheet2").Cells(Rows.Count, 1).End(xlUp).Row
            Sheets("sheet2").Cells(LastCell + 1, 1).Value = Target.Value
        End If
    End If
End Sub

cell value.xlsm