Search:

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

Page 1 of 6 1 2 3 4

Search: Search took 0.53 seconds.

  1. Replies
    3
    Views
    51

    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...
  2. 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
  3. 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
    ...
  4. Replies
    2
    Views
    75

    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...
  5. Replies
    5
    Views
    117

    Re: Worksheet Change code stuck

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

    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...
  7. Replies
    2
    Views
    94

    Re: IF w/Not Equal?

    Change all the ORs to ANDs
  8. 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
  9. 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" &...
  10. Replies
    5
    Views
    171

    Re: SUMIFS with two wildcards

    try...

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

    Re: SUMIFS with two wildcards

    Try this criteria...

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

    Or this...

    {"*"&A1&"*"&B1&"*","*"&B1&"*"&A1&"*"}
  12. Re: VBA to find the day number of the year from today's date?

    This?

    ="9"&TEXT(TODAY()-DATE(YEAR(TODAY()),1,0),"000")&"1092"
  13. Re: VBA to find the day number of the year from today's date?

    Try this...
    =TODAY()-DATE(YEAR(TODAY()),1,0)
  14. Replies
    3
    Views
    133

    Re: VBA Running Slow

    this may help...


    Sub Button4_Click()


    With Application
    .ScreenUpdating = False
    .Calculation = xlCalculationManual
    .EnableEvents = False
  15. Replies
    4
    Views
    186

    Re: Uses for the range.find method

    I thought you wanted the bottom of textbox row.

    I don't understand what the rest of that means.
  16. Re: Macro for recalculation of range of cells in active sheet

    Do you have the Sheet calculations set to manual?
  17. Re: Macro for recalculation of range of cells in active sheet

    Private Sub CommandButton1_Click()
    Range("D5:S19").Calculate
    End Sub
  18. Replies
    4
    Views
    186

    Re: Uses for the range.find method

    Try this...


    LowestRow = Sheets("Sheet1").TextBoxes("Text Box 1").BottomRightCell.Row
  19. Replies
    2
    Views
    48

    Re: Spaces in a searchable dropdown

    Maybe this...

    SEARCH(SUBSTITUTE(Sheet1!K4," ",""),'RE PARTS'!D2)
  20. Replies
    2
    Views
    85

    Re: Nested IF in Sliding Scale Formula

    Try something like this

    =IF(A43=0,0,IF($B$33<5000,0.07,IF($B$33<10000,0.06,0.05)))
  21. Replies
    6
    Views
    161

    Re: Sub is this possible

    Sub One()
    Reporting "One"
    End Sub


    Sub Two()
    Reporting "Two"
    End Sub
  22. Re: Validate userform textbox entry -multiple criteria -vba

    This method only verifies the right most characters as they are entered. I don't know how to verify mid edits.
  23. Re: Validate userform textbox entry -multiple criteria -vba

    There's probably a more elegant Reg Edit way, but I don't know RedEd patterns well enough.

    Try this.


    Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    '"12345678" or...
  24. Replies
    1
    Views
    59

    Re: Using VBA to insert different headers

    Dim shp As Shape
    Set shp = Sheets("Sheet1").Shapes("textbox4")
    Sheets("Sheet2").Shapes("ImgG").Copy
    Application.Goto Sheets("Sheet1").Cells(1, 1)
    Sheets("Sheet1").Paste
    ...
  25. Replies
    5
    Views
    226

    Re: VBA to create Worksheets from Template

    Sub AddSheets()
    Dim xRg As Excel.Range
    Application.ScreenUpdating = False
    For Each xRg In Sheets("COURSEID").Range("A2:A77")
    Sheets("Template").Copy...
Results 1 to 25 of 150
Page 1 of 6 1 2 3 4