Using the AUTOFILL Function
 

I am trying to define a range for autofill with 2 textboxes on a userform.

This code is in the from module

Private Sub CommandButton1_Click()
ActiveCell = "C8"
ActiveCell.FormulaR1C1 = Me.TextBox2.Value
ActiveCell.Offset(1, 0).Activate
ActiveCell.FormulaR1C1 = Me.TextBox2 + 1
Range("C8:C9").Select
Selection.AutoFill Destination:=Range(Cells("8,C"),
Cells("me.TextBox2.Value = TextBox3.Value,C")), _
Type:=xlFillDefault

End Sub

This returns a type mismatch

Could anyone suggest why.

Thanks in in advance for any help

Using the AUTOFILL Function
 

I made some changes to the code and it runs. Not sure if it does exactly
what is is suppose to do, but I fixed the run time errors. The .cells()
wants numberical values not a string "8,c". Should be 8,3

Private Sub CommandButton1_Click()

ActiveCell = "C8"
ActiveCell.FormulaR1C1 = Me.TextBox2.Value
ActiveCell.Offset(1, 0).Activate
ActiveCell = Me.TextBox2 + 1
Range("C8:C9").Select
Selection.AutoFill Destination:=Range(Cells(8, 3), _
Cells(TextBox3.Value, 3)), _
Type:=xlFillDefault
Me.TextBox2.Value = TextBox3
End Sub




"Mark Dullingham" wrote:

I am trying to define a range for autofill with 2 textboxes on a userform.

This code is in the from module

Private Sub CommandButton1_Click()
ActiveCell = "C8"
ActiveCell.FormulaR1C1 = Me.TextBox2.Value
ActiveCell.Offset(1, 0).Activate
ActiveCell.FormulaR1C1 = Me.TextBox2 + 1
Range("C8:C9").Select
Selection.AutoFill Destination:=Range(Cells("8,C"),
Cells("me.TextBox2.Value = TextBox3.Value,C")), _
Type:=xlFillDefault

End Sub

This returns a type mismatch

Could anyone suggest why.

Thanks in in advance for any help

Using the AUTOFILL Function
 

Thanks, that works a treat

Mark

"Joel" wrote:

I made some changes to the code and it runs. Not sure if it does exactly
what is is suppose to do, but I fixed the run time errors. The .cells()
wants numberical values not a string "8,c". Should be 8,3

Private Sub CommandButton1_Click()

ActiveCell = "C8"
ActiveCell.FormulaR1C1 = Me.TextBox2.Value
ActiveCell.Offset(1, 0).Activate
ActiveCell = Me.TextBox2 + 1
Range("C8:C9").Select
Selection.AutoFill Destination:=Range(Cells(8, 3), _
Cells(TextBox3.Value, 3)), _
Type:=xlFillDefault
Me.TextBox2.Value = TextBox3
End Sub




"Mark Dullingham" wrote:

I am trying to define a range for autofill with 2 textboxes on a userform.

This code is in the from module

Private Sub CommandButton1_Click()
ActiveCell = "C8"
ActiveCell.FormulaR1C1 = Me.TextBox2.Value
ActiveCell.Offset(1, 0).Activate
ActiveCell.FormulaR1C1 = Me.TextBox2 + 1
Range("C8:C9").Select
Selection.AutoFill Destination:=Range(Cells("8,C"),
Cells("me.TextBox2.Value = TextBox3.Value,C")), _
Type:=xlFillDefault

End Sub

This returns a type mismatch

Could anyone suggest why.

Thanks in in advance for any help