Please help. Need vba to copy and paste based on combos result. Thanks

[pedie]

Hi,

In book1 of Sheet1
I have from Combobox1 validation(ActiveX)
And the list has names,like Kath, James, Aaron etc.
whenever I select any names I want the macro to go and select book2, copy the range("A1:B10") for kath and come back to book1 and paste
in range E1.If James is selected copy the range("G1:J10") for kath and come back to book1 and paste
in range E1 etc..
Pls give me the idea of the vba code and so that i can work out the rest.

Thanks for helping.
Pedie

 

[meldoc]

Hello

In book2 sheet1, name the ranges for each individual, IE name A1:B10 Kath, G1:J10 name James, ECT.
Then try.

<font face=Courier New><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> ComboBox1_Change()<br>  Range("E1").CurrentRegion.ClearContents<br>    Workbooks("Book2").Sheets("sheet1").Range(ComboBox1.Value).Copy Range("E1")<br>  Range("E1").CurrentRegion.Columns.AutoFit<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>

 

[pedie]

Meldoc, thanks for replying has blackout last night so could not return to see my answer...

k, actually i was trying to pull the information from read only...so I will not be able to name range...

Please when you come around...do me a modification. And the file is not in my desk top but i have the path to shared network drive. My current code is below, please add more if and condition to it...and file path...


Thanks again
Pedie

I was trying it withing one sheet as i dont know how to connect to other workbook...

Private Sub ComboBox1_Change()
  If ComboBox1.Value = "James" Then
   Sheets("Sheet1").Range("B2:D10").Copy
   Sheets("Main").Select
   Range("J3").Select
   ActiveSheet.Paste
  
   Else
End If
End Sub

 

[pedie]

It is resolved- Thanks alot!