Posts by Barrie Davidson

    Re: Change in data; comparing 2 workbooks


    That should be four lines not 3. Make sure it's

    Code
    1. Comparison.Formula = "=INDEX([" & LastMonth.Name & _
    2. "]OPTY fActMgr gGTM Excel!" & LookupRange.Offset(, -6).Address & ",MATCH(L2,[" & _
    3. LastMonth.Name & "]OPTY fActMgr gGTM Excel!" & LookupRange.Address & ",0))"
    4. Comparison.Value = Comparison.Value


    and not

    Code
    1. Comparison.Formula = "=INDEX([" & LastMonth.Name & _
    2. "]OPTY fActMgr gGTM Excel!" & LookupRange.Offset(, -6).Address & ",MATCH(L2,[" & _
    3. LastMonth.Name & "]OPTY fActMgr gGTM Excel!" & LookupRange.Address & ",0))" Comparison.Value = Comparison.Value

    Re: Change in data; comparing 2 workbooks


    This works okay for me, let me know your results.

    Re: Delete block of rows


    The macro will delete five rows if it finds an exact match for "QWD" (as per your first posting). Please clarify your data (I'm guessing that the cell begins with "QWD"?).

    Re: Extract a block range from a street address and remove a community from a string


    I would suggest you:
    • Do a find and replace (CTRL+H) for the quote marks. Find the quote and replace with nothing.
    • Do another find replace for the dash mark (this assumes you always have a space after the dash and the block numbers have no space between the dash). In the find box put "- *" (not including the quote marks) and put nothing in the replace box.
    • Then parse the data using TextToColumns and select space as your delimiter.


    Please post back your results or if you have any further questions.


    Regards,

    Re: Delete block of rows


    Welcome to the Board.


    Is it always five rows you're going to delete? If yes, you could use (note this searches the entire activesheet for "QWD"):

    Re: Print Hidden Dynamic Worksheet


    Quote from beeker

    Now I do have in Page setup, to print line $1:$6 on each page (column headers)


    Given that, I would change

    Code
    1. Sheets("Pricing").PageSetup.PrintArea = "$A$1:$H$" & _
    2. Sheets("Costing").Range("B65536").End(xlUp).Row


    to read

    Code
    1. Sheets("Pricing").PageSetup.PrintArea = "$A$7:$H$" & _
    2. Sheets("Costing").Range("B65536").End(xlUp).Row



    I am not clear on the rest of your problem. Based on the sample posted, you would only print to row 10 (determined by Costing) while you've got data in your Pricing workbook going to row 13. Can you clarify this for me?

    Re: Concatenate if equal too..


    Re: Concatenate if equal too..


    Change to

    Re: column duplicates / merge data formula and/or macro???


    Will this work?