Search:

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

Page 1 of 6 1 2 3 4

Search: Search took 0.51 seconds.

  1. Replies
    7
    Views
    231

    Re: Office 365 Excel 1902 Version Error 1004

    If StoreDir2 is defined as you show it in post #1 , you seem to be missing a path separator.

    Try:


    ActiveWorkbook.SaveAs StoreDir2 & Application.PathSeparator & "Store_" & ws.Name &...
  2. Replies
    3
    Views
    129

    Re: help with dates in VBA

    You are welcome - thanks for the reply.
  3. Replies
    3
    Views
    129

    Re: help with dates in VBA

    Add the line in red font to each case.


    Case "MONDAY"
    c = dte
    c.NumberFormat = "mm/dd/yyyy"
  4. Re: VBA: How to remove all extra spaces or a given character in the beginning and end of all cell data?

    Good catch Peter!
  5. Replies
    4
    Views
    145

    Re: VBA code already there in brand new file

    Perhaps you have add-ins and/or a Personal.xlsb workbook that contains macros.
  6. Re: VBA: How to remove all extra spaces or a given character in the beginning and end of all cell data?

    Maybe:


    Sub RemoveLeadingOrTrailingComma()
    'select cells to alter then run this macro
    Dim c As Range
    For Each c In Selection
    c.Value = Replace(c.Value, ",", "", 1, 1)
    If...
  7. Re: Conditional Formatting - Highlighting differing values

    You are welcome - thanks for the reply.

    The formula must be specific to the pair of columns so I think you need a separate rule for each pair of columns.
  8. Re: Find if a file is locked to a sync program Dropbox, Gdrive or Onedrive

    Possibly, the DoEvents function could be used immediately after the file save. See:
    https://wellsr.com/vba/2018/excel/vba-doevents-and-when-to-use-it/
  9. Re: Conditional Formatting - Highlighting differing values

    1. Select columns A & B.
    2. Home>Conditional Formatting>New Rule>Use a formula
    3. Formula is: =$A1<>$B1
    4. Choose format and click OK
    Repeat for J,K and Y,Z.
  10. Replies
    4
    Views
    113

    Re: Create popup menu to unhide worksheet

    This is untested so may need some tweaking. The code below goes into a Thisworkbook module. Follow the instructions below.

    To install ThisWorkbook code:
    1. With your workbook active press Alt and...
  11. Re: Apply colour to frozen table header when rows hidden

    You are welcome - thanks for the reply.
  12. Re: Rename part of multiple sheets if it meets my critera

    You are welcome - thanks for the reply.
  13. Replies
    4
    Views
    113

    Re: Create popup menu to unhide worksheet

    Only you know where the menu options end and the tab names begin. You need to tell us and, for me at least, does "unhide a set of tabs" mean just one tab for each option or more than one tab for each...
  14. Re: VBA move print area down 1 row from active cell

    You are welcome - thanks for the reply.
  15. Replies
    8
    Views
    128

    Re: VBA: concatenate data

    Rick, OP indicated he wants B-cell text above A-cell text.
  16. Re: VBA move print area down 1 row from active cell

    Not sure I understand exactly what you want. This offsets the print area by 1 row and adds 1 more row to it. Adjust to suit ...


    Sub try()
    With ActiveSheet
    .PageSetup.PrintArea = _
    ...
  17. Replies
    8
    Views
    128

    Re: VBA: concatenate data

    Try this:


    Sub ConcatAandBinC()
    Dim LRw As Long
    LRw = Cells(Rows.Count, "A").End(xlUp).Row
    Application.ScreenUpdating = False
    With Range("C1:C" & LRw)
    .Formula = "=B1&CHAR(10)&A1"
    ...
  18. Re: Rename part of multiple sheets if it meets my critera

    Maybe:


    Sub ChangeSomeSheetNames()
    Dim whichSheets As Variant, changeTo As Variant, Sht As Worksheet, i As Long
    whichSheets = Array("Type1", "Type2", "Type3")
    changeTo = Array("PrixMax",...
  19. Replies
    8
    Views
    128

    Re: VBA: concatenate data

    Not clear to me what you want. Can you post a small sample of the data and how it would look after the VBA is executed?
  20. Re: Apply colour to frozen table header when rows hidden

    Possibly could be done using VBA with a selection_change event macro, but if the user has selected a cell in the frozen range and simply scrolls down w/o making a selection change in tandem nothing...
  21. Replies
    1
    Views
    39

    Re: Time data type in vba

    Time is the part of the serial date number that indicates what fraction of the current day has elapsed. At noon today the serial date number is 43747.5 which can be formatted to: 10/9/2019 12:00 PM
  22. Replies
    3
    Views
    77

    Re: VBA Run-time error '13': Type Mismatch

    You are welcome - thanks for the reply.
  23. Re: VBA: Insert formula with variable number of sheets

    You are welcome - thanks for the reply.
  24. Re: VBA: Insert formula with variable number of sheets

    Maybe:


    Sub TryThis1()
    Dim NumShts As Long
    NumShts = Sheets("CtrlPnl").Range("H12")
    Range("G2").Formula = "=AVERAGE('1:" & NumShts & "'!E2)"
    End Sub
  25. Replies
    3
    Views
    77

    Re: VBA Run-time error '13': Type Mismatch

    Looks like something is missing from the code you posted. Where is the array called NewData declared? If the code does everything you want prior to the For col-Next col block, why not just remove...
Results 1 to 25 of 150
Page 1 of 6 1 2 3 4