Excel VBA : Loop Sheets that meets the value in the range

[wassup]

Hey Guys,

Good Morning. I have probelm here.

I have 2 workbooks, 1 is Master.xls (my format to collect all the data), another 1 is Machine.xls (data collect from).

Inside Master.Range("B3:B5") have a data (etc: Line1, Line2, Line3), Machine.xls have a few sheets (etc: Line1, Line2, Line3....Line10).

Now my concern is I want the macro loop Master.Range("B3:B5") , if Master.Range = Line1 then it will loop Machine.xls untill found the sheets name is Line1 then collect data from it. It will loop Master.Range("B3:B5") untill equal to blank.

Thanks for your advice.

[kadghar]

with a couple of IFS/THEN/ELSE and FOR/NEXT it can be done. To make reference to the workbooks, you can use their name or their index (the order they were open)

Check this little example:

If workbooks("myBook1").worksheets("sheet1).range("B1") = workbooks("myBook2").worksheets("sheet1).range("B1") then
workbooks("myBook1").worksheets("sheet2).range("A4") = "Hello World"
else
workbooks("myBook2").worksheets("sheet2).range("C4") = "Goodbye Cruel World"
end if

You can use Indexes or CELLS to put anything into a loop, eg:

 for i = 1 to 5
    workbooks("myBook1").worksheets(i) = "Hello World"
next

and you can always check the content or use the END method to go to the blank space, eg:

i=1
do
    i=i+1
loop until cells(i,1) = ""

HTH

[wassup]

with a couple of IFS/THEN/ELSE and FOR/NEXT it can be done. To make reference to the workbooks, you can use their name or their index (the order they were open)

Check this little example:

If workbooks("myBook1").worksheets("sheet1).range("B1") = workbooks("myBook2").worksheets("sheet1).range("B1") then
workbooks("myBook1").worksheets("sheet2).range("A4") = "Hello World"
else
workbooks("myBook2").worksheets("sheet2).range("C4") = "Goodbye Cruel World"
end if

You can use Indexes or CELLS to put anything into a loop, eg:

 for i = 1 to 5
    workbooks("myBook1").worksheets(i) = "Hello World"
next

and you can always check the content or use the END method to go to the blank space, eg:

i=1
do
    i=i+1
loop until cells(i,1) = ""

HTH

Thanks kadghar,

Its make me many confusing because to many For, Do, Loop.... but I have done it. Have a nice day.