Search:

Type: Posts; User: Rick Rothstein; Keyword(s):

Page 1 of 6 1 2 3 4

Search: Search took 0.90 seconds.

  1. Re: Parse email address from long strong

    Actually, in thinking about it, the above macro can be done with just a single line of code...

    Sub SplitEmails()
    [A2].Resize(UBound(Split([A1], "@"))) =...
  2. Re: Parse email address from long strong

    Here is another approach you can consider (text assumed to be in cell A1, output starts at cell A2)...

    Sub SplitEmails()
    Dim X As Long, Emails As Variant
    Emails =...
  3. Replies
    6
    Views
    94

    Re: Converting date and hours format

    Here is another formula that should work...

    =TEXT(LEFT(A1,SEARCH("d",A1)-1)+TEXT(MID(A1,FIND(" ",A1)+1,8),"h:mm:ss"),"[h]:mm:ss")
  4. Re: VBA: right of a character and include that character

    The Mid function (in VBA) is even easier to use for the OP's request... you can leave off what I highlighted in red and it will still work the same... the Mid function returns out to the end of the...
  5. Replies
    9
    Views
    160

    Re: Populate cells with array

    You cannot have a blank or zero in the Resize property... either put a 1 after the comma or omit the comma (doing that will make the columns argument the default of 1). Of course, after you fix that,...
  6. Re: VBA - Delete rows that DO NOT contain Bold font

    Silly mistake by me.:oops: Since we are deleting rows, the rows must be iterated from bottom to top... otherwise one of two adjacent rows to be deleted will be skipped when the first is deleted and...
  7. Replies
    13
    Views
    19,612

    Re: DTPicker value NULL

    It is hard to tell what you are attempting to do given that your code is not shown indented, but to answer your direct question... you have two "Private Sub UserForm_Initialize()" in the same...
  8. Re: How to remove consecutive number string only from a column ?

    You have 12345 in your data somewhere? How does that fit in with the data you showed us in Message #1 ?
  9. Re: VBA - Delete rows that DO NOT contain Bold font

    Replace what I highlighted in red above to this...

    Rows(R).Delete xlShiftUp
  10. Re: VBA - Delete rows that DO NOT contain Bold font

    You did not tell us what the range is nor the starting row for your data (excluding the header), so I guessed... change the red highlighted parts as needed...

    Sub DeleteRowsIfAllCellsAreNotBold()...
  11. Replies
    3
    Views
    75

    Re: Correct syntax for row colour

    Try it like this...

    tblrow.Range.Interior.Color = -65383
  12. Replies
    6
    Views
    94

    Re: Converting date and hours format

    So then, the cells contain constant values, not a formulas, correct? If so, select one of those cells... is what is displayed in the cell the same as what is displayed in the Formula Bar? In addition...
  13. Replies
    6
    Views
    94

    Re: Converting date and hours format

    How is this value getting into the cell and what is making it look like that?
  14. Re: Most common number that follows a specified value in a list

    *** duplicate thread ***

    Original thread located here...

    https://www.mrexcel.com/forum/excel-questions/1107286-most-common-number-proceeds-specified-value-list.html
  15. Re: Most common number that proceeds a specified value in a list

    Give this array-entered** formula a try...

    =MODE(IF(B2:B9=C1,B3:B10))

    **Commit this formula using CTRL+SHIFT+ENTER and not just Enter by itself

    NOTE: When adjusting your ranges, note that...
  16. Replies
    6
    Views
    125

    Re: Help with a VBA Formula

    Personal preference I guess, but I always find it easier to read formulas (text) without multiple concatenations, so I like to use stand-in characters (unique to the text being processed) for...
  17. Re: Most common number that proceeds a specified value in a list

    I figured that also, but I am still unclear as to what the data layout is, so I thought it would be best for the OP to explain to us what his data looks like and exactly what part of it needs to be...
  18. Re: Most common number that proceeds a specified value in a list

    What do you mean by a number that proceeds a 10? Since we do not know what your data looks like, perhaps if you show us examples of what is in cells B2:B100 and then explain which values are the ones...
  19. Replies
    5
    Views
    154

    Re: entering date

    I am not sure why it chose that order given your computer's setting; however, if you wish to enter dates in YEAR, MONTH, DAY order, use dashes instead of slashes and I think Excel will convert it...
  20. Re: VBA Randomly Distribute A,B,C,D,E Evenly

    What is GetGrade (see red highlighted text above)? This seems to be the only appearance of it in all of your posted code.

    Also, you need to include a Randomize statement in your code or I think it...
  21. Re: VBA Randomly Distribute A,B,C,D,E Evenly

    Assuming your data is located in Column A and starts on Row 1 (change the red highlighted text if that guess is wrong), give this macro a try...

    Sub RandomEvenDistributionOf()
    Dim R As Long,...
  22. Replies
    12
    Views
    337

    Re: String Function

    :banghead: Yep! :oops:
  23. Replies
    12
    Views
    337

    Re: String Function

    Here is a more compact way to write your non-RegExp UDF (user defined function)...

    Function ONLYUPPER(S As String) As String
    Dim X As Long
    For X = 1 To InStr(S, "/") + 1
    If Mid(S, X, 1)...
  24. Re: VBA check for negative numbers in column and add text in corresponding cell in a different column

    I assumed you had data in Column I that needed to be preserved. If the only text that will be in that column is the "Applied Payment" that this macro puts there, then you can use this macro...
  25. Re: VBA check for negative numbers in column and add text in corresponding cell in a different column

    Give this macro a try (it uses a different, non-looping approach)...

    Sub AppliedPayments()
    Dim LastRow As Long
    LastRow = Cells(Rows.Count, "Z").End(xlUp).Row
    Range("I1:I" & LastRow) =...
Results 1 to 25 of 150
Page 1 of 6 1 2 3 4