الرجاء شرح هذا الكود

[حسام كامل]

 

 

Private Sub CommandButton1_Click()

Call sama121

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

 

'Hide

'Show

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

'ترحيل التكست الموجود بجوار الحساب لصفحة شيت2

Call SAMA

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

End Sub

12 الخزينة الفرعية.rar

12 الخزينة الفرعية.rar