Search:

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

Page 1 of 6 1 2 3 4

Search: Search took 0.53 seconds.

  1. 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
  2. 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
    ...
  3. Replies
    2
    Views
    71

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

    Re: Worksheet Change code stuck

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

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

    Re: IF w/Not Equal?

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

    Re: SUMIFS with two wildcards

    try...

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

    Re: SUMIFS with two wildcards

    Try this criteria...

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

    Or this...

    {"*"&A1&"*"&B1&"*","*"&B1&"*"&A1&"*"}
  11. 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"
  12. Re: VBA to find the day number of the year from today's date?

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

    Re: VBA Running Slow

    this may help...


    Sub Button4_Click()


    With Application
    .ScreenUpdating = False
    .Calculation = xlCalculationManual
    .EnableEvents = False
  14. Replies
    4
    Views
    182

    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.
  15. Re: Macro for recalculation of range of cells in active sheet

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

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

    Re: Uses for the range.find method

    Try this...


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

    Re: Spaces in a searchable dropdown

    Maybe this...

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

    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)))
  20. Replies
    6
    Views
    161

    Re: Sub is this possible

    Sub One()
    Reporting "One"
    End Sub


    Sub Two()
    Reporting "Two"
    End Sub
  21. 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.
  22. 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...
  23. Replies
    1
    Views
    58

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

    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...
  25. Re: Looking for a value in a range and acting if it's not found

    Sub voucher()
    Dim voucher As Range, v As Variant, counter As Long
    For Each voucher In Sheets("Temp").Range("B2", Sheets("Temp").Range("B" & Rows.Count).End(xlUp))
    With Sheets("2....
Results 1 to 25 of 150
Page 1 of 6 1 2 3 4