Compare/Copy columns from two books?

Very happy to hear that it worked!

In your spare time - put the following into any macro and run it...
watch what happens...

Dim wkbk As Workbook
For Each wkbk In Application.Workbooks
MsgBox wkbk.Name
Next


--
steveB

Remove "AYN" from email to respond
"dailo" <dailo.1slfuq_1122073565.4925@excelforum-nospam.com> wrote in
message news:dailo.1slfuq_1122073565.4925@excelforum-nospam.com...
>
> Thanks it works! Didn't realize that the files had to saved onto the
> disk, or at least that's what seemed to have fix it. Just need to
> tweak it a little more to make it format better and easier to use.
> Thanks.
>
>
> --
> dailo
> ------------------------------------------------------------------------
> dailo's Profile:
> http://www.excelforum.com/member.php...o&userid=25500
> View this thread: http://www.excelforum.com/showthread...hreadid=389444
>

So I'm tweaking around a little more and I want the delta to display as a percentage how can I format this line so that it will display as a percentage instead of a decimal?

wkbk3.Sheets(x).Range("D1:D" & lrw).FormulaR1C1 = "=abs((RC[-2]-RC[-3])/RC[-2])"

Thanks.

with wkbk3.Sheets(x).Range("D1:D" & lrw)
.FormulaR1C1 ="=abs((RC[-2]-RC[-3])/RC[-2])"
.NumberFormat = "0.00%"
end with

--
steveB

Remove "AYN" from email to respond
"dailo" <dailo.1sqlz7_1122314801.7981@excelforum-nospam.com> wrote in
message news:dailo.1sqlz7_1122314801.7981@excelforum-nospam.com...
>
> So I'm tweaking around a little more and I want the delta to display as
> a percentage how can I format this line so that it will display as a
> percentage instead of a decimal?
>
> wkbk3.Sheets(x).Range("D1:D" & lrw).FormulaR1C1 =
> "=abs((RC[-2]-RC[-3])/RC[-2])"
>
> Thanks.
>
>
> --
> dailo
> ------------------------------------------------------------------------
> dailo's Profile:
> http://www.excelforum.com/member.php...o&userid=25500
> View this thread: http://www.excelforum.com/showthread...hreadid=389444
>