-
Posts
5 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه roukaf12
-
-
مشكور أخي على سرعة الرد جعله الله في ميزان حسناتك
ولكن انا بحاول اعمل كلير كونتنت مش عايز يشتغل ليه
يعني امسح الداتا بعد الترحيل وتغيير رقم التصريح بحاول على حسب معرفتي المحدوده مش بيشتغل بيدي خطأ
-
إلى زملائي الأعزاء السلام عليكم ورحمة الله وبركات
في الملف المرفق حاولت ترحيل البيانات إلى شيت آخر ولكني كل مره أفشل بيها من فضلكم افادتي بكود ترحيل عملي أو ارسال الكود في الرد وفي حال توفر وقت لديكم برجاء الشرح
Sub Tarheel() Dim d(5), x(5, 30) d(1) = [G7]: d(2) = [C4]: d(3) = [C8]: d(4) = [H8]: d(5) = [C9] With Sheets("Data") DR = .[H10000].End(xlUp).Row + 1 ' For i = 1 To 5 .Cells(DR, i + 1) = d(i) Next i End With LR = [H30].End(xlUp).Row Range("C12:G" & LR).Copy Sheets("Data").Select Range("G" & DR).Select Selection.PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False [F2].Select Sheets("Permession").Select Reply = MsgBox("All data will be transfer " & Chr(10) & "it's done", vbYesNo) If Reply <> 6 Then Exit Sub Range("B12:C29, B29").ClearContents [G7] = [G7] + 1 Range("D8:D10, F9").ClearContents End Sub
عنوان مخالف جداً ... تم تعديل وتغيير عنوان المشاركة ليعبر عن طلبك
تعديل كود ترحيل من نموذج إدخال الى صفحة أخرى
في منتدى الاكسيل Excel
قام بنشر
بخصوص هذا الموضوع أحب أن اعبر عن خالص الشكر والعرفان إلى السيد سليـم حيث أني تعلمت منك الكثير في هذا الموضوع ورد سعادتكم عليه ببالغ السرعة والحرفية وابلغكم بأنني قد أجريت بعض التفاصيل الصغيرة على الكود من خلال تعليمكم لنا كيفية وضع كود التحويل بهذا الشكل الحرفي
لذا نتقدم بخالص الشكر والتقدير لشخصكم ولإدارة المنتدى التي طالما اتحفتنا بكل ما نحتاج اليه
وإني لاعتذر عن تأخري بالرد لأني في العمل ولا استطيع الرد الا حينما اذهب للبيت