Найти пустую строку на листе и записать туда данные

01.10.2012, 19:57. **Показов** 3169. **Ответов** 2

Author24 — интернет-сервис помощи студентам

Создаю форму для ввода иностранных слов.
Надо обговорить: очень мало понимаю в этом, поэтому не судите строго. Искала информацию в интернете, вот что пока выходит.
Форма готова, нужно написать код.
Код для кнопки "Добавить".
Необходимо, чтобы он находил пустую строку начиная с 1355 и заносил данные туда, потом очищал все поля и закрывался, на данный момент он ругается, что нет оператора For для Next.

Visual Basic

Private Sub Добавить_Click()
  For i = 1355 To 10000 Step 1
   If Worksheets("Рабочий").Cells(i, 2) = "" Then
      TextBox1.Value = Worksheets("Рабочий").Cells(i, 2).Value = TextBox1.Value
      TextBox2.Value = Worksheets("Рабочий").Cells(i, 3).Value = TextBox2.Value
      TextBox3.Value = Worksheets("Рабочий").Cells(i, 4).Value = TextBox3.Value
      ComboBox1.Value = Worksheets("Рабочий").Cells(i, 5).Value = ComboBox1.Value
      ComboBox2.Value = Worksheets("Рабочий").Cells(i, 6).Value = ComboBox2.Value
      TextBox4.Value = Worksheets("Рабочий").Cells(i, 7).Value = TextBox4.Value
      ComboBox3.Value = Worksheets("Рабочий").Cells(i, 8).Value = ComboBox3.Value
     If ComboBox1.Text = "Глагол" Then
        ComboBox4.Value = Worksheets("Рабочий").Cells(i, 9).Value = ComboBox4.Value
    End If
   Else: Next i
  For m = 176 To 10000 Step 1
    If Worksheets("Глаголы").Cells(m, 1) = "" Then
      If ComboBox3.Text = "Особый глагол" Then
        If TextBox1.Value <> "" Then Worksheets("Глаголы").Cells(m, 1).Value = TextBox1.Value
        If TextBox2.Value <> "" Then Worksheets("Глаголы").Cells(m, 2).Value = TextBox2.Value
        If TextBox5.Value <> "" Then Worksheets("Глаголы").Cells(m, 3).Value = TextBox5.Value
        If TextBox6.Value <> "" Then Worksheets("Глаголы").Cells(m, 4).Value = TextBox6.Value
        If TextBox7.Value <> "" Then Worksheets("Глаголы").Cells(m, 5).Value = TextBox7.Value
        If ComboBox4.Value <> "" Then Worksheets("Глаголы").Cells(m, 6).Value = ComboBox4.Value
    End If
   Else: Next m
   TextBox1.Text = ""
   TextBox2.Text = ""
   TextBox3.Text = ""
   TextBox4.Text = ""
   TextBox5.Text = ""
   TextBox6.Text = ""
   TextBox7.Text = ""
   ComboBox1.Text = ""
   ComboBox2.Text = ""
   ComboBox3.Text = ""
   ComboBox4.Text = ""
  Hide
End Sub

Заранее благодарна за любую помощь!!

@~~Апострофф~~ · 02.10.2012, 07:32

Сообщение от La_Suerte

Visual Basic

For i = 1355 To 10000 Step 1
  If Worksheets("Рабочий").Cells(i, 2) = "" Then
    TextBox1.Value = Worksheets("Рабочий").Cells(i, 2).Value = TextBox1.Value
    TextBox2.Value = Worksheets("Рабочий").Cells(i, 3).Value = TextBox2.Value
    TextBox3.Value = Worksheets("Рабочий").Cells(i, 4).Value = TextBox3.Value
    ComboBox1.Value = Worksheets("Рабочий").Cells(i, 5).Value = ComboBox1.Value
    ComboBox2.Value = Worksheets("Рабочий").Cells(i, 6).Value = ComboBox2.Value
    TextBox4.Value = Worksheets("Рабочий").Cells(i, 7).Value = TextBox4.Value
    ComboBox3.Value = Worksheets("Рабочий").Cells(i, 8).Value = ComboBox3.Value
    If ComboBox1.Text = "Глагол" Then
      ComboBox4.Value = Worksheets("Рабочий").Cells(i, 9).Value = ComboBox4.Value
    End If
  Else: Next i

1-я ошибка - нету End If для If Worksheets("Рабочий").Cells(i, 2) = "" Then
Отсюда он ругается, что нет оператора For для Next

2-я: Причём сразу бросившаяся в глаза - Else: Next i
Возможно, в этом есть какой-то логический смысл, но гораздо правильнее использовать Exit For для выхода из цикла по условию.

3-я:

Visual Basic

1	TextBox1.Value = Worksheets("Рабочий").Cells(i, 2).Value = TextBox1.Value

- Вы уверены, что хотите видеть в TextBox1.Value результат сравнения его содержимого с ячейкой листа, т.е. FALSE или TRUE?
Может быть так будет правильнее -

Visual Basic

1	TextBox1.Value = Worksheets("Рабочий").Cells(i, 2).Value

@kuklp · 02.10.2012, 08:41

Лучше пустую строку искать не в цикле:

Visual Basic

Public Sub www()
Dim c As Range
    On Error Resume Next
    Set c = [b1355:b10000]..SpecialCells(4)(1) ' на случай, если есть пропуски
    If Err Then Err.Clear: _
    Set c = [b10001].End(xlUp)(2)
    c = TextBox1
    c(,2)=TextBox2
    c(,3)=TextBox3
...
End Sub

	02.10.2012, 08:41