в книге EXCEL имеется 13 пользовательских листов.Главное меню и Январь-Декабрь. на 12 листах имеется таблица с одинаковыми шаблонами.только внесенные данные там разные. На главном меню имеется кнопка добавить.
При нажатии на кнопку добавление выходит форма с 3 ComboBox и 14TextBox.
т.е. пользователь выбирает из списка ComboBox нужные ему данные, заполняет TextBox и нажимает на кнопку,тем самым ComboBox позволяет найти лист с этими данными,а данные из TextBox заполняют ячейку которые им присвоены,но у меня ничего не просиходит. помогите пожалуйста
При нажатии на кнопку добавление выходит форма с 3 ComboBox и 14TextBox.
т.е. пользователь выбирает из списка ComboBox нужные ему данные, заполняет TextBox и нажимает на кнопку,тем самым ComboBox позволяет найти лист с этими данными,а данные из TextBox заполняют ячейку которые им присвоены,но у меня ничего не просиходит. помогите пожалуйста
Код:
Private Sub CommandButton1_Click()
Dim i As Integer
Dim R As Range
For i = 4 To 100 Step 1
Set R = Worksheets("Январь").Cells(ComboBox1.ListIndex + 2, i)
If R.Value = Empty Then
R.Value = TextBox3.Text
Set R = Worksheets("Январь").Cells(ComboBox1.ListIndex + 2, i + 1)
R.Value = TextBox4.Text
Set R = Worksheets("Январь").Cells(ComboBox1.ListIndex + 2, i + 2)
R.Value = TextBox5.Text
Set R = Worksheets("Январь").Cells(ComboBox1.ListIndex + 2, i + 3)
R.Value = TextBox6.Text
Set R = Worksheets("Январь").Cells(ComboBox1.ListIndex + 2, i + 4)
R.Value = TextBox7.Text
Set R = Worksheets("Январь").Cells(ComboBox1.ListIndex + 2, i + 5)
R.Value = TextBox8.Text
Set R = Worksheets("Январь").Cells(ComboBox1.ListIndex + 2, i + 6)
R.Value = TextBox9.Text
Set R = Worksheets("Январь").Cells(ComboBox1.ListIndex + 2, i + 7)
R.Value = TextBox10.Text
Exit For
End If
Next i
End Sub
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "$B$1:$B$480"
End Sub