Search:

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

Page 1 of 6 1 2 3 4

Search: Search took 0.09 seconds.

  1. Replies
    17
    Views
    454

    Re: Empty textbox needs text

    Ken's suggestions work with your set-up
    Try them in a new workbook
  2. Re: Apply VBA Code When User Has Multiple Sheets Active

    I am away from my PC so cannot test anything for several days but this may help ...

    You can have several sheets selected but only ONE is active

    Instead of ActiveSheet.PrintOut perhaps ...


    ...
  3. Replies
    5
    Views
    271

    Re: VBA CommentThreaded 'show'

    :oops::oops::oops:
    I just spotted that I did not copy everything ..

    Also goes in sheet module

    Private Function GetCommentText(TC As CommentThreaded) As String
    Dim Cmt As String, x As Long...
  4. Replies
    3
    Views
    161

    Re: VBA Insert a formula in a cell

    Threads should stick to the original topic
    - so I suggest you begin a new thread for that question
  5. Re: Merge two ranges together and wrap them into each other

    Try this


    Sub MergeRanges()
    Dim sh1 As Range, sh2 As Range, cel As Range, c As Long
    Set sh1 = Sheets("1").Range("B1:AA100")
    Set sh2 = Sheets("2").Range("B1:AA100")
    Set cel =...
  6. Replies
    3
    Views
    161

    Re: VBA Insert a formula in a cell

    Try this


    Dim f As String
    f = "=IFERROR(AVERAGEIF(Purchase_BarCode,A" & nr & ",Purchase_Cost),""0"")"
    ws.Cells(nr, 3).Formula = f
    f = "=F" & nr & "-G" & nr
    ws.Cells(nr,...
  7. Replies
    2
    Views
    110

    Re: Ignore right mouse click on form control

    Protecting a worksheet would do the trick
    - there are various boxes to tick
    - tick everything EXCEPT Edit Objects

    The above may cause other issues that require a workaround, but does suppress...
  8. Replies
    4
    Views
    111

    Re: change column headings to inches

    File tab \ Options \ Advanced tab \ do down to DISPLAY section \ select INCHES as Ruler Unit in dropdown
    ( displays within the rulers in Page Layout view )
  9. Replies
    5
    Views
    271

    Re: VBA CommentThreaded 'show'

    This is a starting point which you could develop further

    Place in SHEET module


    Private Sub Worksheet_Activate()
    'loop all threaded comments in sheet
    Dim ThreadedComment As...
  10. Replies
    5
    Views
    271

    Re: VBA CommentThreaded 'show'

    You could use VBA to do this by placing the text in a textbox
    - here is a function to get at the detail (amend if you need more information)


    Sub TestFunction()
    MsgBox...
  11. Replies
    17
    Views
    454

    Re: Empty textbox needs text

    Perhaps the problem is in your current workbook (minor corruption ? memory issue ? problem in your existing code ?)

    Ken's suggestions work perfectly well and you should be able to get them to work...
  12. Replies
    3
    Views
    198

    Re: Image auto re-sized when inserted

    1. Place code in SHEET module - will not work anywhere else
    right-click sheet tab \ click View Code \ paste code below into the window which appears \ back to excel with {ALT}{F11}

    2. Click on...
  13. Replies
    17
    Views
    311

    Re: Fullfill blank cells

    Sub Panoos64()
    Application.ScreenUpdating = False
    Dim r As Long, x As Long, cel As Range, B As String, C As String
    With ActiveSheet
    For r = .Range("A" &...
  14. Replies
    17
    Views
    311

    Re: Fullfill blank cells

    So are you saying ...

    IF C contains a hyphen then ...
    ... replace the first 4 characters with B
    ELSE
    ... concatenate B and C
  15. Replies
    17
    Views
    311

    Re: Fullfill blank cells

    I understand the format "0000" problem

    I do not understand the other problem - are you saying that some cells in column C do not contain a hyphen "-" ?
    Should the code ignore those cells ?
  16. Replies
    17
    Views
    311

    Re: Fullfill blank cells

    Sub Panoos64()
    Dim r As Long, x As Long, cel As Range
    With ActiveSheet
    For r = .Range("A" & .Rows.Count).End(xlUp).Row To 5 Step -1
    Set cel = .Cells(r, 2)
    ...
  17. Replies
    1
    Views
    79

    Re: Excel Vba Runtime error 453

    Previous thread
    Is there a reason that you did not reply to the 2 members who tried to help you on another thread ?...
  18. Replies
    17
    Views
    311

    Re: Fullfill blank cells

    Is this what you want ?


    BEFORE

    Excel 2016 (Windows) 32 bit

    A
    B
    C
  19. Replies
    17
    Views
    454

    Re: Empty textbox needs text

    As Ken has already said the flexibility to manipulate a simple textbox is limited
    - the only event available "out of the box" is the click event
    - which is OK if only want one event

    But you...
  20. Re: Excel - running a cmd line from a cell to cmd/powershell

    The code must be placed in a code module

    1. Try adding a shape (eg rectangle) to your sheet, then ...
    2. Right-click on rectangle \ click Assign Macro \ click NEW

    3. Window opens up containing...
  21. Replies
    9
    Views
    209

    Re: Cell Format Include a Footnote

    or use a small shape containing only one character, and place the shape (with no line and no fill) somewhere over the cell so that the cell contents are still visible


    With...
  22. Replies
    9
    Views
    209

    Re: Cell Format Include a Footnote

    You could place a shape over the cell (so the user sees the shape not the cell)
    - then use VBA to update the text in the shape and apply superscipt and colour red to the last character with code...
  23. Replies
    9
    Views
    209

    Re: Cell Format Include a Footnote

    agreed :)



    Superscript option is not available within custom format but see workaround
    https://excel.tips.net/T001946_Superscripts_in_Custom_Formats.html
  24. Re: Run next lines of code while voice still playing

    Sub KellyMort()
    Dim V1 As String, V2 As String, V3 As String, i As Long
    V1 = "I want to run next lines while voice is playing"
    V2 = "I want to walk and talk"
    V3 = "I want to sleep...
  25. Replies
    2
    Views
    97

    Re: Run time error 438

    Your formula looks wrong to me. I would expect a single cell lookup not a range as the first argument in the formula
    "=VLOOKUP(RC[-4]:R[10507]C[-4],Sheet3!R[-1]C[-4]:R[10636]C[-3],2,FALSE)"...
Results 1 to 25 of 150
Page 1 of 6 1 2 3 4