need some features in an excel form and some unexpected error to resolve

[AparnaWangu]

Hi Team,

I have created an onboarding form for employees and there is a worksheet where the data is getting stored.

The problem is now there is a runtime error coming in a listbox click function where all the records are displayed from the datasheet so in case of any modification user dont have to go to datasheet again and again.

I am attaching the file for reference with some dummy data.Please check that why that error comes.

Secondly I want the the headers to be displyed for all the columns in the list box which is not happening currently.

I am new to VBA so please please please help me.

Private Sub LB_00_Click()
For i = 0 To 4
Me("T_0" & i) = LB_00.Column(i) The error comes as runtime error and could not find the specified object
Next



Regards,
APS

 

[AlphaFrog]

The userform doesn't have a T_02

 

[AparnaWangu]

The userform doesn't have a T_02

Thankyou so much. It works

 

[AparnaWangu]

Hi AlphaFrog,

Can u also help me with the second quey. I want to have headers for the columns in a list box . How can I have it?

 

[Kyle123]

xposted: https://www.excelforum.com/excel-pr...orm-and-some-unexpected-error-to-resolve.html

 

[AlphaFrog]

[color=darkblue]With[/color] LB_00
    .ColumnHeads = [color=darkblue]True[/color]
    .ColumnCount = 14
    .ColumnWidths = "40;150;150;90;70;150;30;30;30;30;30;30;30;30"
    .RowSource = "Data!" & Sheets("Data").Range("A1").CurrentRegion.Address
[color=darkblue]End[/color] [color=darkblue]With[/color]

 

[AparnaWangu]

[COLOR=darkblue]With[/COLOR] LB_00
    .ColumnHeads = [COLOR=darkblue]True[/COLOR]
    .ColumnCount = 14
    .ColumnWidths = "40;150;150;90;70;150;30;30;30;30;30;30;30;30"
    .RowSource = "Data!" & Sheets("Data").Range("A1").CurrentRegion.Address
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]With[/COLOR]

Thankyou so much Alphafrog. Your code works only there is a small error coming up
like it is showing Column A Cplumn B and so on in header and below it it is showing the column headers. So how to remove the Col A, ColB, Col C etc

Regards,

 

[AlphaFrog]

.RowSource = "Data!" & Sheets("Data").ListObjects(1).DataBodyRange.Address

 

[AparnaWangu]

.RowSource = "Data!" & Sheets("Data").ListObjects(1).DataBodyRange.Address

Thanks a ton Dear AlphaFrog. You are genius.Its works!

Only one small help. While entering data in the Hire date column it is displayed in dd-mm-yyyy format but when I select a entry from the listbox it is displayed in number format. Can u help me out.

Regards,

 

[AparnaWangu]

Also there is an error coming in the form on selecting a record from listbox and when I click the update button this error is coming Runtime error 70 permission denied.
LB_00.List = [data_tbl].Value This is the line where error is coming.


​Regards,