زوهير قام بنشر يناير 13, 2012 قام بنشر يناير 13, 2012 السلام عليكم ورحمة الله اخوتي هل اجد عندكم سعة الصدر وتعطوني الجواب الكافي اريد كود يقوم بترحيل من عمود من الشيت الاول الى صف في شيت الثاني وجزاكم الله خيرا مسبقا مثال1.rar
احمدزمان قام بنشر يناير 13, 2012 قام بنشر يناير 13, 2012 السلام عليكم هل هذا المطلوب For i = 1 To 4 Sheets(2).Cells(1, i) = Sheets(1).Cells(i, 1) Next مثال1.rar
زوهير قام بنشر يناير 13, 2012 الكاتب قام بنشر يناير 13, 2012 بارك الله فيك اخي الكريم فعلا هو المطلوب لكن لا يتم ادراج صف ثاني في حالة الزيادة
احمدزمان قام بنشر يناير 13, 2012 قام بنشر يناير 13, 2012 السلام عليكم على قدر اهل العزم تأتي العزائمو وعلى قدر السؤال كان الحل وضح لي اكثر ايه المطلوب و ايه الموضوع ويجب هنا ان نعرف العدد للأعمدة و الصفوف التي بها البيانات
زوهير قام بنشر يناير 13, 2012 الكاتب قام بنشر يناير 13, 2012 بارك الله فيك الاستجابة ولتوضيح اكثر ان يتم ادراج اسماء اخرى لكن للصف الثاني وهكذا والمرفق يوضح ذلك مثال1.rar
احمدزمان قام بنشر يناير 13, 2012 قام بنشر يناير 13, 2012 طيب الأسماء التانية مكانها فين في العمود الي جمبه ولا تحت هذا الإسم ولا ايه الي يفصل بينها ولا ولا مش عارف
الـعيدروس قام بنشر يناير 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
زوهير قام بنشر يناير 13, 2012 الكاتب قام بنشر يناير 13, 2012 اخي الكريم اليك المثال لعلني اوصل اليك الفكرة المرفق مثال2.rar
زوهير قام بنشر يناير 13, 2012 الكاتب قام بنشر يناير 13, 2012 نعم بارك الله فيك اخي الكريم كود الاخ alidroos وفى بالغرض فعلا هو المطلوب هل ممكن اضافة تنسيق الجدول واشكر الاخ احمدزمان بارك الله فيك واعذرني على الالحاح شكرا لكم جميعا على هذا التعاون المساعدة
الـعيدروس قام بنشر يناير 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
زوهير قام بنشر يناير 13, 2012 الكاتب قام بنشر يناير 13, 2012 بارك الله فيك اخي الكريم وزادك علما وسترك دنيا واخرة فعلا هو المطلوب بذات
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.