iTop | A simple , web based IT Service Management tool | Configuration Management library

I don't fully understand why you'd use a Dictionary, which is naturally an unordered device, when you want data that is some ordered distance away from a known value

Switch to using an ordered container to make your life easy, perhaps minimally by doing a Values.OrderBy(v => v).ToArray(), then you can find your 1000 at eg index 10 and know your next buy / sell is at 11 / 9 and so on

If you persist with the unordered collection you're going to have to ask repeatedly "what is the minimum value greater than X" for a buy and "what is the max value less than X" for a sell e.g. Value.Where(v => v < 1000).Max() and that gives 993, then for the next sell you need Value.Where(v => v < 993).Max() for the next one; very tedious and inefficient

Most probably your 2 (embedded) Hazelcast instances do not form one cluster. Please check the discovery part. By default, Hazelcast uses Multicast for discovery. You should see something like this in logs.

Get column header and date formats

1."... then headerline disappears"

Assuming that there is no RowSource bound, as this wouldn't cooperate with later dynamic array assignments executed in your post, it suffices to insert rowList.Add 1 immediately after code line Set rowList = New Collection to include captions as it will be added as first element to the collection (referring to header row 1).

2."... and date fields [columns D and H] are shown in numbers"

Assigning range values to a datafield array via .Value2 results in dates shown as numeric values, so e.g. Jan 4th 2021 in column D would be displayed as 44201.

If it's only for search matters you could change the code line after section comment 'Read the values into an array. to v = rng.Value (instead of .Value2) displaying the date format due to regional settings, otherwise you'd have to change each single format by a loop through array v respectively the filtered array listItems before populating the listbox.

3."(the) first column (is displayed) empty"

If you don't want the first listbox column empty, change the code line after section comment 'Size the new list array, based on matching items. to

So instead of a UDF you can try to utilize a Worksheet_Change event that will call your InsertPictureHyperlink() macro. To ensure the macro does not fire anytime you change a cell, add a condition to only fire the macro when a certain keyword is entered. Here the keyword will be AddHyperlinkedImage

Your code creates a Form Drop-Down Combo box. A Sheet Form control type does not expose any event...

You can assign a macro to it, named whatever you want (even cbDataType_Change), using .OnAction, as you did.

Now, the used object can be returned starting from the Application.Caller, which returns the control name. Based on it, the control object can be set, using Sheet.Shapes. And finally, the value of such a control can be retrieved in a little more complicated way, using the object OLEFormat.Object.list. So, your Sub assigned to all controls should be like this:

This is not a bug. If you look at the error description, you'll find this:

This problem is almost certainly caused by the fact that your code here can block forever. Specifically, consumer.Receive() will block forever if no message arrives. As the documentation states:

Waits until a message is available and returns it

Also, even if a message does arrive the while loop ensures that the containing method will never return.

I recommend you specify a timeout when attempting to consume messages. If the timeout elapses then Receive will return null and the loop will be broken and the code will no longer be blocked.

You can use It.IsAnyType for this: