Search:

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

Page 1 of 6 1 2 3 4

Search: Search took 0.27 seconds.

  1. Replies
    0
    Views
    26

    Macro slows down with each use

    I have a Worksheet_SelectionChange event that runs very quickly the first time it is triggered after the file is opened. Selecting a cell brings up a calendar and upon selecting a date in the...
  2. Thread: VBA Beginner

    by mumps
    Replies
    4
    Views
    61

    Re: VBA Beginner

    It can actually be shortened to this:

    Sub GuessName()
    If MsgBox("Is your name " & Application.UserName & "?", vbYesNo) = vbNo Then
    MsgBox "Oh, never mind."
    Else
    MsgBox...
  3. Thread: VBA Beginner

    by mumps
    Replies
    4
    Views
    61

    Re: VBA Beginner

    Try:

    Sub GuessName()
    Dim Msg As String, Ans As String
    Msg = "Is your name" & Application.UserName & "?"
    Ans = MsgBox(Msg, vbYesNo)
    If Ans = vbNo Then MsgBox "Oh, never mind."
    ...
  4. Replies
    5
    Views
    30

    Re: Detect Last Filled Row

    Glad to help. :)
  5. Replies
    5
    Views
    30

    Re: Detect Last Filled Row

    Try: =SUMPRODUCT(MAX(ROW(A:A)*(A:A<>"")))
  6. Replies
    6
    Views
    192

    Re: Issue With deleting rows

    Start by removing the formulas in column A of Sheet2. Then do the following: Hold down the ALT key and press the F11 key. This will open the Visual Basic Editor. In the menu at the top click...
  7. Replies
    7
    Views
    149

    Re: insert a column after last column with data

    It works for me. How is it not working for you?
  8. Replies
    6
    Views
    192

    Re: Issue With deleting rows

    For clarification, if you delete "Roma" from Sheet1, you want "Roma" and the "Descrizione" for "Roma" to be deleted form Sheet2. Is this correct? Are you deleting the rows in Sheet1 manually? I...
  9. Replies
    9
    Views
    258

    Re: Look up Next Entry

    You are very welcome. :)
  10. Re: Check 2 cells from source to master file, if match, highligh cell X in master

    You are very welcome. :)
  11. Replies
    9
    Views
    258

    Re: Look up Next Entry

    Make sure both workbooks are open and place this macro in a standard module in the "Fulfilment Tracker - Data" workbook. I used Range("AA1") in the "All Data" sheet as the helper cell. It should...
  12. Re: Check 2 cells from source to master file, if match, highligh cell X in master

    Try this version in the Master. Change the source workbook name (in red) to suit your needs.

    Sub HighlightCell3()
    Application.ScreenUpdating = False
    Dim srcWS As Worksheet, desWS As...
  13. Replies
    11
    Views
    165

    Re: Count Multiple Items in Same Column

    Do you want to count how many times the sheet name "apple" appears in column A and also the sheet name "pears" appears?
  14. Replies
    11
    Views
    165

    Re: Count Multiple Items in Same Column

    This one line of code will do it for "Apple":

    Sub test()
    Range("C1") = WorksheetFunction.CountIf(Range("A:A"), "Apple")
    End Sub
  15. Replies
    9
    Views
    258

    Re: Look up Next Entry

    In order to do what you want, we would need a way of keeping track of the row number of the last found entry. This could be done by using a "helper" cell somewhere on either sheet. We would need a...
  16. Re: Check 2 cells from source to master file, if match, highligh cell X in master

    Try:

    Sub HighlightCell3()
    Application.ScreenUpdating = False
    Dim srcWS As Worksheet, desWS As Worksheet, fnd As Range, x As Long, sAddr As String, Val As String
    Dim v1 As Variant,...
  17. Replies
    9
    Views
    258

    Re: Look up Next Entry

    That would mean that G8 will always contain the last matched entry. Is this correct?
  18. Re: Check 2 cells from source to master file, if match, highligh cell X in master

    I tested the macro on some dummy data and it worked properly. The macro looks for an uppercase "Y" so make sure that is the case with your data. Also make sure there are no leading or trailing...
  19. Re: Check 2 cells from source to master file, if match, highligh cell X in master

    I hope this helps.

    Sub HighlightCell()
    Application.ScreenUpdating = False 'turns off screen refreshing, preventing screen flicker and speeds up the macro
    Dim LastRow As Long, srcWS As...
  20. Re: Excel File Size Question - Why is my file 36Mb with minimal Data in it? - Excel 2016

    Something else you can consider ...…. Do the following: on each sheet, place the cursor in cell A1 then hold down the CTRL key and press the END key. This will take you to the last recognized cell...
  21. Re: Check 2 cells from source to master file, if match, highligh cell X in master

    Place this macro in the source file. Change the workbook name (in red) to suit your needs.

    Sub HighlightCell()
    Application.ScreenUpdating = False
    Dim LastRow As Long, srcWS As...
  22. Re: Check 2 cells from source to master file, if match, highligh cell X in master

    You mentioned column M. What are the other 2 error-checking columns in the source file?
  23. Replies
    5
    Views
    136

    Re: Transferring data from one sheet to another

    Try this version. Change the password (in red) to suit your needs.

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("H:H")) Is Nothing Then Exit Sub
    If...
  24. Replies
    9
    Views
    258

    Re: Look up Next Entry

    If there are more than one matching entries, where do want to paste them? The first would go to G8 but what about the other matching entries?
  25. Replies
    5
    Views
    136

    Re: Transferring data from one sheet to another

    Try:

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("H:H")) Is Nothing Then Exit Sub
    If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
    ...
Results 1 to 25 of 150
Page 1 of 6 1 2 3 4