Autofill data once a selection is made from a dropdown box.

**ggummo** · 03-13-2013, 11:19 AM

I created a dropdown box and would like the all the data to fill in automatically based on which dropdown selection is picked. I need a little guidance on how to complete this task easily.

Thanks!

**FDibbins** · 03-13-2013, 11:30 AM

Hi and welcome to the forum

Try this, copied down...
=INDEX($A$1:$M$14,ROW(),MATCH($R$1,$A$1:$M$1,0))

**ggummo** · 03-13-2013, 11:55 AM

Thank you!! This forum is going to be a life saver, because the one thing I can not master in Excel are the forumulas!

**jaslake** · 03-13-2013, 11:48 AM

Hi ggummo

Try this Code in the Worksheet Module

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cNo As Long
    If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
    If Target.Address = "$R$1" Then
        Application.EnableEvents = False
        Range(Cells(2, 18), Cells(2, 18).End(xlDown)).Clear
        cNo = ActiveSheet.Rows(1).Find(Range("R1").Value, LookAt:=xlWhole).Column
        Range(Cells(2, cNo), Cells(2, cNo).End(xlDown)).Copy
        Range("R2").PasteSpecial
        Application.CutCopyMode = False
        Application.EnableEvents = True
    End If
End Sub