Search:

Type: Posts; User: mikerickson; Keyword(s):

Page 1 of 6 1 2 3 4

Search: Search took 0.79 seconds.

  1. Re: VBA to find next empty row in worksheet isn't working!!!

    erow is derived from Sheet1, copyrange is on Sheets("MONTHLY REPORT")
    Are they the same sheet?
  2. Re: Place sub category's letters in all items

    I think this VBA will do what you want.

    Sub test()
    Dim StartLine As Long, EndLIne As Long
    Dim i As Long, j As Long, prefix As String
    StartLine = 1
    With Range("F:F")
    ...
  3. Replies
    4
    Views
    103

    Re: Worksheet that Mirrors a Table

    I'm at my dayjob and can't work on this, but the Add employee sounds doable (blank lines for their pre-employment months).
    How familiar are you with VBA. This sounds like a decent sized project. Are...
  4. Replies
    4
    Views
    103

    Re: Worksheet that Mirrors a Table

    You'll need to provide more detail about how these sheets are layed out.

    I'm also wondering what you want when adding or deleting employees.

    If you have a different sheet for Jan, Feb, Mar, ......
  5. Re: Build formula based off value in another Cell

    You could use =INDIRECT(E1&"2")-INDIRECT("F1"&2)

    Which is volatile, or you could use
    =INDEX($A2:$D2,1, Match(E1,{"A","B","C","D"},0)) - INDEX($A$2:$D2, 1, FIND(F1,"ABCD"))
    which is non...
  6. Re: how to get combobox multiselect results to specific worksheets

    I think that this will return the worksheet when given the Trip Name.


    Function SheetFromTripName(aTripName As String) As Worksheet
    Dim Prefix As String, Suffix As String
    Dim oneSheet...
  7. Replies
    29
    Views
    479

    Re: Reverse Hex Byte Pairs

    Once I corrected the misspelling, it worked fine for me.
  8. Replies
    29
    Views
    479

    Re: Reverse Hex Byte Pairs

    Then

    Function myOtherFunction(aNumber as Long) as String
    Dim hexString as String

    HexString = Application.Dec2Hex(aNumber)
    MyOtherFunction = Hex_Pairs_Reverse(HexString)

    End...
  9. Replies
    29
    Views
    479

    Re: Reverse Hex Byte Pairs

    1000 decimal = 03E8 in hex.
    Reverse the pairs is E803
    E803 in hex = 59395 decimal

    That seems to be correct.

    What is the result that you desire from 1000?
  10. Replies
    2
    Views
    106

    Re: Trying to understand ByRef and ByVal

    Its easier to understand ByRef and ByVal with values rather than objects.

    The variables passed to a routine ByRef are effected by changes that routine makes. ByVal values do not cause changes in...
  11. Replies
    29
    Views
    479

    Re: Reverse Hex Byte Pairs

    Can you give me an example of a number, the desired result and the result that myFunction returned?
  12. Replies
    29
    Views
    479

    Re: Reverse Hex Byte Pairs

    How big a number are you talking about

    Something like this would work with small enough numbers. If your values exceed the limits of Excel's Dec2Hex function, you'd have to write your own.

    ...
  13. Replies
    29
    Views
    479

    Re: Reverse Hex Byte Pairs

    Try

    Public Function Hex_Pairs_Rev(ByVal strValue As String) As String
    Dim lngLoop As Long
    Dim strReturn As String

    strValue = Replace(strValue, " ", vbNullString)

    If...
  14. Replies
    29
    Views
    479

    Re: Reverse Hex Byte Pairs

    How do you want to handle numbers with odd numbers of digits?

    I would first start with code like this to clean up the entry and make an even number of digits.


    If Len(strValue) Mod 2 = 1 Then...
  15. Re: convert random list to alphabetical A-Z list

    Put the entries in a column of cells and use Excel's standard Sort feature.
  16. Re: For loop with irregular step or use arrays if possible

    You miss my point. I'm saying that you should use your current loop. Just add code that tests for the VLookup, if it doesn't exist then don't do anything, just go to the next loop.
  17. Replies
    6
    Views
    144

    Re: Automatically Alphabetize Names

    If you want it alphabetized Last, First then yes.
  18. Re: For loop with irregular step or use arrays if possible

    Your original code could be summaraized by


    ' pseudo-code

    For i = 1 to 100
    If i is OK then
    Do something
    End If
    Next I
  19. Replies
    6
    Views
    144

    Re: Automatically Alphabetize Names

    If Last,First is in column E. A helper column with =COUNTIF(E:E,"<="&E1)+ROW(E1)/10000 will give each row a unique number.
    Sorting on that helper column, by a formula similar to your current one,...
  20. Re: Upon opening worksheet check value is present in userform

    Your workbook has just been opened.
    PostageTransferSheet is unloaded.
    How would there be anything (except the default value) in any of the userform's controls?
  21. Re: Upon opening worksheet check value is present in userform

    Default values can be gotten from an unloaded userform.
    But addressing any of the uf properties will automatically load the userform (and run the Initialize event, but not the Activate event), even...
  22. Re: Function kicking error with two workbooks

    It looks like you need to fully qualify this line


    PrevSheet = RCell.Parent.Parent.Worksheets(xIndex - 1).Range(RCell.Address).Value
  23. Replies
    1
    Views
    74

    Re: XLSM Sharing Question

    Could the auto number be generated at time of submission rather than at the start-up of the userform?
    Could the Auto number generating code be modified to account for the pre-existing numbers AND...
  24. Re: VBA Error: Object variable or With block variable not set - while looping through directory

    I am not the person to talk to about cross program coding. BUT, rather than copy/select/paste it would probably be better to put the text from Word into a variable and write that variable to Excel.
  25. Replies
    10
    Views
    248

    Re: Mandatory cell input

    A non code solution would be to put validation on all the cells of the worksheeet with the formula =($B$6<>"")
Results 1 to 25 of 150
Page 1 of 6 1 2 3 4