حرب هذا الملف
تستطيع ان تتعامل طبيعياً مع الورقة حتى و لو كان اليوزر ظاهراً
الكود
Option Explicit
Private Sub Command1_Click()
Application.ScreenUpdating = False
Dim arr(), str$
Dim k%, x%, My_Num, lr%, i%, t%
Dim sh As Worksheet: Set sh = Sheets("add")
My_Num = sh.[j6]
If Not IsNumeric(My_Num) Or My_Num < 1 _
Or My_Num = vbNullString Then
My_Num = 10
Else
My_Num = Int(My_Num)
End If
k = 1
lr = sh.Cells(Rows.Count, "B").End(xlUp).Row
sh.Range("e2:f" & lr).ClearContents
For i = 6 To lr Step My_Num
x = InStr(Me.TextBox2, " ")
str = Left(Me.TextBox2, x - 1)
str = str & k
If lr - i < My_Num Then
t = lr - i + 1
sh.Range("f" & i).Resize(t) = Me.TextBox3
sh.Range("e" & i).Resize(t) = str: Exit For
End If
sh.Range("f" & i).Resize(My_Num) = Me.TextBox3
sh.Range("e" & i).Resize(My_Num - t) = str
k = k + 1
Next
Application.ScreenUpdating = True
'Unload Me 'تستطيع تشغيل هذا السطر اذا اردت ان يختفي الفورم
End Sub
الملف
اضافه1 Salim.rar