معنى عبارة End(xlUp).Row

[أبو عبد الملك السوفي]

السلام عليكم

اساتذتنا الكرام لو تتفضلو علينا بشرح معنى End(xlUp).Row في الكود وشكرا

[الصـقر]

السلام عليكم

اخى الكريم هذا يشير الى اخر خلية بها بيانات

[أبو عبد الملك السوفي]

أخي الحبيب بارك الله فيك

هل لكان ترشدني اين الخطا في هذا الكود

Sub ÍÝÙ()
Application.ScreenUpdating = True
Dim Lr As Integer
Dim nr As Integer
Lr = [b100000].End(xlUp).Row
Range("A3:l" & Lr).Copy
nr = Sheets("ÇáãÈíÚÇÊ ÚÇã").[a100000].End(xlUp).Row + 1
Sheets("ÇáãÈíÚÇÊ ÚÇã").Range("A" & nr).PasteSpecial xlPasteValues
Application.CutCopyMode = False
MsgBox "Êã ÇáÍÝÙ ÈäÌÇÍ", vbOKOnly, "ÊäÈíÉ"
Range("A3:K100000").ClearContents

End Sub

تم تعديل سبتمبر 25, 2014 بواسطه أبو عبد الملك السوفي

[الصـقر]

اخى الكريم 

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

Range("A3:K100000").ClearContents

ويجب وضع كود فك الحماية ثم غلق الملف مرة اخرة

تم تعديل سبتمبر 25, 2014 بواسطه حسام عيسى

[الصـقر]

Lr = [b100000].End(xlUp).Row

قم بتغيير b100000  الى a100000

ثم تعديل

Range("A3:l" & Lr).Copy الى

Range("A3:2" & Lr).Copy

تم تعديل سبتمبر 25, 2014 بواسطه حسام عيسى

[أبو عبد الملك السوفي]

شكرا اخي لكن الوقة ليست محمية ويظهر الخطا في السطر

Lr = [b100000].End(xlUp).Row

[أبو عبد الملك السوفي]

حسننا ساحاول

[أبو عبد الملك السوفي]

بقي نفس المشكل

[الصـقر]

Lr = [b100000].End(xlUp).Row

قم بتغيير b100000  الى a100000

ثم تعديل

Range("A3:l" & Lr).Copy الى

Range("A3:b" & Lr).Copy

قم بتغيير 1 الى حرب b

تم تعديل سبتمبر 25, 2014 بواسطه حسام عيسى

[الصـقر]

Sub ÍÝÙ()
Application.ScreenUpdating = True
Dim Lr As Integer
Dim nr As Integer
Lr = [a100000].End(xlUp).Row
Range("A3:b" & Lr).Copy
nr = Sheets("ÇáãÈíÚÇÊ ÚÇã").[a100000].End(xlUp).Row + 1
Sheets("ÇáãÈíÚÇÊ ÚÇã").Range("A" & nr).PasteSpecial xlPasteValues
Application.CutCopyMode = False
MsgBox "Êã ÇáÍÝÙ ÈäÌÇÍ", vbOKOnly, "ÊäÈíÉ"
Range("A3:K100000").ClearContents

End Sub

جرب هذا الكود بعد التعديل

[أبو عبد الملك السوفي]

الحمد لله حلت المشكلة الاولى لكن انتقل الخطا الى السطر

Range("A3:K100000").ClearContents

 

كان من المفترض ان يمسح البيانات

[الصـقر]

اخى الكريم 

انت عملت تحديد للمدى من  Range("A3:K100000").ClearContents

وانا ملاحظ ان العمل كله على عمودين هما A .B

فقم بتغيير المدى الى Range("A3:b100000").ClearContents

واذا كان ولابد من Range("A3:K100000").ClearContents فتأكد من عدم وجود حماية للورقة

[أبو عبد الملك السوفي]

الحمد لله الذي بنعمته تتم الصالحات

جزاك الله كل خير اخي حسام

حلت المشكلة بوركت

[الصـقر]

اخى الحبيب 

بارك الله فيك

كلنا نتعلم من بعضنا البعض

بارك الله فى القائمين على المنتدى