الانتقال الى خلية بناء على شرط

[ابوسلماان]

السلام عليكم ،،

احتاج الى كود لنقل المؤشر  الى الخلية التي تلي اخر خلية فيها بيانات.بالعمود T
ثم الانتقال الى نفس الصف ولكن في العمود B

 

 

وشكرا جزيلا

المصنف1.xlsx

[lionheart]

In worksheet module

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Target.Row > 2 And Target.Column = 20 Then
        Application.Goto Cells(Target.Row + 1, 2)
    End If
End Sub

 

[ابوسلماان]

شكرا جزيلا  استاذ

رحت انفذ الكود طلعت اخطاء ،، بسبب ان هناك كود اخر.

 

Sub Macro1()
'
' Macro1 ãÇßÑæ
'

'
    Sheets("ãäÒáí").Select
    Cells.Select
    Selection.UnMerge
    '

 

ولان هذا الطلب الخاص بالانتقال الى خلية معينة  هو اخر خطوة في الكود ،، فما ضبط معي

شاكر لك باش مهندس تعاونك.

[lionheart]

The code is put in worksheet module not in standard module

Right-click worksheet name and select [View Code] then paste the code I posted

[ابوسلماان]

المعذرة منك اخي الكريم ،،
لم يضبط معي ،، وقمت بوضع الكود في برمجية ورقة العمل ولم يضبط.


ربما لم اوصل الفكرة كما يجب.

قمت بعمل كود لنسخ البيانات الى ورقة العمل "س" ،، واريد نسخ البيانات التي في ورقة "ص" الى نفس الورقة السابقة "س"

ولكن يجب ان يكون النسخ مع اخر خلية فيها بيانات. ولذلك اود من المؤشر عند تنفيذ الكود الثاني بأن يقوم بتحديد الخلية الاخيرة لاستطيع نسخ البيانات.

 

وهذا ما شرحته في الطلب.

 

وشكراً

[lionheart]

The code will work only if you change any cell in column T manually and the code will not be triggered when copying more than one cell

Try deleting the first line in the code