Activate woorkbook

[lopina]

Hi to all!!!

I have two woorkbook opened.
Book1 and Book_cup.
I need to activate Book_cup from Book1 and copy some data with code.
Book_cup change name everyday but is allvays finished with word "cup".

regards
lopina

 

[JE McGimpsey]

One way:

Dim wb As Workbook

For Each wb In Workbooks
If wb.Name Like "*cup.xls" Then
With wb.Sheets(1).Range("A1:J100")
ThisWorkbook.Sheets(1).Range("B2").Resize( _
.Rows.Count, .Columns.Count).Value = .Value
End With
Exit For
End If
Next wb

Note that there's no need to activate if you work with range objects
directly.

 

[lopina]

Thanks

It is working

regards
lopina

One way:

Dim wb As Workbook

For Each wb In Workbooks
If wb.Name Like "*cup.xls" Then
With wb.Sheets(1).Range("A1:J100")
ThisWorkbook.Sheets(1).Range("B2").Resize( _
.Rows.Count, .Columns.Count).Value = .Value
End With
Exit For
End If
Next wb

Note that there's no need to activate if you work with range objects
directly.