marcusja2002
Board Regular
- Joined
- Apr 27, 2010
- Messages
- 107
I've look just about everywhere and am having a tough time finding what I am looking for.
I've been able to find the last empty cell in a column:
iRow = ws.Cells(Rows.Count, 15).End(xlUp).Row + 1
I've been able to find code to find the first blank cell in a column:
Dim FirstCell As String
Dim i As Integer
FirstCell = "A1"
Range(FirstCell).Select
Do Until ActiveCell.Value = ""
If ActiveCell.Value = "" Then
Exit Do
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub
What I cant find / figure out is end result to have iRow = the first empty cell in a column (15).
I also need the "next" button I create to be able to use the current cell chosen by iRow to move to the next blank cell. Each time I hit the next button it lets me move to the next blank cell. I dont want it to start over again at the first blank cell.
Any and all help is greatly appreciated.
Thank you in advance.
I've been able to find the last empty cell in a column:
iRow = ws.Cells(Rows.Count, 15).End(xlUp).Row + 1
I've been able to find code to find the first blank cell in a column:
Dim FirstCell As String
Dim i As Integer
FirstCell = "A1"
Range(FirstCell).Select
Do Until ActiveCell.Value = ""
If ActiveCell.Value = "" Then
Exit Do
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub
What I cant find / figure out is end result to have iRow = the first empty cell in a column (15).
I also need the "next" button I create to be able to use the current cell chosen by iRow to move to the next blank cell. Each time I hit the next button it lets me move to the next blank cell. I dont want it to start over again at the first blank cell.
Any and all help is greatly appreciated.
Thank you in advance.