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