مطلوب اكواد زر ترحيل عبر فورم لاربعة صفوف اسفل بعض مرة واحدة ؟؟

[احمد عبد الناصر]

فعلا يوجد خطأ

 

هذا كود بعد التعديل .

 

Z = Cells(Rows.Count, 16).End(xlUp).Row + 1
X = Cells(Rows.Count, 16).End(xlUp).Row + 1
T = 16
For I = 1 To 15
If Me.Controls("textbox" & T) <> "" And Me.Controls("textbox" & T + 1) <> "" Then
Cells(X, 16) = Me.Controls("textbox" & T).Value
Cells(X, 17) = Me.Controls("textbox" & T + 1).Text
Cells(X, 18) = Me.Controls("textbox" & T + 2).Text
Cells(X, 19) = Me.Controls("textbox" & T + 3).Text
Cells(X, 20) = Me.Controls("textbox" & T + 4).Text
Cells(X, 21) = Me.Controls("textbox" & T + 5).Text

X = X + 1
End If
T = T + 6
Next

Y = Cells(Rows.Count, 16).End(xlUp).Row
If X > Z Then
For T = 1 To 15
Cells(Z, T).Value = Me.Controls("textbox" & T).Text
Next
If X <> 10 Then Range("a" & Z & ":o" & Y).FillDown
End If
For T = 1 To 105
Me.Controls("textbox" & T) = ""
Next

 

 

تحياتي

[احمد عبد الناصر]

السلام عليكم

الاستاذ والاخ الكريم / احمد عبد الناصر

 

رائع وجميل

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

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

 

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

[حمادة عمر]

السلام عليكم

الاخ الكريم / احمد عبد الناصر

 

رائع جدا جدا

الكود جميل  ورائع وسوف استخدمه كثيرا

 

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

[احمد عبد الناصر]

السلام عليكم

هذا هو الكود المطلوب

 

Private Sub CommandButton1_Click()
LR = [A1000].End(xlUp).Row + 1
i = 1
For Each cl In Range("A" & LR & ":F" & LR + 3)
Cells(cl.Row, cl.Column) = Me.Controls("textbox" & i)
i = i + 1
Next
For T = 1 To 24
Me.Controls("textbox" & T) = ""
Next
End Sub

 

للامانة جزء كبير من الكود مقتبس من كود الاستاذ القدير رجب جاويش .

 

تحياتي

[حمادة عمر]

السلام عليكم

الاستاذ / احمد عبد الناصر

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

ونشكر فيك ارجاع الحق لاصحابة فهذه تنم عن اصلكم الطيب

واخلاقكم الرفيعة

 

ام عن الاستاذ القدير / رجب جاويش

فهو استاذ الجميع وكل اعمالة مهما كانت صغيرة

نستفيد منها ونطبقها ونبدأ علي خطاها

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

[محمد توبه]

استاذنا الرائع/رجب جاويش 

 

بارك الله فى اعمالك 

 

ممكن شرح لهذا الكود الرائع لاعاده استخدامه فى تطبيقات مختلفه