hexagon logo
Register Sign in
  • Replies 3 replies
  • Subscribers 221 subscribers
  • Views 96 views
  • Users 0 members are here
Options
Related

Excel Reporting FCF

Edgewise
I am trying to develop an Excel macro to give the min/max measured value for each feature between every sheet. This is working fine so far, when my measured data appears in column E in excel.

The issue I am having is that if I have a routine that reports an FCF dimension, it shifts every column over 1, and my measured values now appear in column D. This renders my macro useless. I need to report FCF dimensions, so I can't uncheck that box on the Excel formatting tab. I have many different programs that may or may not report FCF dimensions, is there a way to report them without reporting the SEG=1 value?
Parents
  • Thanks for the info! I wasn't sure if there was a way to do it from PC-DMIS and I haven't used VBA very much.

    I was able to get a conditional set up and working. It seems the first measured value will either appear in E10, or G10 so I made a conditional to check the E9 label for "MEAS" and then pull E10 or G10 if true or false respectively.

    Range("C3").Select
    If Worksheets("PCDmisExcel1").Range("E9").Value = "MEAS" Then
    ActiveCell.FormulaR1C1 = "=MIN(PCDmisExcel1:PCDmisExcelEnd!R[7]C[2])"
    Else: ActiveCell.FormulaR1C1 = "=MIN(PCDmisExcel1:PCDmisExcelEnd!R[7]C[4])"
    End If​
    ​
    ​I am in C3 because that is where I will report the data in a new sheet. so R7C2 refers to E10 and R7C4 refers to G10
    after this portion, the macro copies the formula in the active cell and extrapolates down the column to report the rest of the dimensions.
Reply
  • Thanks for the info! I wasn't sure if there was a way to do it from PC-DMIS and I haven't used VBA very much.

    I was able to get a conditional set up and working. It seems the first measured value will either appear in E10, or G10 so I made a conditional to check the E9 label for "MEAS" and then pull E10 or G10 if true or false respectively.

    Range("C3").Select
    If Worksheets("PCDmisExcel1").Range("E9").Value = "MEAS" Then
    ActiveCell.FormulaR1C1 = "=MIN(PCDmisExcel1:PCDmisExcelEnd!R[7]C[2])"
    Else: ActiveCell.FormulaR1C1 = "=MIN(PCDmisExcel1:PCDmisExcelEnd!R[7]C[4])"
    End If​
    ​
    ​I am in C3 because that is where I will report the data in a new sheet. so R7C2 refers to E10 and R7C4 refers to G10
    after this portion, the macro copies the formula in the active cell and extrapolates down the column to report the rest of the dimensions.
Children
No Data
© 2024 Hexagon AB and/or its subsidiaries. Privacy Policy | Cloud Services Agreement