Copy from cell A3 workbookA into cell A3 workbookB

mona_upm84 · September 4th, 2008, 06:22 PM

Hi all,

I need some help... Let say from a userform, there is a comboBox1 list all .xls files in My Document. As soon as the user choose one of the list and click Submit, userform closed and data from cell A3 in selected .xls copied into A3 of the current workbook, Sheet1.

How can i do that? I tried many ways, but failed. Hope somebody can help me....

Shasur · September 5th, 2008, 01:31 AM

Hi Mona

Here is a hint.

Code:

Private Sub CommandButton1_Click()

Dim sWB As String
Dim sPath As String
Dim oWB1 As Workbook
Dim oWB2 As Workbook
 
 
sPath = "c:\temp\"
sWB = ComboBox1.Value

Unload Me

Set oWB1 = ActiveWorkbook
Set oWB2 = Workbooks.Open(sPath & sWB)

oWB1.Sheets(1).Range("A3").Value = oWB2.Sheets(1).Range("A3").Value

oWB2.Close (False)

End Sub

Cheers
Shasur

http://www.dotnetdud.blogspot.com

VBA Tips & Tricks (http://www.vbadud.blogspot.com)