Posts by rYE

    Just want to ask on how to get drown down lists of sheets names into combo form (NOT ACTIVE X control).
    I am using excel on Macbook but it seems active x control does'nt support on excelMac.
    I already have this code but when i used the combo box form (NOT ACTIVE X control).
    I got an error '438'-object doesn't support this property.

    1. Private Sub Workbook_Open()
    2. Dim x
    3. x = GETSHEETS(Array("view"))
    4. Worksheets("view").cmblists.List = x ' cmblists is the combo box form name

    Thank you and Godbless.

    Re: Run-time error 1004

    Sorry i forgot to include..
    Error occurs here:

    1. If Sheets("Powder").Range("b2").Offset(Counter, 0) = cboNames.Text And _
    2. Sheets("Powder").Range("b2").Offset(Counter, 3).Value = dt Then

    Hello guys,
    Just want to ask what's wrong on my code.
    I always encountered this error "Run-time error 1004': Application-defined or object-defined error".
    Her is my code:

    Thanks in advance.

    Good Day abnd merry christmas!
    Just want to ask some help.
    This is almost same with Time-IN and Time-Out made by RoyUk and Apo
    I tweak that code and combine with those Code so that i can create new sample.
    A simple Withdraw and return workbook using userform.
    I have userform containing
    -combobox (cbonames)
    -withdraw and return option button
    -New and Old Check box
    -command button

    I have problem on returning values on duplicates if the withdraw Items has no returns.

    For example:

    Code 5010 that has withdraw of 2 kg but no return ( all 2 kg has been Used) so the return is should be blank.

    But my VBA fill all the blank cells.

    Code Withdraw Return Date
    5010 1 Box 18 kg 22/Dec/2013
    5010 17.20 kg 16.5 kg 22/Dec/2013
    5010 2 kg 14.1 kg 22/Dec/2013 --->> Should be in 15.05 kg
    5010 15.05 kg 16.2 kg 23/Dec/2013 --->> Should be in 18.30 kg
    5010 18.30 kg 23/Dec/2013

    All i want to do is this:
    1. I will use the date as criteria.
    2. the textbox value will go to the opposite of Combobox value with the date NOw.

    This is my workbook..
    Thanks in Advance

    Good day!
    I have created macro to paste special values to other workbook (last row with non-value)
    but my problem is, it takes time to paste those values to target workbook.
    My Macro code do this:
    1. Open the target workbook
    2. Paste special values to the last row of non-value
    3. Save and close the workbook.

    Any suggestions to improve this?
    Here is my code.

    1. Sub Macro1()
    2. Range("Table2").Copy
    3. Application.ScreenUpdating = False
    4. Workbooks.Open Filename:="C:\Users\Ryan\Desktop\test\PCLOG.xlsm"
    5. Sheets("LOG").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial _
    6. Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    7. Workbooks("PCLOG.xlsm").Close Savechanges:=True
    8. Application.ScreenUpdating = False
    9. End Sub

    Thanks in advance

    it's me again.
    I am having difficulty in inserting values into tables.
    What should i change in my codes in order to work with tables:
    Here is my code:

    and my workbook

    Re: HOw to add characters in textbox value.

    Hi roy,
    Thanks for your support.
    I will post my work here if it is already finished.
    And by that you can check for further improvement on my work.
    FYI, i use most of your codes in this forum.I just tweaked and combine it to create my own project.
    Thank you for that..

    Re: HOw to add characters in textbox value.

    Thanks guys..
    It seems that Val(Me.TextBox1.value) still not working on me.
    By the way, i just use the right and LEN function (add 1 column and hide).
    for calculation purposes.

    Hello guys!
    Just want to ask if how to add character on textbox value.
    For example i have textbox1 and i want to add kgs on the result value of that text box.
    So that if i will input 25 and click a command button, the value will become 25 kgs.

    1. TextBox1.value= format (TextBox1.value,"kgs") ' This is not working

    I know how to do it with custom format but i don't know the right code in VBA.
    Hopefully you can help me on this.