Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  1. Aeneas

    Programmatically Changing the Quick Access Toolbar

    I used to use a nifty piece of code in Excel 2003 that could add buttons to a custom button bar: Dim Magic8Ball As CommandBarButton Set Magic8Ball = CommandBars("MyButtonBar").Controls.Add(msoControlButton) Magic8Ball.FaceId = 1845 Magic8Ball.Style = msoButtonIcon Magic8Ball.TooltipText =...
  2. Aeneas

    Excel 2003: Hyperlink in TextBox

    Seems simple enough, but is there any way to create a hyperlink in a textbox?
  3. Aeneas

    Implicit Sheet referral in Excel VBA

    What happens is it works. Wow, that's awesome. Thanks!
  4. Aeneas

    Implicit Sheet referral in Excel VBA

    Why does: Sheets("Sheet1").Select Range("A1").Value = Sheets("Sheet2").Range("B2").Value work, yet: Sheets("Sheet2").Select Sheets("Sheet1").Range("A1").Value = Range("B2").Value does not work?
  5. Aeneas

    Excel VBA: Looping through shapes on a worksheet

    As always Skip, you have the simple and perfect answer. Thanks!
  6. Aeneas

    Excel VBA: Looping through shapes on a worksheet

    What I want to do is loop through all the shapes on a worksheet (for all worksheets in a workbook, I guess) and if they are textboxes, change some of the default formatting. I believe I have most of the code worked out, but am getting a runtime error that the object doesn't support being...
  7. Aeneas

    EXCEL: Executing Text as a Formula

    A1 formula: =5 B1 formula: =6 C1 formula: ="A1*B1" D1 formula: ? What sort of function could I put in D that would "execute" or "calculate" or "interpret" the C1 text into a formula that would return 30? I know how to do it in VBA, but is there a formula that would be like: =REFERENCE(C1)...
  8. Aeneas

    PageBreak removal

    Crap -- it's: ActiveSheet.HPageBreaks(1).Delete Tried a whole whack of stuff, but this seems to work. When I tried this, I don't think I had HPageBreaks[1] set, so got a runtime error, but this works. Sorry for the waste of time.
  9. Aeneas

    PageBreak removal

    This seems simple enough: ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell How about removing one. I don't want to reset all as in: ActiveSheet.ResetAllPageBreaks I just want to get rid of the one, like: ActiveSheet.HPageBreaks(1).Remove But this doesn't work. Any...
  10. Aeneas

    Excel VBA: Search an Array for a value

    Brilliant! Never thought of using InStr, even though I referred specifically to it, but didn't know of Join function until now. Nice touch with the extra commas on the front and back to get a true independent find. Thanks so much!
  11. Aeneas

    Excel VBA: Search an Array for a value

    Suppose I have made an array in VBA, something like: ShirtCols = array("red", "beige", "white", "black", "blue") MyCol = "pink" I want to see if pink is an acceptable shirt colour as per this array (perhaps representing what I have in my closet right now). I could do: for i = 0 to 4 if...
  12. Aeneas

    Return Number of Rows/Columns in a selection.

    Right, right. I've used count before, just couldn't remember it and it was a while ago. You da man, Skip. Thanks!
  13. Aeneas

    Return Number of Rows/Columns in a selection.

    I want to loop through a selection, looping through the columns and then the rows. "selection.rows" returns the array, which one can then tack on stuff like ".cells(1,1)" but how do I get the length of the array in rows and columns? Thanks in advance as I know this should be pretty easy.
  14. Aeneas

    Exit Procedure?

    Rob, in this situation, you can just exit sub in the main code, but here's another idea that perhaps can extend this "problem" to greater application: Private Function Check_Type(TestVar as Variant, Check as Boolean) Dim <variables> If TestVar Not <something> Then Check = True End If End...
  15. Aeneas

    Easy One? Dimming Controls

    Wow, this works. So simple. MS so butt-backwards sometime - TextBox object doesn't work, but Control object does. Anyway, aside from going into the details of my design, I have come across many instances where it would be useful to loop through controls without using 'for each ctrl in...
  16. Aeneas

    Easy One? Dimming Controls

    Well, I am in VBA, in UserForm1's code window, and whether I just use TextBox1 or Me.TextBox1 or UserForm1.TextBox1 it gives me a type mismatch. Exactly: Private Sub CommandButton2_Click() Dim txtAction As TextBox Set txtAction = Me.TextBox1 End Sub
  17. Aeneas

    Easy One? Dimming Controls

    Dim txtFirstName as TextBox Set txtFirstName = UserForm1.TextBox1 Why doesn't this work? I've also tried using some vbObject type of stuff here, but I am fairly unfamiliar - is there an easy syntax fix for this? Thanks again! Cheers, Tom
  18. Aeneas

    Excel UserForm: Reference Objects Implicitly for a Loop

    The FAQ looks promising, I'm just surprised that one cannot use something like: Sheets("Sheet1").Select for: TextBoxes("TextBox" & Num).Value or even: Sheets(16).select for: TextBox(Num).Value I find many applications where it would be easier if I could reference in-VBA controls (such...
  19. Aeneas

    Excel UserForm: Reference Objects Implicitly for a Loop

    I have a UserForm with six groups of textboxes representing teams. For each team, a textbox holds "Team Name", "Coach's Name", "Number of Players", "Wins", "Losses". What I want to do is loop through each group, like: For myTeams = 1 to 6 TextBox(myTeams).Value = "Lakers"...
  20. Aeneas

    Update one excel sheet from another workbook

    You don't need macro code at all: Put this in column &quot;C&quot; and copy it down for all occupied rows: =IF(ISERROR(VLOOKUP(B1&&quot;, &quot;&A1,[Book2]Sheet1!$A:$A,1,FALSE)),&quot;&quot;,&quot;x&quot;) This part: B1&&quot;, &quot;&A1 means take content of B1, merge the string &quot...

Part and Inventory Search

Back
Top