با سلام
در جلوی کدهایی که عمل ذخیره کردن دیتای تکست باکس ها رو انجام میدند نام شیت مورد نظر را اضافه کنید
کد PHP:
ZZ1 = Sheets("NameManager").Cells(Sheets("NameManager").Rows.Count, "A").End(xlUp).Row
For jj = 1 To ZZ1
Next
If TT = 0 Then
Sheets("namemanager").Range("A" & ZZ1 + 1) = TextBox1
Sheets("namemanager").Range("B" & ZZ1 + 1) = TextBox2
Sheets("namemanager").Range("C" & ZZ1 + 1) = TextBox3
Sheets("namemanager").Range("D" & ZZ1 + 1) = TextBox4
Sheets("namemanager").Range("E" & ZZ1 + 1) = TextBox5
End If
Sheets("namemanager").Cells(sonsattt, 1) = TextBox1
Sheets("namemanager").Cells(sonsattt, 2) = TextBox2
Sheets("namemanager").Cells(sonsattt, 3) = TextBox3
Sheets("namemanager").Cells(sonsattt, 4) = TextBox4
Sheets("namemanager").Cells(sonsattt, 5) = TextBox5
علاقه مندی ها (Bookmarks)