Visual Basic + Exell Опции

[@^WARlock^@]

Такая вот дилема, может комут-то покажется это смешным но всетаки.
Допустим я создаю форму, она состоит из одного текстового окошка (окошко куда вводится текст), кнопки1 и кнопки2.

Как сделать, чтобы при нажатии кнопки1, текст введенный в окошко копировался в ячейку (1,1), а при нажатии кнопки2 текст удалялся из окошка и ячейки.

[FreeMan]

если ты оформляешь прям в екселе, то чтото типа

Код

Cells(1, 1).Value = TextBox1.Text

в событии кнопка1.онклик

Код

Cells(1, 1).Value = ""

в событии кнопка2.онклик

[@^WARlock^@]

Благодарю.
А в ComboBox1(раскрывающийся список), как сделать чтобы внем отображались слова, ну допустим название машин или животных и т.д. и т.п. И при выборе необходимого слова оно сохранялось в ячейку (Сохр. происходит также, как и в предыдущем случае?).

[FreeMan]

combobox1_onchange:

Код

Cells(1, 1).Value = ComboBox1.Value

Form_onload:

Код

ComboBox1.AddItem("car1")
ComboBox1.AddItem("car2")
ComboBox1.AddItem("car3")
...

[@^WARlock^@]

Круто-та.
И еще наверное последние в данный момент нюансы которые меня интерисуют.

Можно-ли сделать, чтобы при нажатии кнопки, заполненые поля, раскрывающиеся списки в самой форме отчищались (т.е. становились, как перед заполнением).

Как при нажатии кнопки отчистить все ячейки разом, начиная ну допустим с 5-й строки и ниже или выше.

При нажатии "кнопки сохранить" на форме, надо чтобы сохранялся только лист3, а не вся книга.

Добавлено через 9 мин.
А вот чуть не забыл.

Почему когда я вкнопке прописываю код, для открывания поискогого окна оно не появляется(может код не тот).

Application. OnKey "^F"

[FreeMan]

Код

Range("A1:A9").Select
Selection.Clear

очистит ячейки с а1 по а9

Код

ComboBox1.Clear

почистит список

[@^WARlock^@]

Так как сделать, чтобы при нажатии "кнопки", сохранялся допустим только лист3, а не вся книга.

И по поводу кода для окрытия поискового окна (т.e. CTRL+F), правильный он или нет?

[@^WARlock^@]

Сделал поисковое окно.
При введении данных не имеющихся на листе вылетает ошибка. Как сделать, чтобы она не вылетала, или чтобы появлялось сообщение, что данные удовлетворяющие поиску не найдены.
 find.xls ( 28.5 килобайт ) Кол-во скачиваний: 521