MsOffice | Макросы Excel, база данных
 

народ, сос ми! Ситуация такая. Существует книга. В этой книге есть 2 листа. Первый лист называется форма, второй - база. Во втором листе "база" очень-очень много фамилий. Они не повторяются. Надо сделать так, чтобы можно было автофильтром выбрать какую-нить фамилию из списка "база", затем по нажатию кнопки выбранная фамилия оказалась скопированной в первый лист "форма", ячейку а1. Как реализовать копирование по выбранной фамилии? Ведь номер ячейки с фамилией (хоть ячейка и единственная) всегда разный

На кнопку вешай код:

Sub CopyTo()
Sheets("Forma").Cells(1, 1).Value = Sheets("Basa").Cells(Range("A2:A1000").End(xlDown).Row, 1).Value
End Sub

Здесь A2:A1000 - диапазон в котором размещен список фамилий. Если он у тебя другой - подставь соответственно.

Pliomera, спасибо, помогло. А еще вопрос: как сделать проверку в списке фамилий(диапазон заранее неизвестен) и если обнаружены две одинаковые, то автоматическое удаление одной из них.