[/align]ببخشین دوستان کسی میتونه خط به خط بگه این فرمولها چیکار میکنن ممنون
[
Private Sub CommandButton1_Click()
Dim c As Range
If TextBox1.Text <> "" Or TextBox2.Text <> "" Or TextBox3.Text <> "" Then

For Each c In Range("A1:A10000")
If c = "" Then
c = TextBox1.Text
c.Offset(0, 1) = TextBox2.Text
c.Offset(0, 2) = TextBox3.Text
c.Offset(0, 3) = TextBox4.Text
c.Offset(0, 4) = TextBox5.Text
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
Exit Sub
End If
Next
Else
MsgBox ("ÇØáÇÚÇÊ ÑÇ æÇÑÏ ˜äíÏ")
End If

End Sub
اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.