Search:

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

Page 1 of 6 1 2 3 4

Search: Search took 0.10 seconds.

  1. Replies
    6
    Views
    140

    Re: Copy image in userform to a worksheet

    Glad it worked for you
    Thanks for your feedback :beerchug:
  2. Re: loop through specific sheets and copy entire row into one master sheet if data is in column

    Excellent - thanks for your feedback:beerchug:
  3. Re: loop through specific sheets and copy entire row into one master sheet if data is in column

    Here is what I am using
    - the original macro amended as above (also amended the header row to be copied)


    Sub NewInstrument()
    Dim Ws As Worksheet, w As Variant
    ...
  4. Re: loop through specific sheets and copy entire row into one master sheet if data is in column

    I inadvertently reverted to the previous code in post#12
    Apologies for that..:oops:
    Try


    .Range("A4:ZZ9999").AutoFilter Field:=19, Criteria1:="New Instrument"
  5. Re: loop through specific sheets and copy entire row into one master sheet if data is in column

    did you test amendment suggested in post#12 ?
  6. Replies
    6
    Views
    140

    Re: Copy image in userform to a worksheet

    I forgot to mention that the above code is something I found and modified
    - see Tim Williams contribution https://stackoverflow.com/questions/39521019/copy-picture-from-userform-to-spreadsheet
  7. Replies
    6
    Views
    140

    Re: Copy image in userform to a worksheet

    Here is one way
    - a copy of the image is saved to folder
    - image imported to sheet
    - saved image deleted

    For the first test ... do exactly as below

    1. Open a NEW workbook and SAVE it
    2....
  8. Re: loop through specific sheets and copy entire row into one master sheet if data is in column

    If headers are in row 4, amend these 2 lines


    .Range("A4:ZZ9999").AutoFilter Field:=19, Criteria1:="*new instrument*"
    .Rows("5:9999").SpecialCells(xlCellTypeVisible).Copy Ws.Range("A" &...
  9. Re: loop through specific sheets and copy entire row into one master sheet if data is in column

    I have tested with your formula and the filtering works correctly so there is something different in your data structure

    after this

    .Range("A1:ZZ9999").AutoFilter Field:=19,...
  10. Re: loop through specific sheets and copy entire row into one master sheet if data is in column

    where does your data start?
  11. Re: loop through specific sheets and copy entire row into one master sheet if data is in column

    Try replacing

    .Range("A1:ZZ9999").AutoFilter Field:=19, Criteria1:="*new instrument*"

    with
    .Range("A1:ZZ9999").AutoFilter Field:=19, Criteria1:="New Instrument"
  12. Re: selecting and naming multiple workbooks from listbox

    The way it is written, the code will get increasingly messy as the the number of workbooks increases
    - perhpas a different approach is better
    - same code but done differently
    - Listbox_AfterUpdate...
  13. Re: selecting and naming multiple workbooks from listbox

    Do you want to select 2 workbooks (as per OP) or any number of workbooks ?



    copy ranges (i.e. A11&LR)
    - is this only column A or whole rows ?

    paste it to A11 on sheet1 in ws3
    -...
  14. Re: selecting and naming multiple workbooks from listbox

    Earlier code shows how to derive strings N1 and N2

    To set the 2 worksheets, try ...

    Dim wb1 As WorkBook, wb2 As WorkBook
    Dim ws1 As WorkSheet, ws2 As WorkSheet
    Set wb1= Workbooks(N1 &...
  15. Re: VBA HELP: Problem entering data to Excel table with Form

    Reply to post#6
    BAD

    ws.Range("A" & n + 1).Value = Me.cboTeam1

    GOOD

    ws.Range("A" & n).Value = Me.cboTeam1
  16. Re: selecting and naming multiple workbooks from listbox

    You are confusing me :confused:

    What is in ListBox1 ? (I think it a list of all open workbooks from this bit of code in post#1)

    For Each WB In Workbooks
    UserForm5.ListBox1.AddItem...
  17. Re: VBA HELP: Problem entering data to Excel table with Form

    Similar to Akuini


    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("MatchData")
    Dim n As Long
    Dim tblRow As ListRow
    'add another row to table and use it
    Set tblRow =...
  18. Re: loop through specific sheets and copy entire row into one master sheet if data is in column

    Try this which assumes headers are in row1 starting in A1 (if they are you should not need to amend anything except sheet names list)

    Amend the 8 sheet names


    Sub NewInstrument()
    Dim Ws...
  19. Re: Formula to be copies from sheet 16 onwards

    The variable Ws is no longer being used in the code - it can be removed from declarations in first line

    Thanks for the feedback :beerchug:
  20. Re: Formula to be copies from sheet 16 onwards

    note that I amended the above after initial posting to simplify the code
  21. Re: Formula to be copies from sheet 16 onwards

    - test in a COPY of your workbook



    Sub AddFormula()
    Dim aFormula As String, Rng As Range, Ws As Worksheet, x As Long
    aFormula =...
  22. Replies
    4
    Views
    81

    Re: INDIRECT in Data Validation

    :confused::confused:
    I have no idea why
    [List of Tables] ended up on the next line down
    - I tried to correct it, but for some reason it keeps ending up on the next line down when I update the...
  23. Replies
    4
    Views
    81

    Re: INDIRECT in Data Validation

    Create 3 Named Ranges
    -whose names are names of the original tables followed by underscore
    -with RefersTo being the structured reference to the first column in each table as illustrated below
    ...
  24. Replies
    5
    Views
    99

    Re: Drag Picture on Userform

    :confused: On my screen the image is perfect when dragged
    - the image does not fall apart
    - there are no nasty white flashes when moved
  25. Replies
    4
    Views
    54

    Re: Duplicate value search

    Select cell H70 and ..
    click on Conditional format (Home tab) \ New Rule \ Use formula to determine cell to format \ enter formula below in the box \ click on Format \ etc ..
    ...
Results 1 to 25 of 150
Page 1 of 6 1 2 3 4