showing error as range class failed

Baski007 · Apr 24th 2020

Hi all,

can some one suggest the idea to clear this code for the range of activecell that was selected and lastrow.

Code

Private Sub CommandButton2_Click()
Dim irow As Long
Dim activeworksheet As Worksheet
Dim lastrow As Long
irow = activeworkbook.Worksheets("sheet2").Cells(Rows.Count, 1).End(xlUp).Row + 1
lastrow = Cells(Cells.Rows.Count, "B").End(xlUp).Row
Set activeworksheet = ThisWorkbook.Worksheets("sheet2")
With activeworksheet
.Cells(irow, 1) = UserForm1.TextBox1.value
.Cells(irow, 1).Select
Selection.AutoFill Destination:=range(activecell & lastrow)
End With
End Sub

Display More

**royUK** · Apr 24th 2020

What's the code supposed to do?

Baski007 · Apr 24th 2020

Thanks for replying...actually code is for already i have a data in sheet of column B by using another userform i will upload that data..Now with this code i want to enter the data in the last used row of the column by using textform from that activecell i have to autofill till lastrow of the column B sir..Now i tried some range i cant find the exact range to get filled from the activecell till lastrow of the column B.

**royUK** · Apr 24th 2020

can you attach a small example workbook

Baski007 · Apr 24th 2020

ok sir... find the attached file of workbook..In that i have a user form with one text box in that i have to enter the value into the sheet 2 of column A and i have a upload option of file to store in column B to soon...but for now example i have created data in column B.. So whenever i enter the data in lastrow of A i have to autofill the data upto the lastrow of column B.

Baski007 · Apr 25th 2020

can suggest some command modification for the above error code?

dangelor · Apr 26th 2020

Possibly...

Code

Private Sub CommandButton2_Click()
Dim lRowA As Long
Dim lRowB As Long
With ThisWorkbook.Worksheets("Sheet2")
lRowA = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
lRowB = .Cells(.Rows.Count, 2).End(xlUp).Row
.Cells(lRowA, 1) = UserForm1.TextBox1.Value
.Cells(lRowA, 1).AutoFill Destination:=range(.Cells(lRowA, 1), .Cells(lRowB, 1))
End With
End Sub

Display More

Baski007 · Apr 26th 2020

Thank u sir..It's worked correctly for what i need..

dangelor · Apr 26th 2020

glad to help

showing error as range class failed

Share

Tags