nidhipatel
Board Regular
- Joined
- Feb 11, 2017
- Messages
- 52
in this macro count last blank cell but i need count last blank Rows what is correction in this macro
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
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