Копирование строки в Excell

[YALO_K]

Подскажите пожалуйста!!!!!!!!

При вводе текста в Texbox происходит поиск этого текста в таблице, расположенной на Листе2 в Excell. Когда программа находит этот текст, копируется вся строка соответствующей ячеки в таблицу на Лист3. Как сделать так, чтобы при следующем поиске текста запись происходила не на место уже записанных, а в следующую строку расположенную ниже последней строки.
Заранее спасибо!!

Это код программы:

Dim pred As String
Dim i, j, k, p, w As Integer

Private Sub CommandButton1_Click()
pred = TextBox1.Text
Worksheets("Лист2").Activate
k = 1
p = 1
For i = 1 To 6

If UCase(Trim(pred)) = UCase(Trim(Worksheets("Лист2").Cells(i, 2))) Then
k = k + 1
p = 1
For j = 1 To 16
Worksheets("Лист3").Cells(k, p) = Worksheets("Лист2").Cells(i, j)
p = p + 1
Next j
End If
Next i
w = k
End Sub

[Pavel55]

Попробуйте так

Код: Выделить всё

Dim pred As String
Dim i As Integer, j As Integer, k As Integer, p As Integer, w As Integer
Dim iLastRow As Long

Private Sub CommandButton1_Click()
    pred = TextBox1.Text
    Worksheets("Лист2").Activate
    k = 1
    p = 1
    For i = 1 To 6
        If UCase(Trim(pred)) = UCase(Trim(Worksheets("Лист2").Cells(i, 2))) Then
            k = k + 1
            p = 1
            For j = 1 To 16
                iLastRow = Sheets("Лист3").Range("A65536").End(xlUp).Row
                Worksheets("Лист3").Cells(iLastRow, p) = Worksheets("Лист2").Cells(i, j)
                p = p + 1
            Next j
        End If
    Next i
    w = k
End Sub

P.S. Неправильно объявлять переменные таким образом

Код: Выделить всё

Dim i, j, k, p, w As Integer

У вас только переменная w будет иметь тип Integer, а переменные i, j, k, p будут иметь тип Variant. Правильно объявлять так

Код: Выделить всё

Dim i As Integer, j As Integer, k As Integer, p As Integer, w As Integer

P.P.S. Пожалуйста, когда выкладываете свой код на форуме, выделите его мышкой и нажмите кнопку Code, находящуюся над окном, в котором вы пишите сообщение. Тогда ваш код будет оформлен как код, а не как обычный текст и его будет легче читать нам.

[Денис]

Pavel55
Респект
Вот как надо новичков встречать!

[offtop]...Дайте парню статус "Антишаман" [/offtop]

[YALO_K]

Спасибо!!

[Pavel55]

Не за что)