Posts by Foxxy1

Re: Named Range As Long

Thank you much. I knew it had to be something simple like that. Thanks again.

Re: Print Area As Long

I guess? I just want it to be as long as there are as many rows in the A cloumn.

Re: Change Font Color Based On Conditions

Don't you need to set what your target is?

Sorry, wrong title. Not trying to set print area, just a named range.
Anyone know what's wrong?

Dim Ptype As Long
    Ptype = Range("A1").End(xlDown).Row
    Range("A1" & Ptype).Select
    Selection.Name = "ProjectType"

It always names one cell only as my named range.

Re: Print Hyperlinked File, Move To Next

Thank you, I was able to get it working with just a few modifications.

Column C (starting at row 5) contains hyperlinks. I want to print the linked file, move down to the next cell, print that file, move on to the next, etc. FYI - The worksheets are from a seperate file.

Re: Set print area automatically

Nevermind

Names.Add Name:="Print_Area", RefersTo:=Selection

Did it.

I have code that is as follows, is there anyway that I can use this to set the print area also?

tmp = ActiveSheet.Range("A2").End(xlDown).Row
    Range("A2:C" & tmp).Select
    With Selection.Borders(xlEdgeLeft)
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeBottom)
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .Weight = xlThin
    End With

Re: Formula referencing wrong cell

Perfection!!! Derk, you really are one of the best!

Re: Formula referencing wrong cell

I think what you are doing is changing where the value will come from, rather than change the reference. I think what I need to do is change sBook from equaling the ActiveCell, but I'm not sure. What I need is the formula that is entered in B2 to have the sBook to equal A2, sFilePath to equal D2, B3 to have the sBook to equal A3, sFilePath to equal D3, and so on and so forth. Make sense???

This does almost exactlly what I want. The one problem that I have is that the active cell remains B1 as it enters the formula in the rest of column B. I need it to refer to the row that it is entering the formulas; meaning each formula entered in B2,3,4, etc. is still referencing cells A1 & D1 for sBook & a sFilePath.

Dim sBook As String
        Dim sFilePath As String
        Dim sLen As Long
            
    Range("B1").Select
    sBook = ActiveCell.Offset(0, -1)
    sFilePath = ActiveCell.Offset(0, 2)
    sLen = Range("A1").End(xlDown).Row
        
    Range("B1").Formula = "='" & sFilePath & "[" & sBook & ".xls]Sheet1'!R1C1"
    Range("B1", Cells(sLen, 2)).Formula = Range("B1").Formula

Re: Reference cell "C2" from hyperlinked file

I'm Sorry guys, this stuff is just a bit over my head. I've attached my two files to hopefully help show what it is I'm trying to accomplish.

Re: Reference cell "C2" from hyperlinked file

Glen - well, the cell itself just looks like "Cameron 5".
I do however know the path of the link and through concatenate can join "Cameron 5" to the full path if that helps.

Dave - Unless I'm mistaken, that appears as though it retrieves the address rather than information within the file.

I have a list of job names in a column. All names contain hyperlinks to a corresponding file. I need to retrieve the value of "C2" in each hyperlinked file and place it next to the original job name. Any suggestions???

Re: Import Text from .doc

Well, copy and paste say, the first 3 lines is great. The problem is, I'm not sure how to dow that. Also, the reason why the cell is corresponding has to do with the job name. For instance, a file called "abc" needs to get pasted next the cell that says "abc". Make sense...hopefully?

I'd like to copy the first few rows of text from a .doc file and paste it into a corresponding cell. A hyperlink to the . doc file will be located on another sheet if that can help find the file location. Any ideas???

Re: Display Ampersand Symbol

Thanks Norie.

Re: Display Ampersand Symbol

Hey Norie,
In a label. I'm actually trying to get PG&E without having to put PG and E.

I just need to be able to display the ampersand symbol. Is there way to do this. Everytime I try it just ends up underlining the next letter.

Thank you.

Re: Select range, change color of every other row

capital, works great, thank you much.