Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations MintJulep 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 palusa

  1. palusa

    Not find

    Fernando, below my solution. I have 1st part of data in Sheet1 cols A1:A20, same part + something else in Sheet2 cols F1:F20 and the range in Sheet3 for unfound starts in C1. On sheet1 I have a button that activates the following macro: Private Sub CommandButton1_Click() Dim rS1 As Range, rS2...
  2. palusa

    Text File Formating?

    FM1, this is a rude example. The idea is to build a line of data and print to file. HTH LF Public Sub FmtText() Dim Ztring As String, sLine As String Dim n1 As String, n2 As String, n3 As String, n4 As String Ztring = Space(80) ' page width 80 chars Open...
  3. palusa

    Iterating through a set values in a sheet

    Not sure to have well understood... However, supposing your Is are in the range B3:B7, try this to loop and compute PV(i) and print nearby the Is. ---------- Public Sub iLoop() Dim iRange As Range, Rg0 As Range, PV Set iRange = [B3:B7] For Each cell In iRange ' Calculates...
  4. palusa

    Delete Sheet in excel

    A very primitive workaround could be to create a new workbook with the copied sheet and then delete it. Something like: Sub Macro1() Sheets("Template").Copy With ActiveWorkbook.Sheets("Template") '.Range("C3:E7").ClearContents 'xxx 'xxx End With...
  5. palusa

    Evaluate string

    Hello! try: SUB Q() [C6].Formula=[B6].Text END SUB HTH _LF
  6. palusa

    equation-of-state in Microsoft Excel format

    Hi heaterguy, i have also tried the demo version of prode under excel and found for simple systems (2 components with SRK) acceptable consistency with commercial sim. pcks (hysis). Can't say how it will work in more complex situations (btw have you seen that eng-tips has a 'Prode Products'...
  7. palusa

    VSFlexGrid

    Craigbm, the simplest way to add values to the a vsflexgrid is to use the method vsFlexGrid.TextMatrix(Row As Long, Col As Long)[ = value As String ] where Row and Col are indexes for table's row and colums. HTH _LF
  8. palusa

    Using the VBA Common Control returning a folder+path

    I'm not sure if this is what you are looking for, but the access function CurDir should give you the Current browsed path. HTH. _LF
  9. palusa

    using hidden characters

    A little bit more elegant approach could be: 1\ your input column will be A 2\ make column B hidden 3\ columns C, D etc. will contain the VLOOKUPs' data referencing the lookup value in COLUMN B (e.g. in D9 =+VLOOKUP(B9;$D$1:$H$4;2;0)) Private Sub Worksheet_SelectionChange(ByVal Target As...
  10. palusa

    using hidden characters

    A2D, yes, [A1] is the short form for Range("A1")
  11. palusa

    using hidden characters

    In this case you probably need to write some VBA lines. In the worksheet code i would write something like: Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Target.Column = 1 Then ' if you are in Column A If ActiveCell.Value Like "*_" Or ActiveCell.Value...
  12. palusa

    using hidden characters

    Hi, did you try the simplest way using the LEFT function? The formula =LEFT(VLOOKUP(A7,B1:E4,1,0),2) where A7 is the lookup value (e.g. 15a) and the range B1:E4 contain the data (starting with struct codes: 15, 15a, 15*, 15_ etc), should return you always 15 as code. Does it make sense to...
  13. palusa

    Custom Footer

    Last Page depends upon how many rows are included in one page, as you can preview and adjust by means of "View - PageBreak Preview" tool. A very rudimentary method could be (after having defined a Print_Area using "File - Print_Area - Set Print_Area" with some spare rows for footer): Private...
  14. palusa

    What is the cell that Max is in?

    Hi Jeff, did you try something like: =+MATCH(+MAX(A4:F4);A4:F4;0) where A4:F4 is the range containing your values? It should return the offset of the cell containing the max value. Hope it helps. _LF
  15. palusa

    Visual basic for Excel

    LMThron, i don't know if i correctly understood your description. However, i created a workbook (3 sheets -Sheet1, Sheet2 & Sheet3- without tabs and row/col headings) and a startup sheet (sheet1) protected with password and with an autoshape activating a macro (Macro1 in Module1) like: Sub...
See more

Part and Inventory Search

Back
Top