Select range with Combobox query.

[shumba]

Hi,

I have a combobox in a workbook named “Full list and charts for 2 August” . This combobox is populated from a list in another workbook called “Copy of Programme Trial Ver 28 2 August”. Currently when I select an item in the Combobox it will copy the selected entry (i.e. just the one cell). I would like to extend this range to include all the data in the row.

Please will someone show me how to do this . The procedure I am using follows.

Private Sub ComboBox2_Change()
      With ComboBox2
      Workbooks("Copy of Programme Trial Ver 28 2 August").Sheets("Price Log").Range("a2").Cells(.ListIndex + 1, 1).Copy
      End With
  End Sub

Any help will be much appreciated.

Thanks,

Rob.

 

[AlphaFrog]

Try something like this...

Private Sub ComboBox2_Change()
      With ComboBox2
      Workbooks("Copy of Programme Trial Ver 28 2 August").Sheets("Price Log").[COLOR="Red"]Rows(2 + .ListIndex)[/COLOR].Copy
      End With
 End Sub

 

[shumba]

Try something like this...

Private Sub ComboBox2_Change()
      With ComboBox2
      Workbooks("Copy of Programme Trial Ver 28 2 August").Sheets("Price Log").[COLOR=Red]Rows(2 + .ListIndex)[/COLOR].Copy
      End With
 End Sub

Thanks for your help. I will give it a go as soon as possible.

Rob.