Continue to Site

Eng-Tips is the largest engineering community on the Internet

Intelligent Work Forums for Engineering Professionals

  • Congratulations cowski on being selected by the Eng-Tips community for having the most helpful posts in the forums last week. Way to Go!

Recent content by ck1999

  1. ck1999

    Galvanize on top of Phosphate

    why not use a water based RP? This can be easily cleaned off and will provide better corrosion protection that an iron phosphate line. The chances are that the RP he wants to cut with xylene will be a lot harder to clean than a synthetic RP Or use safety solvent (142 flash solvent) and cut...
  2. ck1999

    Copying an open excel document with VBA

    I just tried this by modifying your code and the original file name stays open! Not sure what you mean by location ActiveWorkbook.SaveCopyAs NewFileName ck1999
  3. ck1999

    Phospating

    Contact Heatbath. They are the leader in manganese phosphate in the industry. Or contact your supplier. Have you checked: Free Acid Total Acid Iron Content ck1999
  4. ck1999

    Excel to Outlook

    Have you referenced the outlook object library? ck1999
  5. ck1999

    Show off your vba project

    electricpete, if you click on the module name and then click on the properties icon in the toolbar at the top (or hit f4) it will display the properties window and the only property is name ck1999
  6. ck1999

    Controlling the amount of starch entering the drains in a paper mill

    You can look using enzymes to reduce the starchs and COD you will need a holding tank for this to work. I have heard they are very effective in cardboard facilities ck1999
  7. ck1999

    VBA Code for solver constraint not effective

    CardinalKid, Sub test() counter = 1: For i = 1 To 1 For j = 2 To 53 Sheets("DATA").Cells(14, j).Value = Sheets("DATA").Cells(counter, j).Value Next j counter = counter + 1 Worksheets("data").Activate SolverReset SolverOptions , 0.001 'adding constraints SolverAdd "$B$12:$AY$12", 1, "1"...
  8. ck1999

    Graphs in Excel 2007

    See if this helps it uses vba and make more work but hopefully it will help you Sub FixAllPies() Dim pie As ChartObject Set pie = ActiveSheet.ChartObjects("Chart 1") With pie.Chart.SeriesCollection(1) .Points(1).Format.Fill.Patterned msoPatternLightHorizontal...
  9. ck1999

    Graphs in Excel 2007

    To clarify this is excel 2007. Thanks to Microsoft for all the changes jk . I tried a pie chart and you no longer have the options you did with previous editions of excel. GeoPaveTraffic maybe you might want to label your pieces numericall and then have them ontop of your pie pieces and then...
  10. ck1999

    corrective actions for non-conforming products

    Our group is based off of some managers and some representatives. Usually production manager and employee where issue occurred, maintenance and quality manager or representative. ck1999
  11. ck1999

    Displaying most recent entry on excell sheet via another sheet

    You could use this code in the report workbook Sub getinfo() Dim wb As Excel.Workbook Dim sh As Excel.Worksheet wbname = ActiveWorkbook.Name Set wb = Workbooks.Open("\\server\network\data.xlsx") Set sh = Worksheets("sheet1") valuewanted = Range("B" &...
  12. ck1999

    corrective actions for non-conforming products

    Our company uses a CA team. This team is made up of QA, maintenance and production. This team works for us. It has been effective by thinking about the problem from differnt points of views. If production management does not care about QC then it will be hard to get employees consciousness...
  13. ck1999

    Checkbox sends program to other VBA form

    Do you have any other code? What about your before or after update options is there any code listed in them? There has to be other code somewhere. ck1999
  14. ck1999

    Excel and "Date" usage with formula

    My understanding of your question states that you would like to perform a calculation in the row that corresponds with todays Date. And then when tomorrow occurs. The product of todays equation will stay in the cell. If this is correct I would like at putting a macro in the workbook.open...
  15. ck1999

    A Drawing Problem

    Try this Private Sub DrawScales() dblDistTick = frmProfile.txtDistTick.Value dblElevTick = frmProfile.txtElevTick.Value Dim dclicks Dim eclicks Dim counter Dim yloc dclicks = (frmProfile.txtDistMax.Value - frmProfile.txtDistMin.Value) / frmProfile.txtDistTick...

Part and Inventory Search