Скопируйте 2 ячейки и вставьте другой лист после изменения combobox

Question

У меня есть книга, в которой пользователь может добавлять информацию. I.E Имя пользователя и пароль.

Лист2, где хранятся все данные. Я использую колонки A, B AND C.

У меня есть поле со списком на моем UserForm. Исходным источником для моего combobox является столбец A. Когда пользователь выбирает одну из опций из combobox, я хочу, чтобы она копировала значения из столбца B & C и вставляла значения в другой рабочий лист. Это то, что я до сих пор:

ActiveSheet.Range("$A$1:$F$3").AutoFilter Field:=1, Criteria1:=ComboBox1.Value 
Range("B2:C2").Select 
Selection.Copy 
Sheets("Displaypage").Select 
Range("A1").Select 
ActiveSheet.Paste 
Sheets("Database").Select 
ActiveSheet.Range("$A$1:$F$3").AutoFilter Field:=1 
Range("A2").Select 

Но когда я запускаю это я получаю Автофильтр метод класса диапазона не удалось

Кто-нибудь получил другие идеи?

Answer 1

Если предположить, что выпадающий заполняется свойством Источник строк, дать этому попытку:

Private Sub ComboBox1_Change() 

    Dim cbo As ComboBox 
    Dim wsDest As Worksheet 
    Dim rngData As Range 

    Set cbo = Me.ComboBox1 
    Set wsDest = Sheets("Displaypage") 
    Set rngData = Range(cbo.RowSource) 

    wsDest.Range("A1:B1").ClearContents 'Remove previous data (if any) 
    If cbo.ListIndex = -1 Then Exit Sub 'Nothing selected 

    rngData.Cells(1).Offset(cbo.ListIndex, 1).Resize(, 2).Copy wsDest.Range("A1") 

End Sub