Muner قام بنشر أغسطس 24, 2022 مشاركة قام بنشر أغسطس 24, 2022 السلام عليكم .. لابد من التحية عند بدء أى مشاركة ,,أخواني الكرام اريد منكم مساعدتي في ترحيل بيانات هذا الملف والمطلوب داخل الشيتترحيل إلى خانات متفرقة.xlsm رابط هذا التعليق شارك More sharing options...
مهند محسن قام بنشر أغسطس 24, 2022 مشاركة قام بنشر أغسطس 24, 2022 انتبه من فضلك فعليك استخدام خاصية البحث بالمنتدى ,فطلبك تكرر كثير جداً وشوف بنفسك https://www.officena.net/ib/search/?q=متفرقة&quick=1&type=forums_topic&nodes=135 2 1 رابط هذا التعليق شارك More sharing options...
Muner قام بنشر أغسطس 25, 2022 الكاتب مشاركة قام بنشر أغسطس 25, 2022 السلام عليكم ورحمة الله وبركاته حاولت أخواني الأعزاء الاطلاع على كل ما احالني إليه اخي مهند حسن لكن بحكم قلة معرفتي كثيرا بالإكسيل ولانني مبتدي لم اتوفق إلى ما اريده ،لذا أرجو منكم تنفيذ طلبي حسب ماهو مطلوب في الملف المرفق مع خالص شكري وتقديري مقدما ترحيل إلى خانات متفرقة.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابراهيم الحداد قام بنشر أغسطس 25, 2022 أفضل إجابة مشاركة قام بنشر أغسطس 25, 2022 السلام عليكم ورحمة الله خصص زر فى الفورم و ضع به هذا الكود Private Sub CommandButton1_Click() arr = Array("B5", "C5", "F5", "C8", "E9", "G10") tmp = Array(TextBox1.Value, TextBox4.Value, TextBox3.Value, _ TextBox2.Value, TextBox5.Value, TextBox6.Value) For i = LBound(arr) To UBound(arr) Range(arr(i)) = tmp(i) Next End Sub 2 رابط هذا التعليق شارك More sharing options...
Muner قام بنشر أغسطس 25, 2022 الكاتب مشاركة قام بنشر أغسطس 25, 2022 تمام ضبط معي ما شاء الله عليك ..جزاك الله خيرا استاذي الفاضل إبراهيم الحداد وجعله الله في ميزان حسناتكم بقي إضافة بسيطة تكملة للكود وهو مسح البيانات بعد الترحيل .جزاك الله خيرا ..وأيضا كيف استدعي الفورم إلى الشيت ؟ رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر أغسطس 25, 2022 مشاركة قام بنشر أغسطس 25, 2022 السلام عليكم ورحمة الله ضف هذه الجزئية فى نهاية الكود For Each Ctrl In Me.Controls If TypeName(Ctrl) = "TextBox" Then Ctrl.Value = "" End If Next Ctrl 1 رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر أغسطس 26, 2022 مشاركة قام بنشر أغسطس 26, 2022 تفضل استاذ منير طبعاً بعد اذن استاذنا الكبير ابراهيم .. فالكود يعمل بكل كفاءة وان حدث اى مشكلة معك فبسببك انت لأنك لم تضع الكود كما يجب ان يكون بالملف وشوف بنفسك حتى يتم اغلاق المشاركة Private Sub CommandButton1_Click() arr = Array("B5", "C5", "F5", "C8", "E9", "G10") tmp = Array(TextBox1.Value, TextBox4.Value, TextBox3.Value, _ TextBox2.Value, TextBox5.Value, TextBox6.Value) For i = LBound(arr) To UBound(arr) Range(arr(i)) = tmp(i) Next For Each Ctrl In Me.Controls If TypeName(Ctrl) = "TextBox" Then Ctrl.Value = "" End If Next Ctrl End Sub ترحيل إلى خانات متفرقة.xlsb 5 رابط هذا التعليق شارك More sharing options...
Muner قام بنشر أغسطس 26, 2022 الكاتب مشاركة قام بنشر أغسطس 26, 2022 جزاك الله خيرا استاذ علي محمد علي وجعله الله في ميزان حسناتك والشكر موصول ايضا لأستاذنا الكبير إبراهيم الحداد فشكرا لكما . فحقيقة استفدت كثيرا من هذا العمل وأرجو ان تتسع لي صدوركم فانا مبتدي في الإكسيل. ايضا إذا أردت ان أضيف خلايا اخرى كيف اعمل وما الشيء الذي اغير فيه ؟ ...مع خالص شكري وتقديري . رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان