[英]Showing Error in Range of Auto fill command by giving range of Active cell to Last row of the column
我正面临这个问题,我只想在用户表单文本框中输入数据,并且该值必须从行自动填充到 B 列的最后一行。使用此代码,我从活动单元格到范围有错误列的最后一行。 找到代码范围的最后一行。请发出这个问题。
Private Sub CommandButton2_Click()
Dim irow As Long
Dim activeworksheet As Worksheet
Dim lastrow As Long
irow = ActiveWorkbook.Worksheets("Master sheet").Cells(Rows.Count, 1).End(xlUp).Row + 1
lastrow = Cells(Cells.Rows.Count, "B").End(xlUp).Row
Set activeworksheet = ThisWorkbook.Worksheets("master sheet")
With activeworksheet
.Cells(irow, 1) = UserForm1.TextBox1.Value
.Cells(irow, 1).Select
Selection.range(range("Activecell"), range("A" & Cells(Rows.Count, "B").End(xlUp).Row)).FillDown
End With
End Sub
你需要的只是这个吗? 不确定我是否完全理解。
With activeworksheet
Range(.Cells(irow, 1), .Cells(lastrow, 1)).Value = UserForm1.TextBox1.Value
End With
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.