زوهير قام بنشر يناير 13, 2012 مشاركة قام بنشر يناير 13, 2012 السلام عليكم ورحمة الله اخوتي هل اجد عندكم سعة الصدر وتعطوني الجواب الكافي اريد كود يقوم بترحيل من عمود من الشيت الاول الى صف في شيت الثاني وجزاكم الله خيرا مسبقا مثال1.rar رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر يناير 13, 2012 مشاركة قام بنشر يناير 13, 2012 السلام عليكم هل هذا المطلوب For i = 1 To 4 Sheets(2).Cells(1, i) = Sheets(1).Cells(i, 1) Next مثال1.rar رابط هذا التعليق شارك More sharing options...
زوهير قام بنشر يناير 13, 2012 الكاتب مشاركة قام بنشر يناير 13, 2012 بارك الله فيك اخي الكريم فعلا هو المطلوب لكن لا يتم ادراج صف ثاني في حالة الزيادة رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر يناير 13, 2012 مشاركة قام بنشر يناير 13, 2012 السلام عليكم على قدر اهل العزم تأتي العزائمو وعلى قدر السؤال كان الحل وضح لي اكثر ايه المطلوب و ايه الموضوع ويجب هنا ان نعرف العدد للأعمدة و الصفوف التي بها البيانات رابط هذا التعليق شارك More sharing options...
زوهير قام بنشر يناير 13, 2012 الكاتب مشاركة قام بنشر يناير 13, 2012 بارك الله فيك الاستجابة ولتوضيح اكثر ان يتم ادراج اسماء اخرى لكن للصف الثاني وهكذا والمرفق يوضح ذلك مثال1.rar رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر يناير 13, 2012 مشاركة قام بنشر يناير 13, 2012 طيب الأسماء التانية مكانها فين في العمود الي جمبه ولا تحت هذا الإسم ولا ايه الي يفصل بينها ولا ولا مش عارف رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر يناير 13, 2012 مشاركة قام بنشر يناير 13, 2012 اخي الفاضل اعطيني مثال واضح اشتغل علية رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يناير 13, 2012 مشاركة قام بنشر يناير 13, 2012 (معدل) السلام عليكم بعد اذن استاذي الحبيب احمد زمان جرب هكذا Private Sub CommandButton1_Click() On Error Resume Next Dim Z_ALI As Long With Feuil2.Range("A1").CurrentRegion Z_ALI = .Row + .Rows.Count For E = 1 To 4 .Cells(Z_ALI, E) = Cells(E, 1) Cells(E, 1).Value = Empty Next End With End Sub وهذا المرفق A_ALI.rar تم تعديل يناير 13, 2012 بواسطه alidroos رابط هذا التعليق شارك More sharing options...
زوهير قام بنشر يناير 13, 2012 الكاتب مشاركة قام بنشر يناير 13, 2012 اخي الكريم اليك المثال لعلني اوصل اليك الفكرة المرفق مثال2.rar رابط هذا التعليق شارك More sharing options...
زوهير قام بنشر يناير 13, 2012 الكاتب مشاركة قام بنشر يناير 13, 2012 نعم بارك الله فيك اخي الكريم كود الاخ alidroos وفى بالغرض فعلا هو المطلوب هل ممكن اضافة تنسيق الجدول واشكر الاخ احمدزمان بارك الله فيك واعذرني على الالحاح شكرا لكم جميعا على هذا التعاون المساعدة رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يناير 13, 2012 مشاركة قام بنشر يناير 13, 2012 (معدل) Private Sub CommandButton1_Click() Application.ScreenUpdating = False Dim Z_ALI As Long With Feuil2.Range("A1").CurrentRegion Z_ALI = .Row + .Rows.Count [A1].Copy For E = 1 To 4 .Cells(Z_ALI, E) = Cells(E, 1) .Cells(Z_ALI, E).PasteSpecial xlPasteFormats Cells(E, 1).Value = Empty Next .Application.CutCopyMode = False End With Application.ScreenUpdating = True End Sub وهذا المرفق A_ALI_1.rar تم تعديل يناير 13, 2012 بواسطه alidroos رابط هذا التعليق شارك More sharing options...
زوهير قام بنشر يناير 13, 2012 الكاتب مشاركة قام بنشر يناير 13, 2012 بارك الله فيك اخي الكريم وزادك علما وسترك دنيا واخرة فعلا هو المطلوب بذات رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان