Last Blank Rows Count

krpatel · Mar 31st 2018

below macro count last blank cell but i need last blank row what is correction in given macro

Code

Sub FillDateSenderFrom()


For i = 1 To 3
If Controls("TextBox" & i) <> "" Then
If i = 1 Then


Cells(Rows.Count, 4).End(xlUp).End(xlToLeft).Offset(0, i - 1).Select


Range(ActiveCell, ActiveCell.End(xlUp).Offset(1, 0)).Value = Controls("TextBox" & i).Text
Else


Cells(Rows.Count, 4).End(xlUp).End(xlToLeft).Offset(0, 1).Select


Range(ActiveCell, ActiveCell.End(xlUp).Offset(1, 0)).Value = Controls("TextBox" & i).Text
End If
End If
Next i






End Sub

Display More

**pike** · Mar 31st 2018

Hello krpatel,
try,,,

Code

.UsedRange.Rows.Count

**AliGW** · Mar 31st 2018

MODERATOR NOTICE: This topic has also been posted on other sites and may already have an answer elsewhere. Please take this into consideration when answering this question

*

Last Blank Rows Count

Participate now!

Share

Users Viewing This Thread