حسين مامون قام بنشر يوليو 26, 2016 مشاركة قام بنشر يوليو 26, 2016 السلام عليكم ارغب في انشاء ماكرو ينقل بيانات خلية الى اخرى وادراج تاريخ اليوم في خلية اخرى الملف المرفق فيه توضيح للمطلوب وشكرا لكم رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يوليو 26, 2016 مشاركة قام بنشر يوليو 26, 2016 هات مثال غلى ذلك ثم تريد النسخ ام النقل 1 رابط هذا التعليق شارك More sharing options...
حسين مامون قام بنشر يوليو 26, 2016 الكاتب مشاركة قام بنشر يوليو 26, 2016 (معدل) 17 دقائق مضت, سليم حاصبيا said: هات مثال غلى ذلك ثم تريد النسخ ام النقل السلام عليكم تفضل انتقال بيانات من الى (0).zip تم تعديل يوليو 26, 2016 بواسطه حسين22 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يوليو 26, 2016 مشاركة قام بنشر يوليو 26, 2016 جرب هذا الماكرو Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column <> 1 Then Exit Sub If Target.Count > 1 Or Target <> "" Then Exit Sub If Target.Offset(0, 1) <> "" And Target.Offset(0, 2) = "" Then Target.Value = Target.Offset(0, 1).Value Target.Offset(0, 1).Value = "" Target.Offset(0, 2).Value = Time Target.Offset(0, 3).Value = Date End If End Sub 1 رابط هذا التعليق شارك More sharing options...
ابو عبدالبارى قام بنشر يوليو 26, 2016 مشاركة قام بنشر يوليو 26, 2016 الأخ الكريمحسين22 السلام عليكم جرب الماكرو التالى Sub abo_abary() With Selection .Cut .Offset(0, -1).Value = .Offset(0, 0).Value .Offset(0, 0).Value = "" .Offset(0, 1).Value = Date End With End Sub 1 رابط هذا التعليق شارك More sharing options...
حسين مامون قام بنشر يوليو 26, 2016 الكاتب مشاركة قام بنشر يوليو 26, 2016 30 دقائق مضت, سليم حاصبيا said: جرب هذا الماكرو Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column <> 1 Then Exit Sub If Target.Count > 1 Or Target <> "" Then Exit Sub If Target.Offset(0, 1) <> "" And Target.Offset(0, 2) = "" Then Target.Value = Target.Offset(0, 1).Value Target.Offset(0, 1).Value = "" Target.Offset(0, 2).Value = Time Target.Offset(0, 3).Value = Date End If End Sub شكرا يا استا.د ساجرب جزاك الله خيرا يا استاد الماكرو يعمل فقط سازيل كود ادراج التوقيت هل يمكن تتطبيقه على اكتر من شيت بنفس الجد ول وتشغيله بctrl +d بعد التحديد واعتدر عن الازعاج 1 رابط هذا التعليق شارك More sharing options...
حسين مامون قام بنشر يوليو 27, 2016 الكاتب مشاركة قام بنشر يوليو 27, 2016 (معدل) السلام عليكم ورحمة الله اخ سليم حاصبيا هل من طريقة لتطبيق هذا الماكرو على اكثر من شيت وتفعيله ب ctrl+d بعد تحديد خلية؟ تم تعديل يوليو 27, 2016 بواسطه حسين22 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يوليو 27, 2016 مشاركة قام بنشر يوليو 27, 2016 تفضل اخي ما تريد يمكنك تشغيل الماكرو بواسطة Ctlr+Shif+D وليس Crl+D لان هذا الاختصار يفقدك اختصار اخر (نسخ المعادلات) يمكنك ايضاً تشغيل الماكرو بواسطة الزر انتقال بيانات من الى Macro1.rar 1 رابط هذا التعليق شارك More sharing options...
حسين مامون قام بنشر يوليو 27, 2016 الكاتب مشاركة قام بنشر يوليو 27, 2016 شكرا لك استاد اللهم نور قلوب اساتدتنا بالعلم رابط هذا التعليق شارك More sharing options...
حسين مامون قام بنشر يوليو 27, 2016 الكاتب مشاركة قام بنشر يوليو 27, 2016 (معدل) السلام عليكم استادي الماكرو يعمل عكس ما اريد قمت بتحديد خلية a2وشغلت الماكرو ونقل جميع بيانات العمودb انا اريد تحديدخلية او اثنين مثلا وينقل بياناتهما ب ctrl+chft+d فقط ان كان ممكنا وشكرا تم تعديل يوليو 27, 2016 بواسطه حسين22 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يوليو 27, 2016 مشاركة قام بنشر يوليو 27, 2016 استبجل الماكرو بهذا Sub experement() Dim my_rg As Range On Error Resume Next Set my_rg = Application.InputBox("insert you range", Type:=8) If my_rg Is Nothing Then MsgBox ("Please select One column") On Error GoTo 0 Exit Sub End If cols = my_rg.Columns.Count If cols <> 1 Then MsgBox ("Please select One column"): Exit Sub If my_rg.Count = 1 Then Set my_rg = my_rg Else Set my_rg = my_rg.SpecialCells(xlCellTypeBlanks).Columns(1) End If For Each cel In my_rg With cel If .Offset(0, 1).Value <> "" Then .Value = .Offset(0, 1).Value .Offset(0, 1).Value = "" .Offset(0, 2).Value = Date End If End With Next End Sub 1 رابط هذا التعليق شارك More sharing options...
حسين مامون قام بنشر يوليو 27, 2016 الكاتب مشاركة قام بنشر يوليو 27, 2016 شكرا لك استاد سارى غدا ان شاء الله وارد عليك تحياتي رابط هذا التعليق شارك More sharing options...
حسين مامون قام بنشر يوليو 28, 2016 الكاتب مشاركة قام بنشر يوليو 28, 2016 السلام عليكم اشكرك استادي الماكرو يعمل كما اريد الف الف شكر على تعاونك معي واتمنى انل لا اكون مخطئا معك في شئ جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان