Activate woorkbook
 

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

Activate woorkbook
 

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.

In article ,
"lopina" wrote:

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

Activate woorkbook
 

Thanks

It is working

regards
lopina

"JE McGimpsey" wrote in message
...
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.

In article ,
"lopina" wrote:

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