طلب كود هام جدا

[MGS]

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

اريد كود للنسخ من شيت معين واللصق فى شيت اخر بشرط اللصق فى اول خليه فارغه بعد تحديد رينج معين من الخلايا

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

[يحيى حسين]

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

أخي لوفرضنا ان البيانات موجدودة لديك في الصفحة الاولى في الأعمدة من a الى d

و اردنا نسخها الى اخر خلية فارغة في العمود A من الصفحة الثانية استخدم الكود التالي :

 

Sub CopyAndPaste()

Dim LastR As Long, NLastR As Long, ws As Worksheet, Nws As Worksheet

Set ws = Sheets("sheet1")

Set Nws = Sheets("sheet2")

LastR = ws.Range("a" & Rows.Count).End(xlUp).Row

NLastR = Nws.Range("a" & Rows.Count).End(xlUp).Row

ws.Range("a1:d" & LastR).Copy Nws.Range("a" & NLastR + 1)

End Sub

==============

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

==============

دمتم في حفظ الله

[MGS]

بارك الله فيك .... بارك الله فيك وزادك الله من فضله وعلمه

الحمد لله تمام الكود نجح بس كنت اريد عمل paste values بدلا من اللصق العادى ....

واستفسار اخر الكود ينظر الى الصفوف بدلاله كلمه rows واذا كان ذلك لو امكن النظر الى العمود a فقط الى اخر خليه فارغه فى الشيت رقم2 اى انه لو الخليه a2 فارغه b2 مملؤه يقوم بعمليه النسخ عادى حتى لو سيتم حذف محتويات b2

[MGS]

عذرا الحمد لله وصلت الى حل مشكلتى بس كنت محتاج paste value ...

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

[يحيى حسين]

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

أخي

تفضل هذا كود لنسخ القيم و لصقها لصق خاص

 

Sub CopyAndPaste()

Dim LastR As Long, NLastR As Long, ws As Worksheet, Nws As Worksheet

Set ws = Sheets("sheet1")

Set Nws = Sheets("sheet2")

LastR = ws.Range("a" & Rows.Count).End(xlUp).Row

NLastR = Nws.Range("a" & Rows.Count).End(xlUp).Row

ws.Range("a1:d" & LastR).Copy

Nws.Range("a" & NLastR + 1).PasteSpecial xlPasteValues

Application.CutCopyMode = False

End Sub


 

[MGS]

الحمد لله الذى انعم عليك بنعمه العلم بارك الله فيك

والله هذا المنتدى اكثر من رائع ......

عذرا اخى الفاضل انى اطيل عليك بكثرة الأسئله !!! كنت كتبت سؤال خاص بالباركود وتفضل الأخ TareQ M بالأجابه على لكن لم تفى الغرض وبارك الله فيه للأهتمامه بالرد على وكنت اريد سؤالك على هذا الموضوع .

لو امكن الكود الخاص بالباركود فى الأكسل ( الفراءة والكتابه ) او البرامج المساعده للأكسل بهذا الموضوع لانى أحتاجه الى تصميم برنامج خاص بالبيع والشراء لسوبر ماركت ولكن اريدا ستخدام الباركود مع تصميمى .

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