Search:

Type: Posts; User: Blade Hunter; Keyword(s):

Page 1 of 6 1 2 3 4

Search: Search took 0.08 seconds.

  1. Re: Lock a worksheet tab so it is always visible

    Replace all the spaces in the URL with %20
  2. Replies
    6
    Views
    20,415

    Re: VBA: Copy to bottom of existing data

    Perhaps this??



    Range("B3:AQ3").AutoFill Destination:=Range("B3:AQ" & Cells(Rows.Count, "A").End(xlUp).Row)
  3. Replies
    12
    Views
    783

    Re: File Renaming

    Hey Suzie, as Ed has indicated, can you post a copy of the concatenate you tried to do? It's probably easier for us to fix that. Alternatively just post the columns that your original name and new...
  4. Replies
    39
    Views
    5,606

    Re: Excel to Forum Software

    Mac Excel doesn't have VBA so it won't work for you unfortunately.
  5. Replies
    39
    Views
    5,606

    Re: Excel to Forum Software

    MrExcel HTML addin here with a few small mods I made.

    Works fine for me on Windows 8, Excel 2010. The mods I made have nothing to do with it running in this environment I might add.
  6. Replies
    3
    Views
    422

    Re: Find specific word in sentence

    Nice way to catch if it is first or last word too :)
  7. Replies
    11
    Views
    854

    Re: Real basic VBA question

    perhaps this at the worksheet level?



    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Or Target.Column = 2 Then Range("C" & Target.Row) = Range("A" & Target.Row) &...
  8. Replies
    3
    Views
    275

    Re: Copy paste rows within array

    LR=Range("A" & Rows.count).end(xlup).row
    Range("A" & LR & ":XFD" & LR).Offset(1,0).value=Range("A" & LR & ":XFD" & LR).Value
  9. Re: How to lookup corresponding row and column header based on max value in table

    There will be a MUCH better way to do this but I enjoyed messing about with it :)

    Excel 2010
    <colgroup><col style="width: 25pxpx"><col><col><col><col><col><col></colgroup><thead>

    A
    B
    C
    D
    E
  10. Replies
    3
    Views
    255

    Re: read an arbitrary line

    Perhaps something like:



    Sub TXTFile2Array()
    Dim MyArr As Variant
    Open "C:\TextFile.txt" For Input As #1
    MyArr = Split(Input$(LOF(1), #1), vbLf)
    Close #1
    'Do what you want with the array...
  11. Replies
    13
    Views
    822

    Re: Best Way to Search a 2D Array

    Interestingly enough Mike, your code doesn't like an array where dimension 2 is variable length. I don't however understand why. Hoping you can break it down for me?

    In the meantime I have...
  12. Replies
    3
    Views
    138

    Re: Insert a row at "n"

    Rows(n).insert

    where n is a row number

    If you want to insert say 5 lines then it's

    Rows(n & ":" & n+5).insert
  13. Replies
    13
    Views
    822

    Re: Best Way to Search a 2D Array

    Added in CHR(1) and used Mikes awesome index code.

    Still looping dimension1



    Sub ArrStuff()
    Dim MyArr As Variant, FindVal As String, StringOfArr As String, X As Long
    FindVal = "Four"...
  14. Replies
    13
    Views
    822

    Re: Best Way to Search a 2D Array

    Nice :). Saved that little tidbit off for future use :)
  15. Replies
    13
    Views
    822

    Re: Best Way to Search a 2D Array

    Having said that though, if you know how many elements in the first dimension you could do something like this, this works without looping:



    Sub ArrStuff()
    Dim MyArr As Variant, FindVal As...
  16. Replies
    13
    Views
    822

    Re: Best Way to Search a 2D Array

    You could loop through 1 dimension of the array creating a single dimension array each time and searching that in one go.

    If you just want to know if something exists ie true or false rather than...
  17. Re: How to get the first 3 letters from First and Last Name

    A UDF is a User Defined Formula. This is a block of code which is fired when the function is entered.

    Copy the code then right click on the tab and choose "View Code"

    Paste my code then the...
  18. Re: How to get the first 3 letters from First and Last Name

    And this is how you do it with the REPT instead of the UDF:

    =UPPER(LEFT(A1,3) & LEFT(TRIM(RIGHT(SUBSTITUTE(A1," ",REPT(" ",255)),255)),3))

    Here are some results to show what I mean:

    <b>Excel...
  19. Re: How to get the first 3 letters from First and Last Name

    Alternatively use this UDF:



    Function FirstX(MyText As String, X As Long)
    FirstX = UCase(Left(MyText, X) & Left(Split(MyText, " ")(UBound(Split(MyText, " "))), X))
    End Function


    Then in...
  20. Re: How to get the first 3 letters from First and Last Name

    =upper(left(a1,3) & mid(a1,find(" ",a1)+1,3))
  21. Re: Print to PDF Single Page from Worksheet

    Also don't use variable names like "Name" it is a reserved word and can give you issues :).

    Cheers

    Dan
  22. Re: Print to PDF Single Page from Worksheet

    Perhaps this??


    Sub SaveCopy()
    Dim ArchiveFolder as string, ArchiveFileName as string
    ArchiveFolder = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\"
    ArchiveFileName =...
  23. Replies
    42
    Views
    17,718

    Re: Pipe delimited files

    I have once again learned something today :).

    I have never actually used constants to be honest, I always use string variables (I don't know why).

    Thanks for the info Rick :)
  24. Replies
    42
    Views
    17,718

    Re: Pipe delimited files

    Use the environment variables:

    Const FileName As String = environ("HOMEDRIVE") & Environ("HOMEPATH") & "\Desktop\Testfile.txt"

    The system doesn't understand just "Desktop"

    If that doesn't...
  25. Replies
    1
    Views
    175

    Re: Need a new Laptop/PC

    I am using a Microsoft Surface Pro, I was always very anti laptop but this little thing has blown my mind, it's an amazing device and I run all sort of massive sheets, Web scraping / Database...
Results 1 to 25 of 150
Page 1 of 6 1 2 3 4