run time error 380 could not set the rowsource property. invalid property value

[zoriqah]

Hi .

I have problems with this error.
I have debug the code and no error shown but when I tried to run the code it shows this error.

Attachment 828681


and error shows highlighted line

error.png

My code will be these:

Sub Reset()

Dim iRow As Long

iRow = [Counta(Database!A:A) ]

With UserForm2


.TextBox1.Value = ""
.TextBox5.Value = ""
.TextBox4.Value = ""
.TextBox3.Value = ""
.TextBox2.Value = ""
.TextBox7.Value = ""
.TextBox6.Value = ""
.TextBox8.Value = ""
.TextBox9.Value = ""

.ListBox1.ColumnCount = 9
.ListBox1.ColumnHeads = True


If iRow > 1 Then

.ListBox1.RowSource = "Database A2:J" & iRow

Else

.ListBox1.RowSource = "Database A2:J2"

End If

End With


End Sub

Sub Submit()

Dim sh As Worksheet
Dim iRow As Long

Set sh = ThisWorkbook.Sheets("Databse")

iRow = [Counta(Database!A:A)] + 1

With sh

.Cells(iRow, 1) = iRow - 1

.Cells(iRow, 2) = UserForm2.TextBox1.Value

.Cells(iRow, 3) = UserForm2.TextBox5.Value

.Cells(iRow, 4) = UserForm2.TextBox4.Value

.Cells(iRow, 5) = UserForm2.TextBox3.Value

.Cells(iRow, 6) = UserForm2.TextBox2.Value

.Cells(iRow, 7) = UserForm2.TextBox7.Value

.Cells(iRow, 8) = UserForm2.TextBox6.Value

.Cells(iRow, 9) = UserForm2.TextBox8.Value

.Cells(iRow, 10) = UserForm2.TextBox9.Value


End With

End Sub








thank you for your helps

[Andy Pope]

Try adding the ! separator to your sheet range reference

.ListBox1.RowSource = "Database!A2:J" & iRow

[zoriqah]

Hi Andy

Thank you for the response.

I have tried your suggestion and no error on that.

The highlighted error was shown again in line below

Attachment 828691

[Andy Pope]

Welcome to the forum

Please attach a sample workbook (not a picture or pasted copy). Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and then scroll down to Manage Attachments to open the upload window.



Your attachments are reporting as not valid. Use instructions at top of page to upload example file.

[zoriqah]

Welcome to the forum

Please attach a sample workbook (not a picture or pasted copy). Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and then scroll down to Manage Attachments to open the upload window.



Your attachments are reporting as not valid. Use instructions at top of page to upload example file.

Hi Andy, here is my workbook


IRPave VBA3.xlsm

[Andy Pope]

two changes.

Module1, sub routine Reset.
Remove of spaces in sheet!range reference

        .ListBox1.RowSource = "Database!A2:J" & iRow
        
        Else
        
        .ListBox1.RowSource = "Database!A2:J2"
        
        End If

and in Userform9

Private Sub CommandButton1_Click()

' order flipped to stop error of showing modeless form from a model one
Unload UserForm9
UserForm2.Show

End Sub

[zoriqah]

two changes.

Module1, sub routine Reset.
Remove of spaces in sheet!range reference

        .ListBox1.RowSource = "Database!A2:J" & iRow
        
        Else
        
        .ListBox1.RowSource = "Database!A2:J2"
        
        End If

and in Userform9

Private Sub CommandButton1_Click()

' order flipped to stop error of showing modeless form from a model one
Unload UserForm9
UserForm2.Show

End Sub

Dear Andy,

Thank you so much for your help. It is working now.

[zoriqah]

two changes.

Module1, sub routine Reset.
Remove of spaces in sheet!range reference

        .ListBox1.RowSource = "Database!A2:J" & iRow
        
        Else
        
        .ListBox1.RowSource = "Database!A2:J2"
        
        End If

and in Userform9

Private Sub CommandButton1_Click()

' order flipped to stop error of showing modeless form from a model one
Unload UserForm9
UserForm2.Show

End Sub

Hi Andy,

Can I contact you personally?
I just really need your help with my coding. Its other coding.

Can you give me your email for me to contact?

Really appreciate your help.
Thank you.

[Andy Pope]

No the forum does not work like that.

If you need help with a project consider the paid for services offered via the Commerical Services part of the site

[zoriqah]

No the forum does not work like that.

If you need help with a project consider the paid for services offered via the Commerical Services part of the site

I see ok noted. Thank you.

So we will discuss here.

Below is my new coding.

But I don't know where are the errors. I cannot find it.
Please help me.

IRPAVE NEW DESIGN 3.xlsm