lol, it is... the cool thing is that the model validation correctly triggers the correct error when I supply a Code that already exists for the CustomerAccount that's selected
the sorting is required, so that all ship-to locations under a given account are grouped together (even after inserting one) - so that my data validation dropdowns can work
i.e. you pick an account, the dynamic named range gets the ship-to locations for it
the data comes from Sage ERP, and the worksheet is an order form that goes to sales reps that aren't connected to our domain. I can't have it connected to a db
I hear you. But you're thinking database = big iron server. Doesn't have to be that. Could be local database to store the data and provide SQL queries consumed by Excel.
Use sqlite, use ACE, whatever, then it can float on its own
there's a statement there: As of v2.0, redesigning them in XAML isn't yet in scope. -> them implies the dialog itself. Do we hope to make them 100% WPF one day, or will they remain WinForms dialog hosting WPF elementhost as it is now?
heh. too slow.
yeah, that's why I want to update it.
just confirming we have no plan to get rid of WinForms dialog themselves; only the contents within.
we can't have a WPF Window in the project (even if we wanted) - so it's always going to have to be a WinForms dialog, but we'll want it to have a WPF control host and do the actual UI work in XAML
My problem is, I need to get this transposed table (ID_REF would be UP, 1, 2, 3 as rows) into ListBox but only for filtered columns. Like only for "CUR_TYPE" and "SRC_TYPE".
The final product in ListBox would be: Rows "1, 2, 3, 4" Columns "CUR_TYPE", "SRC_TYPE"
My current code is this:
Dim ctrl As MSForms.ListBox Set ctrl = Me.Controls("lbxHARD")
Dim ws As Worksheet Dim table As ListObject Set ws = ActiveWorkbook.Sheets("csv") Set table = ws.ListObjects("CURVE")
With ctrl .Clear .ColumnHeads = False .ColumnCount = table.HeaderRowRange.Columns.Count
For i = 1 To table.DataBodyRange.Rows.Count For j = 0 To table.DataBodyRange.Columns.Count Myarray(rw, j) = table.Range.Cells(i, j + 1)
The problem is when I tried to filter the Range like this:
Dim NewRng As Range
Set NewRng = table.HeaderRowRange
Dim myRow As Range
For Each myRow In table.Range.Rows
If myRow.Columns(1).value = "CUR_TYPE" or myRow.Columns(1).value = "SRC_TYPE" Then
Debug.Print myRow.Address
Set NewRng = Union(NewRng, myRow)
Debug.Print NewRng.Address
End If
Next myRow
Dim Myarray() As Variant
ReDim Myarray(table.DataBodyRange.Rows.Count, table.DataBodyRange.Columns.Count)
Another option, I think, is to fill the whole array and then delete "rows" that doesn't match the "CUR_TYPE" or "SRC_TYPE" in the 1st array dimension and redim the row.
But I think that's a little bit complicated.
Anyway: Just trying to show ListObject in MSForms.ListBox but not all rows just those matching a list of strings.
Disclaimer: Not an Excel expert: I don't get it, @SonGokussj4 - why can't you just iterate the table.DataBodyRange.Rows and just fill the array (or the listbox directly) by reading the row?
However, I'd add that if you are doing stuff like .IndexOf(2), it's likely a code smell.
More likely, you'll want to do something like.... list.SelectSingle(x => { blah; }) = whatever;(noting that you may get an exception if the criteria isn't matched)
Foo.IndexOf(n) = Bar where Foo = List<int> and Bar is of type int
I get Left-hand side of an assigment must be a variable, property or indexer based on my comprehension that means that Foo.IndexOf(n) is only a get accessor.
if (listofelements.Contains(valueFieldValue.ToString()))
{
listofelements[listofelements.IndexOf(valueFieldValue.ToString())] = value.ToString();
}
I have replaced like above. Is there any other bestway to place compare than this one?
@Duga @Mat'sMug @Hosch250 I think that's good; whenever you can, have a look to ensure I didn't write any outright lies. :) I might have told my grandmother how to suck eggs but I felt it necessary to make it clear we have 2 layered patterns which isn't all that obvious.
if (listofelements.Contains(valueFieldValue.ToString()))
{
listofelements[listofelements.IndexOf(valueFieldValue.ToString())] = value.ToString();
}
I have replaced like above. Is there any other bestway to place compare than this one?
VBA Rubberducking
VBA Rubberducking