Posts by AFIQ

Hi all...

I'm a beginner in VBA. I have a question to ask. Maybe this is a simple question.

How to choose the selected data and then copy and paste it to other workbook using VB?

Before this I manually open the file, copy the required data and then open the other workbook and paste on it. All of this is wasting my time because there are too many file that I need to do same thing every time.

Thanks.

Hi all...

Can anyone experts can provides me the code to open a file in a folder(lot number) from the directory(local disk C) using one command button and 2 textboxs?Below is the illustaration what i'm going to do..

1. User enter directory and specify lot number(textbox). Then click Start button(command button).

[Blocked Image: http://i110.photobucket.com/albums/n81/poex_xp/project2.jpg]

In the lot number folder have the file which need to be open.

2. After Start button is clicked the file is open.

Please anyone help me. Thanks

Re: Count Cells Meeting Condition

use count if?
but how?
i'm not very good in VBA...

Hi all...

1.I have a map which fill with value in the cell like shown below.
2.I need someone to help me to count the value in the cell using VBA.
3.There are many maps with different value that I have to count manually. So it takes time to count the value on by one. I think using macro can helps me a lot.

[Blocked Image: http://i110.photobucket.com/albums/n81/poex_xp/lalallalala.jpg]

4.By referring to the map, I want the VB to count how many value in each cell within the range of the map only, which mean I just want to count how many 1, 14, 19, 2, 99 and others.

5.The answer will be displayed on the bottom of the map like this:
For example:

bin1=?
bin14=?
bin19=?
bin2=?
bin99=?
bin8=?

Thanks.

Re: Flip Rotate Data Range

Hi Ger..

Thanks...
Your code really helps me.
The map flip nicely.

Thanks for helping me solve this problem..:)

Re: Flip Rotate Data Range

The symmetrical of the map based on the center axis of the map. For example:

[Blocked Image: http://i110.photobucket.com/albums/n81/poex_xp/map1.jpg]

In image above, the map isn't symmetry, so the grey cell is ignored. Others will flip.

[Blocked Image: http://i110.photobucket.com/albums/n81/poex_xp/map2.jpg]

In image above, the map is symmetry, so all data in both sides will flip.

Re: Flip Rotate Data Range

Quote from "Ger Plante"

Hi AFIQ - there is a number of mathematical models that can be used to Flip a matrix and a number of Excel tricks that can also be used... all vary significantly in terms of efficiency and therefore speed. For large Matrices, you may need to revisit this algorithm. It will flip anything, either text or numbers.... and makes no assumptions in terms of the shape, number of rows and/or columns in the matrix, only that it starts in cell (1,1), i.e. upper top left.

I understand your code, but it just consider of the using of number 1 on 2 only in the map right?Above data map is just an example. The real data map consists of a mutilple numbers such as shown below. The data in the map always been updated and changed:

[Blocked Image: http://i110.photobucket.com/albums/n81/poex_xp/maporigin.jpg]

How can apply the code that you gave me yesterday?

p/s: If too complicated, can you teach me how to flip the map using the excel tricks?

I have data map in excel. I want to create a program to flip the data map. The data from the top of the data map will flip to the bottom of the map and the data from the bottom will flip to the top of the map. The process is like a mirror reflection.

Like example:

[Blocked Image: http://i110.photobucket.com/albums/n81/poex_xp/datamap1.jpg]

after a command button is clicked, the data will changed to be like this:

[Blocked Image: http://i110.photobucket.com/albums/n81/poex_xp/datamap2.jpg]

Can anyone help me to write the codes?
Thanks..

Hi

I have a data map which is symmetrical. I want to develop a program to flip the data map. The map will flip beyond the center line which like the mirror reflection. Which means the data at the top of the map will flip to the bottom and the data at top will flip to the top. Below is the original map.

[Blocked Image: http://i110.photobucket.com/albums/n81/poex_xp/map.jpg]

I have attached the map file for references.

Re: Data Rotation

Quote from mikerickson

It works for me.

Hi...

Can you attached the file that you have done to me?

Thanks

Re: Data Rotation

Hi

Yes. There are just the wafer map on the screen.
I've tried as you said but still nothing happen?
I've attached you the wafer map analysis file. You can do some edition on it to repair it.

Thanks

Re: Data Rotation

Hi..

I've tried to do like you said.
Is it like this?

Sub cmdRotate_Click()
Sub Rotate_from_Here(xRay As Range)
    Dim vLegend As Range, hLegend As Range
    Dim dataRay As Range, temp As Variant, i As Long
    Dim vRRay As Variant, hRRay As Variant
    Set vLegend = Range(xRay.Cells(1, 1), xRay(xRay.Rows.Count - 1, 1))
    Set hLegend = Range(xRay.Cells(xRay.Rows.Count, 1), xRay.Cells(xRay.Rows.Count, xRay.Columns.Count))
    Set dataRay = Range(xRay.Cells(1, 2), xRay.Cells(xRay.Rows.Count - 1, xRay.Columns.Count))
    vRRay = Application.Transpose(vLegend.Value)
    hRRay = Application.Transpose(Application.Transpose(hLegend.Value))
    For i = 1 To Int(UBound(hRRay) / 2)
        temp = hRRay(i)
        hRRay(i) = hRRay(UBound(hRRay) + 1 - i)
        hRRay(UBound(hRRay) + 1 - i) = temp
    Next i
    Call rotate90counterclockwise(dataRay)
    Range(xRay.Cells(1, 1), xRay.Cells(UBound(hRRay), 1)).Value = Application.Transpose(hRRay)
    Range(xRay.Cells(UBound(hRRay), 2), xRay.Cells(UBound(hRRay), UBound(vRRay))) = vRRay
End Sub
 
Sub rotate90counterclockwise(inRay As Range)
    Dim outRay As Range
    Dim inDataRRay As Variant, outDataRRay
    Dim i As Long, j As Long
    Dim high1 As Long, high2 As Long
    inDataRRay = inRay.Value
    high1 = UBound(inDataRRay, 1)
    high2 = UBound(inDataRRay, 2)
    ReDim outDataRRay(1 To high2, 1 To high1)
    For i = 1 To high1
        For j = 1 To high2
            outDataRRay(high2 - j + 1, i) = inDataRRay(i, j)
        Next j
    Next i
    Set outRay = inRay.Cells(1, 1)
    Set outRay = Range(outRay, outRay.Cells(high2, high1))
    outRay.Value = outDataRRay
End Sub


     
    Call Rotate_from_Here(RotateThisRange)
End Sub

When I clicked the button. Nothing happen?
Why?If anything that I need to add in or change?

Re: Data Rotation

Thanks for the code.

How to use the code?
Just paste it in the module?
Because I see there were 2 sub commands in the giving code.
How to link the codes with the Rotate command button?
Please help. I was blur to use it.

Thanks again.

Hi all

I just want to get some help and suggestion on what i'm currently doing now. I have to develop a program using VB to rotate the data from the wafer map in the image below. The wafer map will be pasted by the user in any size and range. The rotation must be on 90°, 180°, 270° and 360°.

[Blocked Image: http://i110.photobucket.com/albums/n81/poex_xp/untitled-1.jpg]

When user clicked the compare button once, the original wafer map will rotated follow anti clock wise movement to 90°. When user clicked once more, the wafer map will rotate again to 180° and always continuous until the wafer map was in the original condition.

I have attached the wafer map files for references.

Re: Drop Down List In Combo Box

Hi..

The default properties of the combo boxes is already MatchRequired False. I've never changed it. And its remain the same when MatchRequired False/MatchRequired True.

Nothing happen??

Re: Drop Down List In Combo Box

Quote from Simon Lloyd

Check the properties for your ComboBox for as this allows you to have a listfill range select from the dropdown and then type in the combobox too!

Regards,
Simon

I have checked the properties.
But just have

MatchEntry 0-fmMatchEntryfirstLetter
MatchEntry 1-fmMatchEntryComplete
MatchEntry 2-fmMatchEntryNone

the combo box default is MatchEntry 1-fmMatchEntryComplete.

Where can i change the MatchEntry False as you said?

Hi...

Below, I have a code to calculate the value from 4 combo boxes with formula. The problem is this code just provide user to enter data by editing/changing the value in the combo box only, what I want is user can insert other value and the previous value in the combo box is remain in it. The value in each combo boxes consists of non-integer numbers (example: 8.71, 1.00, 0.5, 12.30, etc). So anybody can help?

Private Sub cmd_Calculate_Click()


    Dim A As Double
    Dim B As Double
    Dim H As Double
    Dim T As Double
     
     ' stroke(answer) = 5.4 - (B + height - A - t)
     
    With ActiveSheet
    
    '.OLEObject represents an ActiveX control or a linked or embedded OLE object on a worksheet
        A = .OLEObjects("ComboBox2").Object.Value
        B = .OLEObjects("ComboBox3").Object.Value
        H = .OLEObjects("ComboBox1").Object.Value
        T = .OLEObjects("ComboBox4").Object.Value
        .OLEObjects("Textbox1").Object.Value = 5.4 - (B + H - A - T)
    End With
     
End Sub

Re: Calculate Value Through Formula

Hi..

I just want to ask how to use the combo boxes in VBA in Excel sheet based from my post above.

How to make the drop down list?
How to insert the value in the combo boxes, and then store the value in the combo boxes drop down list?

Thanks

Re: Calculate Value Through Formula

Thanks Reafidy for replying..

Thanks..it works.
But how to make the value that we inserted in the combo box was stored in the list of the combo box?which mean user can refer or take the value back from the list in the combo box.

Thanks

Hi all..

I would like to create a simple program using VB to calculate a value from the list box using a formula. User can insert the value to calculate into the list box and the answer is displayed in the textbox when a command button is clicked. All the value that had been entered by user is stored in the list, so user can refer back to the value that had been entered before this.User also can insert new value in the list box.

the formula is:

stroke(answer) = 5.4 - (B + height - A - t)

I've attached the main page of the program for reference. I hope all experts in this forum can help to solve this.

Thanks.