複製2個單元格並粘貼一次後，組合框已更改

Question

我有一個工作簿，用戶可以在其中添加信息I.E用戶名和密碼。

Sheet2是存儲所有數據的地方。我使用列的A，B和C.

我在我的用戶窗體上有一個組合框。我的組合框的原始資源是列A.當用戶從組合框中選擇一個選項時，我希望它複製列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