skyblue قام بنشر أغسطس 20, 2008 قام بنشر أغسطس 20, 2008 السلام عليكم ورحمة الله وبركاته وبعد الاساتذة المشرفين والاعضاء مرفق ملف به الشرح وهو اضافة حساب في المكان المخصص له وتقبلوا تحياتي Book112.rar
skyblue قام بنشر أغسطس 21, 2008 الكاتب قام بنشر أغسطس 21, 2008 يشرفني ردك لي . الكود هنا يلغي يسجل على البيانات السابقة ويسجل الحالية . اتمنى التعديل على الكود بحيث يضيف جميع الارقام وراء بعض دون ان يلغي السابقة تحياتي
عبدالله باقشير قام بنشر أغسطس 21, 2008 قام بنشر أغسطس 21, 2008 (معدل) السلام عليكم الكود هنا يلغي يسجل على البيانات السابقة ويسجل الحالية . اتمنى التعديل على الكود بحيث يضيف جميع الارقام وراء بعض دون ان يلغي السابقة اخي حضرتك لم توضح الطلب تفصيلا طيب التسلسل في البيانات تريده عام لكل الاعمدة او خاص لكل عمود في المرفق عام للكل مع اضافة تسلسل لضبط مكان الترحيل Book112.rar تم تعديل أغسطس 21, 2008 بواسطه خبور خير
skyblue قام بنشر أغسطس 21, 2008 الكاتب قام بنشر أغسطس 21, 2008 الحقيقة انني اتعبتك معي فانا أقصد ان لايكون هناك تسلسل . والاعداد تذهب عند الترحيل وراء بعض فمثلا في الخانة D رحلت العدد 50 ثم بعد ذلك رحلت في نفس الخانة D العدد 456 فياتي هذا العدد مباشرة بعد العدد 50 وهكذا لبقية الخانات تحياتي Book112.rar
عبدالله باقشير قام بنشر أغسطس 21, 2008 قام بنشر أغسطس 21, 2008 السلام عليكم استخدم الكود التالي Sub ترحيل_خاص() Dim T As Integer With ورقة2 T = [MYINDEX] + 2 Last = .Cells(.Rows.Count, T).End(xlUp).Row + 1 .Cells(Last, T).Value = Range("MYCELL").Value End With End Sub
skyblue قام بنشر أغسطس 21, 2008 الكاتب قام بنشر أغسطس 21, 2008 الله يوفقك ياخبور الخير ويغفر لك ويجعلك من اهل الجنة الله يحفظك
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.