طلب ترحيل إلى خانات متفرقة

[Muner]

السلام عليكم .. لابد من التحية عند بدء أى مشاركة ,,أخواني الكرام اريد منكم مساعدتي في ترحيل بيانات هذا الملف والمطلوب داخل الشيتترحيل إلى خانات متفرقة.xlsm

[مهند محسن]

انتبه من فضلك فعليك استخدام خاصية البحث بالمنتدى ,فطلبك تكرر كثير جداً وشوف بنفسك

https://www.officena.net/ib/search/?q=متفرقة&quick=1&type=forums_topic&nodes=135

[Muner]

السلام عليكم ورحمة الله وبركاته 

حاولت أخواني الأعزاء الاطلاع على كل ما احالني إليه اخي مهند حسن لكن بحكم قلة معرفتي كثيرا بالإكسيل ولانني مبتدي لم اتوفق إلى ما اريده ،لذا أرجو منكم تنفيذ طلبي حسب ماهو مطلوب في الملف المرفق مع خالص شكري وتقديري مقدما

 ترحيل إلى خانات متفرقة.xlsm

[ابراهيم الحداد]

السلام عليكم ورحمة الله

خصص زر فى الفورم و ضع به هذا الكود

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

 

[Muner]

تمام ضبط معي ما شاء الله عليك ..جزاك الله خيرا استاذي الفاضل إبراهيم الحداد وجعله الله في ميزان حسناتكم 

بقي إضافة بسيطة تكملة للكود وهو مسح البيانات بعد الترحيل .جزاك الله خيرا ..وأيضا كيف استدعي الفورم  إلى الشيت ؟

 

[ابراهيم الحداد]

السلام عليكم ورحمة الله

ضف هذه الجزئية فى نهاية الكود

For Each Ctrl In Me.Controls
    If TypeName(Ctrl) = "TextBox" Then
        Ctrl.Value = ""
    End If
Next Ctrl

 

[Ali Mohamed Ali]

تفضل استاذ منير طبعاً بعد اذن استاذنا الكبير ابراهيم .. فالكود يعمل بكل كفاءة وان حدث اى مشكلة معك فبسببك انت لأنك لم تضع الكود كما يجب ان يكون بالملف وشوف بنفسك حتى يتم اغلاق المشاركة

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

[Muner]

جزاك الله خيرا استاذ علي محمد علي وجعله الله في ميزان حسناتك والشكر موصول ايضا لأستاذنا الكبير إبراهيم الحداد فشكرا لكما  .

فحقيقة استفدت كثيرا من هذا العمل وأرجو ان تتسع لي صدوركم فانا مبتدي في الإكسيل.

ايضا إذا أردت ان أضيف خلايا اخرى كيف اعمل وما الشيء الذي اغير فيه ؟ ...مع خالص شكري وتقديري .