تعديل على كواد

[خالد القدس]

السلام عليكم

أحبابي الكرام

في المرفق كود من انجاز الأستاذ طارق يقوم بكتابة من الفورم الى أول خلايا خالية في الأعمدة المحددة

اريد تغيره بحيث يكتب الاسم فقط في أول خلية خالية في العمود B أما باقي البيانات تكون مرتبطة بهذه الخلية التى كتب فيها الاسم البيان الاول في الخلية التالية لها مباشرة والبيان الثاني في الخالية التالية وهكذا

جزاكم الله خيرا ونفعنا بعلمكم

Book2.rar

[عبدالله باقشير]

السلام عليكم

ينفع الكود التالي لطلبك:

Private Sub CommandButton1_Click()

Last = Range("B65536").End(xlUp).Row + 1

Range("B" & Last).Resize(1, 4).Value = Array(TextBox1.Value, ComboBox1.Value, ComboBox2.Value, ComboBox3.Value)

End Sub

[عبدالله باقشير]

السلام عليكم

اذا اردت اضافة الترقيم في العمود الاول

Private Sub CommandButton1_Click()

Last = Range("B65536").End(xlUp).Row + 1

Range("A" & Last).Resize(1, 5).Value = Array(Last - 18, TextBox1.Value, ComboBox1.Value, ComboBox2.Value, ComboBox3.Value)

End Sub

[خالد القدس]

السلام عليكم

حياك الله استاذ خبور

بدون تجربة أكيد حيأدي المطلوب وزيادة كعادة إبداعاتك

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

رضى الله عنك وولديك وارضاكم جميعا

[خالد القدس]

السلام عليكم

كود تمام

ولكن لدي استفسار مشابه

هذا الكود يكتب في الخلية النشطة

ActiveCell = TextBox1.Value

كيف أكتب في نفس الوقت في الخلية المجاورة لها مباشرة

جزاك الله كل خير

[عبدالله باقشير]

السلام عليكم

هذا الكود يكتب في الخلية النشطة

ActiveCell = TextBox1.Value

كيف أكتب في نفس الوقت في الخلية المجاورة لها مباشرة

الكود يعين المتغير Last آخر صف في العمود B زايداً واحد

في الكود الاول

يكتب مباشرة في النطاق المكون من اربعة اعمدة

بداية من العمود B في الصف المحدد في المتغير Last

في الكود الثاني

يكتب مباشرة في النطاق المكون من خمسة اعمدة

بداية من العمود A في الصف المحدد في المتغير Last

[خالد القدس]

السلام عليكم أسف أستاذي الكريم خبور لم أقصد الكود السابق فالكود السابق اشتغل تمام ولله الحمد ثم لك الشكر أجزله وسؤالي عن كود جديد منفصل عن الموضوع الأول أي سؤالي كيف اكتب في الخلية النشطة وكيف اكتب في الخلية التي في بجوارها في نفس الوقت

[عبدالله باقشير]

السلام عليكم

سؤالي عن كود جديد منفصل عن الموضوع الأول أي سؤالي كيف اكتب في الخلية النشطة وكيف اكتب في الخلية التي في بجوارها في نفس الوقت

مثلا:

ActiveCell.Resize(1, 2).Value = Array("خالد", "خبور")

[خالد القدس]

السلام عليكم هذا هو المطلوب تحياتي وتقديري آخر سؤال استاذي الأكرم خبور بخصوص الكود الأول Private Sub CommandButton1_Click() Last = Range("B65536").End(xlUp).Row + 1 Range("B" & Last).Resize(1, 4).Value = Array(TextBox1.Value, ComboBox1.Value, ComboBox2.Value, ComboBox3.Value) End Sub كيف اذا كان الكتابة في أعمدة متفرقة يعني الكتابة في أول صف خالى فى العمود B ثم الكتابة في العمود E ثم العمود H أسف على الاطالة أستاذ خبور ولكن لقاء الملوك والأمراء ليس كل يوم مع شكري وتقديري جزاك الله كل خير

[عبدالله باقشير]

السلام عليكم

كيف اذا كان الكتابة في أعمدة متفرقة يعني الكتابة في أول صف خالى فى العمود B ثم الكتابة في العمود E ثم العمود H

Private Sub CommandButton1_Click()

Dim M

Dim Last As Long

Dim C As Integer, CC As Integer

Last = Range("B65536").End(xlUp).Row + 1

M = Array(TextBox1.Value, ComboBox1.Value, ComboBox2.Value, ComboBox3.Value)

For C = 1 To 4

    '==================

    'هنا يتم تحديدالاعمدة

    CC = Choose(C, 2, 5, 8, 10)

    '==================

    Cells(Last, CC) = M(C - 1)

Next C

End Sub

[خالد القدس]

السلام عليكم هذا من فضل ربي حماك ربي ورعاك وبكل خير جازاك