Форма для ввода, поиска и редактирования данных в таблице exce

[ac1-caesar]

Есть таблица, сделал форму для ввода данных. Включил поиск. При вводе данных в TextBox1 происходит поиск из первого столбца и после соответствия выводит в Textbox2 и TextBox3 значения этой строки соответственно из столбца 2 и 3.

Теперь после редактирования данных в окнах Textbox2 и TextBox3 при нажатии кнопки Cange Record уже измененные данные должны заменить старые в таблице и попасть на то место откуда их и взяли. Т.е. произвести редактирование данных в таблице через форму.

[kuklp]

Кросс:
http://www.planetaexcel.ru/forum/?PA...ID=1&TID=50138
И на кибере.

[ac1-caesar]

Какие варианты кто предложит? Может у кого есть подобная форма?

[doober]

Теперь после редактирования данных в окнах Textbox2 и TextBox3 при нажатии кнопки Cange Record уже измененные данные должны заменить старые в таблице и попасть на то место откуда их

Мне не ясно,когда обновлять надо.
После обработки одной строки,или всех строк

[ac1-caesar]

Ответ находится в вашей цитате

[Dastan.192]

помогите пжлста!
Есть границы телефонных номеров, по которым генерируются рандомно телефонные номера. затем эти номера даются интервьюверам, которые прозванивают. но случается, что среди них есть не существующие номера.
1. нужно создать базу
2. нужно удалять из это базы номера которые будут отмечаться как не рабочие

[ac1-caesar]

одной строки

[doober]

Сообщение от Dastan.192

помогите пжлста!
Есть границы телефонных номеров, по которым генерируются рандомно телефонные номера. затем эти номера даются интервьюверам, которые прозванивают. но случается, что среди них есть не существующие номера.
1. нужно создать базу
2. нужно удалять из это базы номера которые будут отмечаться как не рабочие

Сделаю вам и будем мы получать спам на телефон.

[doober]

Сообщение от ac1-caesar

одной строки

Можно так

Private Sub btnFind_Click()
    Dim i%
    Dim intRow As Integer

    With Worksheets("Data Table")
        intRow = .Cells(Rows.Count, 1).End(xlUp).Row   
        formField2.Tag = ""
        formField3.Tag = ""
        For i = 5 To intRow 
            If formField1 = .Cells(i, 1) Then
                formField2.Text = .Cells(i, 2)
                formField2.Tag = .Cells(i, 2).Address
                formField3.Text = .Cells(i, 3)
                formField3.Tag = .Cells(i, 3).Address
            End If
        Next i
    End With
End Sub

Private Sub CommandButton1_Click()
    With Worksheets("Data Table")
        If formField2.Tag = "" Then Exit Sub
        .Range(formField2.Tag) = formField2.Text
        .Range(formField3.Tag) = formField3.Text
    End With
End Sub

[ac1-caesar]

doober, вот это спасибо!