Excel и VBA

[Skaris]

нужна помощъ с VBA. толъко начал с ней работатъ.
естъ таблица в Excel в который естъ ячейки для заполнения, это №, ФИО ну и так далее. так же естъ кнопка на этой странице открывает форму из VBA через которую должны забиватъся данные этой таблицы. Форма уже сделана, но естъ проблемы с программным кодом.
как это все сделатъ и при этом чтобы заполненные ячейки не трогалисъ а новые данные записывалисъ в ячейки ниже?

[nilem]

Давайте свой файл, попробуем сделать.

[Skaris]

вот, держиРљРЅРёРіР°1.zip

[nilem]

Вот, лови.

[Skaris]

ого, все работает как надо. благодарю
а как осуществитъ поиск через VBA по определенному столбцу, например по номеру клиента? форма простая, строка куда вводишъ номер для поиска и соответственно сама кнопка поиска.

[RomaS]

А вот так)))
Даже без формы. Ищет что угодно, но можно и конкретизировать

[polia]

Помогите пожалуйста.

Написала макрос для выбора данных из списка с помощью автофильтра. С числовыми колонками отрабатывает, а вот с колонкой типа "Дата" отказывается срабатывать. Причем если вручную это все проделать все нормально.
Может я чего не понимаю?
Заранее спасибо.

avto_PZ.Range("A1:H65536").AutoFilter
avto_PZ.Range("A1:H65536").AutoFilter Field:=1, Criteria1:="001-29", Operator:=xlOr, Criteria2:="001-50" '
avto_PZ.Range("A1:H65536").AutoFilter Field:=3, Criteria1:="810"
avto_PZ.Range("A1:H65536").AutoFilter Field:=4, Criteria1:="<01.01.2010"

[EducatedFool]

а вот с колонкой типа "Дата" отказывается срабатывать

Надо сравнивать с числовым значением даты.
В вашем случае это будет так: .AutoFilter Field:=4, Criteria1:="<40179"

Ну или так:

Sub test()
    With avto_PZ.Range("A1:H65536")
        .AutoFilter
        .AutoFilter Field:=1, Criteria1:="001-29", Operator:=xlOr, Criteria2:="001-50"    '
        .AutoFilter Field:=3, Criteria1:="810"
        .AutoFilter Field:=4, Criteria1:="<" & CDbl(CDate("01.01.2010"))
    End With
End Sub

[polia]

Работает!!! Спасибо за помощь!
Честно говоря, не думала что кто-нибудь откликнется. Приятная неожиданность.