Posts by Philosophaie

    I want to insert a simple formula into a spreadsheet except the rows and columns are all in numbers.


    This is what I have:

    Code
    Sub display()
          For k = 5 to 35
              Range(Column(k) & "6") = k
          Next  k
     End Sub
     Function Column(Byval I As Integer)
          'convert number into column?
             Column Alpha
     End Function

    I would like to add a list of all my Contacts placed in an email:



    I just got Excel 2013. I cannot figure out how to get my ActiveX buttons to work. I went to File>Options>Trust Center>Trust Center Settings... and enabled all the Macros and ActiveX selections like in Office 2010 but still cannot use the buttons. What am I missing?

    My Excel buttons will not click. There is a Yellow bar at the to stating:

    Quote

    Protected View - Editing this file type is not recommended due to your File Block settings in the Trust Center. Click for more.


    with an "Enable Editing" Button.


    When I click the Enable button .xls files work but .xlsm files do not.


    How do I get rid of this whole "Protected View" so I do not have a Yellow Bar on every worksheet?

    I am trying to change a string to a double so I can do math on it later.


    CDbl does not seem to work.


    Error Code
    "Type Mismatch"


    Code
    Dim Eph as String, deg As Double
    deg = CDbl(Left(Eph, 2))

    In this Excel VBA program working in Word.Application I am having trouble with ".Font.TextColor = Red".


    I think it should be ".Font.TextColor.RGB = something.


    If someone could give me an example it would be much appreciated.


    Also how do you center the FullName?


    Re: Minimum of an array


    I really do not know why this does not function.


    RAsort(i, h) goes between 0 and 24
    DECsort(i, h) goes between -90 and 90


    The RAmax and DECmax work fine.
    The RAmin and DECmin do not work correctly.
    I have ran the numbers thru and the ">" less than sign is not functioning properly.


    Here is my actual code:


    I am trying to find the min and max of array RAsort


    The max works fine.


    The min prints out 1000 thru the whole thing.


    RAsort(i, h) ranges from 1 to 500.



    How do I find the minimum of an array?

    Re: Split the string into individual words


    I can not get this to work:


    Code
    Sub Splitup()
        Dim data As String
        data = Sheets(1).Cells(20, 1).Text
        For Each it In Split(data)
            n = n + 1
            Sheets(1).Cells(20, n + 1) = it
        Next
    End Sub


    Error code when Debugging on "Split":


    Code
    "Wrong Number of arguments or invalid property assignment"

    I have a string with many spaces in it.


    How do I split the string into individual words?


    In ASP.net:


    Dim patname As String = "Public John Q"
    Dim parts As String() = patname.Split(New Char() {" "C})
    Dim firstname As String = patname(0)
    Dim lastname As String = patname(1)


    How is it done in Excel?