عبد العزيز كمال قام بنشر أكتوبر 1, 2011 مشاركة قام بنشر أكتوبر 1, 2011 السلام عليكم ورحمة الله وبركاته طلب بسيط جدا ارجو الرد اريد شرح لهذا الكود Sub OFFICNA1() LR = Sheets("Sheet1").Range("a" & Rows.Count).End(xlUp).Row x = Range("F2").Value Range("A2:D" & LR).Select Selection.Copy Range("A2").Select Sheets(x).Select LR1 = Sheets(x).Range("a" & Rows.Count).End(xlUp).Row Range("A" & LR1 + 1).Select ActiveSheet.Paste Application.CutCopyMode = False Range("C1").Select MsgBox ("done") End Sub انا فهمت بعض خطواتة الخطوات اااساسية اللي هي في السطور الطويلة مش فاهمها رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر أكتوبر 1, 2011 مشاركة قام بنشر أكتوبر 1, 2011 اخي الفاضل هذا الجزء لتحديد رقم اخر صف يحتوي على بيانات في العمود a من الورقة Sheet1 LR = Sheets("Sheet1").Range("a" & Rows.Count).End(xlUp).Row هذا يعني ان X تساوي قيمة الخلية F2 x = Range("F2").Value يتم إختيار المدى A2 الى D ورقم اخر صف ثم يتم نسخ المضلل ثم ازالة التحديد عن المدى Range("A2:D" & LR).Select Selection.Copy Range("A2").Select إختيار ورقة العمل التي اسمها في الخلية F2 Sheets(x).Select هذا الجزء لتحديد رقم اخر صف يحتوي على بيانات في العمود a من الورقة التي اسمها في الخلية F2 LR1 = Sheets(x).Range("a" & Rows.Count).End(xlUp).Row اخيار المدى A و رقم اخر صف +1 ولصق البيانات فيه Range("A" & LR1 + 1).Select ActiveSheet.Paste إلغاء وضع النسخ واللصق واختيار الخلية C1 وظهور رسالة بكلمة done Application.CutCopyMode = False Range("C1").Select MsgBox ("done") ان شاء الله الشرح وافي ابواحمد 1 رابط هذا التعليق شارك More sharing options...
saad abed قام بنشر أكتوبر 1, 2011 مشاركة قام بنشر أكتوبر 1, 2011 اخى وصديقى عبدالله المجربجزاك الله خيرا وبارك فيكشرح ممتاز ومفهوم ان شاء اللهسعد عابد رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر أكتوبر 1, 2011 مشاركة قام بنشر أكتوبر 1, 2011 (معدل) شكراً لك اخي سعد ارجو منك الانتباه اثناء كتابة كلمة ان شاء الله ابواحمد تم تعديل أكتوبر 1, 2011 بواسطه عبدالله المجرب رابط هذا التعليق شارك More sharing options...
عبد العزيز كمال قام بنشر أكتوبر 1, 2011 الكاتب مشاركة قام بنشر أكتوبر 1, 2011 الله يكرمك شكرا تمام رابط هذا التعليق شارك More sharing options...
3mr 3bdeen قام بنشر يناير 25, 2012 مشاركة قام بنشر يناير 25, 2012 جزاك الله كل الخير .. رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر أبريل 27, 2014 مشاركة قام بنشر أبريل 27, 2014 (معدل) جزاك الله كل الخير .. عندى مشكله اعمل كود ترجيل بيانات من شيت الى اخر فى البدايه يكون صحيح وبعد يوم او اثنين بدون اى تعديل على الكود ليعطى نتيجه ترحيل خلايا خطا - ارجو الافاده وجزاكم الله خير Sub trheel2() If Range("G4") <> ("H4") = 1 Then MsgBox "ãÌãæÚ ÇáãÏíä áÇ íÓÇæì ÇáÏÇÆä" Else Dim LR As Integer LR = [c1000].End(xlUp).Row Range("A6:i" & LR).Copy Sheets("ÚÇã").Range("B" & Sheets("ÚÇã").[b10000].End(xlUp).Row + 1).PasteSpecial xlPasteValues Application.CutCopyMode = False Range("C6:H" & LR).ClearContents MsgBox "Êã ÇáÊÑÍíá ÈäÌÇÍ", vbOKOnly, "ÊäÈíÉ" End If End Sub تم تعديل أبريل 27, 2014 بواسطه حسام عيسى رابط هذا التعليق شارك More sharing options...
إبراهيم ابوليله قام بنشر أبريل 27, 2014 مشاركة قام بنشر أبريل 27, 2014 اخى عبدالله الكبير كبير شرح وافى ومتقن بارك الله فيك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.