Search:

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

Page 1 of 6 1 2 3 4

Search: Search took 0.36 seconds.

  1. Replies
    11
    Views
    152

    Re: Optimize VBA copy/paste

    Glad you sorted it & thanks for the feedback
  2. Replies
    9
    Views
    90

    Re: Deleting Columns Faster

    Glad you found a solution & thanks for the feedback
  3. Replies
    5
    Views
    36

    Re: VBA delete last row help

    You're welcome & thanks for the feedback
  4. Replies
    9
    Views
    90

    Re: Deleting Columns Faster

    For that amount of data it takes me under 1 second
    I've tested it on 100,000 rows with columns A:CO and it took about 4 seconds.

    Try Ctrl + End where does that take you?
  5. Replies
    5
    Views
    36

    Re: VBA delete last row help

    Or
    For Each ws In Worksheets
    ws.Range("A" & Rows.Count).End(xlUp).EntireRow.Delete
    Next ws
  6. Replies
    9
    Views
    90

    Re: Deleting Columns Faster

    Having seen post#4, try
    Application.EnableEvents = False
    as well.
  7. Replies
    9
    Views
    90

    Re: Deleting Columns Faster

    In that case I'm not sure there's much more you can do.
    How much data do you have on the sheet?
  8. Replies
    5
    Views
    66

    Re: On Error GOTO Quit

    You're welcome & thanks for the feedback
  9. Replies
    1
    Views
    47

    Re: Insert Found Column

    How about
    Set Fnd = Range("8:8").Find("WBS", , , xlWhole, , , False, , False)
    If Not Fnd Is Nothing Then
    Intersect(Range("8:5000"), Fnd.EntireColumn).Copy
    Range("B8").Insert xlToRight
    ...
  10. Re: Excel Formula to show countif criteria from only visible cells.

    How about
    =COUNTIF('Sheet1t'!B2:B600,"Alpha")
  11. Replies
    1
    Views
    58

    Re: Filter, copy and paste into another sheet

    Try removing the lines in red
    Sub filter()
    Application.ScreenUpdating = False
    Dim x As Range
    Dim rng As Range
    Dim last As Long
    Dim sht As String
    Dim lastRow As String
  12. Re: Conditional format if year in cell's date is same as current year

    You're welcome & thanks for the feedback
  13. Replies
    5
    Views
    82

    Re: VBA to define variable using if then

    Along with Joe4's comments, the if statement should be like
    Dim Nme As String
    If ComboBox2.Value = "Bill" Then
    Nme = "Bill@gmail.com"
    ElseIf ComboBox2.Value = "George" Then
    Nme =...
  14. Replies
    5
    Views
    82

    Re: VBA to define variable using if then

    You only set Objects not strings, so remove the word "Set".
    Also you are declaring a variable called name, but then using a variable called carrier.
  15. Replies
    9
    Views
    90

    Re: Deleting Columns Faster

    Have you tried turning ScreenUpdating, calculations & events off?
  16. Replies
    5
    Views
    66

    Re: On Error GOTO Quit

    You need to exit the sub, before the Quit, like
    Exit Sub
    Quit:
    MsgBox ("Please Add Data to Template Sheet" _
    & vbNewLine & "Then Run Program")


    I would also advise against using VBA keywords...
  17. Re: Conditional format if year in cell's date is same as current year

    How about
    =Year(A2)=YEAR(TODAY())
  18. Re: Formula to Return Training Status with Multiple Outputs

    Hi & welcome to MrExcel.
    How about
    =IF(B2="",IF(A2="","No Value",IF(A2>=TODAY(),"On Time","Past-Due")),IF(A2="","Complete",IF(A2>=B2,"On Time","Past due")))
  19. Replies
    3
    Views
    32

    Re: Copy rows with data to another workbook

    You're welcome & thanks for the feedback
  20. Re: Conditional Formatting referencing multiple sheets

    You're welcome & thanks for the feedback
  21. Replies
    3
    Views
    32

    Re: Copy rows with data to another workbook

    Change this line
    ws.Range(ws.Cells(3, 1), ws.Cells(lrw, lc)).Copy
    to
    ws.Rows("3:" & lrw).Copy
  22. Re: Importing multiple excel files into one spreadsheet

    You're welcome & thanks for the feedback
  23. Re: VBA to create, place and name Shape from Values in cells

    You're welcome
  24. Re: Importing multiple excel files into one spreadsheet

    Ok, how about
    Sub Woofy()
    Dim Pth As String, Fname As String
    Dim Ws1 As Worksheet, ws2 As Worksheet

    Application.ScreenUpdating = False
    Set Ws1 =...
  25. Re: Importing multiple excel files into one spreadsheet

    Is that the name of the file with the code?
Results 1 to 25 of 150
Page 1 of 6 1 2 3 4