اذهب الي المحتوي
أوفيسنا

Ali Mohamed Ali

المشرفين السابقين
  • Posts

    11,621
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    285

مشاركات المكتوبه بواسطه Ali Mohamed Ali

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

     

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

    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

    • Like 5
×
×
  • اضف...

Important Information