Posts by rYE

    Hello,
    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.

    Code
    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:

    Code
    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.

    Hello,
    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
    -Textbox
    -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..
    ozgrid.com/forum/core/index.php?attachment/58123/
    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.

    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

    Hi,
    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
    ozgrid.com/forum/core/index.php?attachment/57896/

    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.

    Code
    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.