[Sam Crunkleton]

I need VB code that will complete the following process:
3 workbooks, one named master, the other two subworkbook_1 and subworkbook_2.
All workbooks have 1 worksheet. The worksheet in the Master workbook is called Master_worksheet. The worksheets in the subworkbooks are named subworksheet_1 and subworksheet_2

From the Master workbook,
open subworkbook_1
copy a finite number of columns (26)
but a variable number of rows (1 to max 5000) from subworksheet_1
activate Master_worksheet
find the first row that does not have data in it (variable from row 1 - row 60,000)
paste the copied data (values only)
close subworkbook_1
repeat above for subworkbook_2

I have a lot of the code already, but for consistency sake, please send the code to complete the process. Thank you so much!

[Advertisements]

why dont u go and into built in vb-editor and record a macro and do itmanually nad then carefully copy code and change to ur needs

if u need more help post back

Stu design

[stu_design]

why dont u go and into built in vb-editor and record a macro and do itmanually nad then carefully copy code and change to ur needs

if u need more help post back

Stu design

[Sam Crunkleton]

I have most of the code already. What I can't record is the search for the first empty row. I know the code is most likely a loop and is empty statement, I just can't get it to work. If you could give me that string of code as a sub I would be on my way. Thank you

[stu_design]

Dim y As Integer
Dim x As Boolean

Sub Macro1()

Sheets("Sheet1").Select
x = True
y = 1

While x = True

Rows(y).Select

If Rows(y).Text = "" Then
    MsgBox "empty row at " & y
    x = False
    End

Else
    y = y + 1
End If

Wend

End Sub

Here's it is

Stu Design

all it takes is a little research and the help option!!!

Edited by stu_design, 31 May 2005 - 12:22 PM.