Run-time error '13' - Userform

[Rottimad]

Hi folks

I've managed to put together my first Userform from advice on here and put together my macro again with information from this site but I have hit a brick wall.

Running the below brings up my form, allows me to enter values (e.g. ExtV = 10 and IntV = 10) but the error message

"Run-time error '13' Type mismatch" appears.

Sub Enter_Click()
    Dim IntV As Integer
    Dim ExtV As Integer
    Dim RowE As Long
    Dim RowI As Long
    
    Worksheets("VOs").Activate
    
    'Determine the next row dependent on type
    RowE = Sheets("VOs").Application.WorksheetFunction.Match("DECKING", Range("A1:A2000"), 0)
    RowI = Sheets("VOs").Application.WorksheetFunction.CountA(Range("A:A")) + 1
    
    'Select range of rows to insert new rows
    Rows("RowE:RowE+ExtV").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Rows("RowI:RowI+IntV").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

    On Error GoTo 0
     
Unload VOrow
VOrow.Hide
End Sub

The highlighted error row is
Rows("RowE:RowE+ExtV").Select
(and I'd assume this will be next)
Rows("RowI:RowI+IntV").Select

Basically I want the value entered in the form for "ExtV" to insert a rows after the word "Decking" appears in column A.
I then want to insert "IntV" number of rows in the next unused cells in the column.

Hence in both instances, needing to know RowI and RowE.

Any help would be greatly appreciated.

 

[Jonmo1]

Re: Object doesn't support this property or method

Try
RowE = Application.Match("DECKING", Sheets("VOs").Range("A1:A2000"), 0)

 

[Rottimad]

Re: Object doesn't support this property or method

Hi Jonmo1

Thanks for the prompt reply, its typical sods law that the moment I pressed save on this thread the idea dawned on me it may have been an Application issue.

I have since altered my OP given the next issue I've faced!

Thanks again

 

[Rottimad]

Re: Object doesn't support this property or method

Anyone have any suggestions?

 

[Norie]

Re: Object doesn't support this property or method

Perhaps.

    Range(RowE & ":" & (RowE+ExtV().Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

    Range(RowI & ":" & (RowI+IntV)).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

 

[Rottimad]

Re: Object doesn't support this property or method

This debugged the Macro allowing a full completion but it took away the purpose which was to input a certain number of Rows determined by the Userform.

 

[Norie]

Re: Object doesn't support this property or method

Which sheet do you want to insert rows in?

 

[Rottimad]

Re: Object doesn't support this property or method

The sheet is called "VOs", which is also the active sheet when the Userform is used.

Instead of attempting to find and select the row I need, select EntV or IntV quantity of rows after it to THEN insert a number of new rows (which as I can gather, the above is trying to do) is there a simpler way to simply tell the Macro to insert a specific number of rows determined by the user's input in the Userform?

Once I have the sheet inserting a number of rows determined by the user into a consistent location predetermined by me, I can add the remaining formatting/functions into the macro.