Search:

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

Page 1 of 6 1 2 3 4

Search: Search took 0.48 seconds.

  1. Replies
    2
    Views
    106

    Re: number of continuous 0s

    Try this...

    =IFERROR(MATCH(1,K2:K13,0)-1,12)
  2. Re: How do I get Excel to return a value based on the max value in a table?

    Do a search for Excel Reverse two way lookup

    Here's a good one
    https://www.mrexcel.com/forum/excel-questions/345657-reverse-two-way-lookup-post1706232.html#post1706232
  3. Replies
    4
    Views
    208

    Re: Today's date - 5 years

    Try this...

    =IF(G2="YEAR","",IF(DATE(G2,E2,D2)<=DATE(2013,4,30),Q4,IF(DATE(G2+5,E2,D2)<=TODAY(),Q3,Q2)))
  4. Re: Run Time Error '13': Type Mismatch on time calculation

    Good catch JoeMo. It should have been...


    NextTime = Now + TimeValue("00:58:00")
  5. Re: Run Time Error '13': Type Mismatch on time calculation

    EDIT of previous post #3

    TimeCheckDelay is a variable that has yet to be declared and set. It throwing a type mismatch error because it cannot be converted into a TimeValue.

    Put this in the...
  6. Re: Run Time Error '13': Type Mismatch on time calculation

    TimeCheckDelay is a variable that has yet to be declared and set. It throwing a type mismatch error because it cannot be converted into a TimeValue.

    Put this in the ThisWorkbook code module,

    ...
  7. Re: Conditional Formatting with two values

    Use COUNTIFS or SUMPRODUCT

    =COUNTIFS($A$1:$A$10,$A1,$B$1:$B$10,$B1)>1

    =SUMPRODUCT(($A$1:$A$10=$A1)*($B$1:$B$10=$B1))>1
  8. Replies
    6
    Views
    173

    Re: Help with FIND

    The gist of the formula is to replace a given delimiter with a large number of spaces using SUBSTITUTE and REPT, then use the MID function to extract text related to the 2nd occurrence and then the...
  9. Re: Randomize where a random number is limited to the number of repeats

    The code below calculates the max repeat (based on the max number and number of rows), and uses each number at least the max repeat -1. So if the max repeat is 4, then each number will be used at...
  10. Re: Could you check my code, userform to worksheet please

    I didn't follow the need to assign the comboboxes to an array and then loop through them. If there are only two, write each combobox value directly to cells A3 and C3.


    With...
  11. Re: Randomize where a random number is limited to the number of repeats

    Sub Resample2()
    Dim i As Long, lMax As Long, lCount As Long, lRepete As Long
    Dim arr As Variant
    Static bRandomized As Boolean

    If Not bRandomized Then Randomize: bRandomized...
  12. Replies
    4
    Views
    54

    Re: Excluding a column from VBA

    If target.Count > 1 Then Exit Sub
    If target.Column = 2 Then Exit Sub
  13. Re: Concatenate column into textbox on input form - VBA

    This will copy the values in column B to the clipboard (so it available to paste) and then display a message.


    Sub Assets()

    Dim objClipboard As Object
    Set objClipboard =...
  14. Replies
    6
    Views
    173

    Re: Help with FIND

    Try this...

    =TRIM(MID(SUBSTITUTE(A2,"-",REPT(" ",100)),200,100))*1

    The *1 is to convert the result to a numeric value.
  15. Replies
    3
    Views
    85

    Re: Copying files to specific folder

    Sub copy_specific_files_in_folder()

    Dim strSrc As String
    Dim strDest As String
    Dim strFile As String
    Dim vRg As Variant
    Dim vVal As Variant
    Dim...
  16. Re: Form button to control checkbox selection

    Change the name of the checkbox to suit


    Sub Hk()
    With ActiveSheet.CheckBoxes("Check Box 2")
    If .Value = xlOff Then .Value = xlOn Else .Value = xlOff
    End With
    End Sub
  17. Re: Keep userform open when closing other workbooks

    It may help to see your code that closes the workbooks.

    This should close all the workbooks except the UserForm's workbook


    Dim wb As Workbook
    For Each wb In Application.Workbooks
    ...
  18. Replies
    2
    Views
    100

    Re: Delete File Permission Error

    It's not the stream. It is because you opened the file as a workbook and it' is still open.



    Yes. This would allow the original text file to be deleted.

    Alternatively; you could copy the...
  19. Replies
    5
    Views
    132

    Re: Worksheet Change code stuck

    Give an example of what you type in BG1 and what is in BC.
  20. Replies
    5
    Views
    132

    Re: Worksheet Change code stuck

    Private Sub Worksheet_Change(ByVal Target As Range)

    Dim FindString As String
    Dim Rng As Range

    If Not Intersect(Target, Range("BD2:BD1000")) Is Nothing And...
  21. Replies
    2
    Views
    119

    Re: IF w/Not Equal?

    Change all the ORs to ANDs
  22. Re: VBA Search for sheet in .xls but if not found then go to next

    If Evaluate("ISREF('Insulation'!A1)") Then 'Test if worksheet name exists
    'Sheet exists
    Else
    'Sheet doesn't exist
    End If
  23. Re: VBA to find the day number of the year from today's date?

    The day number is formatted as three digits; 001, 002, ...365

    You could change that to suit.

    Declare dn as String if you want a text result, or Long if you want a numeric value.


    dn = "9" &...
  24. Replies
    5
    Views
    208

    Re: SUMIFS with two wildcards

    try...

    =SUMIFS(sum_range,criteria_range,"*"&A1&"*"&B1&"*",criteria_range,"*"&B1&"*"&A1&"*")
  25. Replies
    5
    Views
    208

    Re: SUMIFS with two wildcards

    Try this criteria...

    {"*Atlanta*Nashville*","*Nashville*Atlanta*"}

    Or this...

    {"*"&A1&"*"&B1&"*","*"&B1&"*"&A1&"*"}
Results 1 to 25 of 150
Page 1 of 6 1 2 3 4