Show Listbox row from a tab in Textboxes

[gnaske]

Hi Forum.

I had searched the net for a solution for hours, but couldn't find anything usable.
I can transfer a Listbox row to the Textboxes, but not a row from another Tab, if more columns in the Tab then in the Listbox, should be transferred.
And this is the problem.

There is an explanation about my problem in the attached.

I really hope to get some help with the code.
And if possible, maybe to make the code in the workbook and re-attach the solution in the answer.

Ps. I'm not a nerd in VBA, but use "Search and Use Codes" from the net

Thank you in advance

Kind regards
Ib

[mehmetcik]

Your Listbox is set to 6 columns

In VBA
Listbox1.Listcount = 12

In The listbox properties window set the Listcount to 12

You should also adjust the column widths to 40

Also

in the Command Button code you are only loading columns A to F. That should be "L"

Please Login or Register  to view this content.

To load the Textboxes from the Listbox you will need to add this code to the Listbox

Please Login or Register  to view this content.

[gnaske]

Hi mehmetcik.

I only want to show 6 columns in the Listbox.
But fill in 12 columns with the Textboxes in the Tab.

Actually there is 111 columns in each row all in all in the Tab.
When inserting the 12 columns with the Textboxes in the next free row, the rest of the columns to DG: is calculating columns.

When inserting the value from the 12 Textboxes I copy the calculating codes fra column 13 to 111 into the inserting row.
It's copied from the row above and the first row, which contain the calculation code can't be deleted.

I need to be able to edit the first 12 columns using the Textboxes, but only show the first 6 columns in the Listbox.

I believe I can make a hidden Listbox2, containg the last 6 rows.
And then fill in the 12 Textboxes with the value from Listbox1 and the hidden Listbox2.

But it would be more fance to fill in the 12 Textboxes, directly from the Tab.

[mehmetcik]

You will need to set Listbox1.columnscount to 12
Then set your columns widths like this:-

80 pt;80 pt;80 pt;80 pt;80 pt;80 pt;0 pt;0 pt;0 pt;0 pt;0 pt;0 pt

The first 6 columns will be displayed, the last six will be hidden.


To save the listboxes then you will need to add this code.
If you click on the Edit button then
a. If a listbox line is highlighted the data will be saved to that line
b. If a listbox line is not highlighted then the data will be saved below your existing data.

Please Login or Register  to view this content.

Code for the "Insert Value" button:-

Please Login or Register  to view this content.

[gnaske]

Hmm - Doesn't work.

When marking a row in the Listbox, it doesn't insert the value into the Textboxes, to be edited.

[mehmetcik]

Ok I have made a few changes for this.

Please Login or Register  to view this content.

[gnaske]

Thank you - I'll test the code a little bit later.
I need to go - Wife is calling
But I'll be back

[gnaske]

I couldn't let it go, although the wife was screaming - Holy smoke

My real workbook is about 25 Mb and it will destroy a lot in the other codes, if I try to implement your code into it.

But I could use your suggestion about showing 12 rows in the Listbox.
The column width was already set for the first 6 columns in the original Listbox and the only thing I needed to do, was to set the last 6 rows to 0pt
Plus to change the range from J to L.

I'll mean the problem is solved and I'll save your code too, because it can be useful another time.
Thank you very very much.

Test Workbook attached.

Kind regards
Ib