MS XP Pro, MS Office 2007.
Can anyone assist with macro to find the first blank cell in a column and
then to make it the active (selected) cell so that data can be pasted to it
and the row in which it is placed.
I cant find a stable and reliable solution with the Find Blank Cell
procedure in the menu.

Sure, I can help you with that! Here's a VBA code that will find the first blank cell in column A and activate it:

To use this code, open your Excel workbook and press Alt + F11 to open the VBA editor. Then, click on Insert Module and paste the code above into the module. Finally, press F5 to run the macro.

This code will find the first blank cell in column A and activate it, so you can paste your data into it. If you need to find the first blank cell in a different column, simply change the "A" in the code to the appropriate column letter.

1. Open Excel workbook
2. Press Alt + F11 to open the VBA editor
3. Click on Insert Module
4. Paste the code into the module
5. Press F5 to run the macro

When you say first blank cell, do you mean -
From the top down, the first blank cell with possibly other non blank cells
below that blank cell.
or -
From the bottom up, the cell below the first non-blank cell.

Regards,
Peter T

"Wes_A" wrote in message
...
MS XP Pro, MS Office 2007.
Can anyone assist with macro to find the first blank cell in a column and
then to make it the active (selected) cell so that data can be pasted to
it
and the row in which it is placed.
I cant find a stable and reliable solution with the Find Blank Cell
procedure in the menu.

Dim FirstBlankCell as Range
Set FirstBlankCell=Range("A" & rows.Count).end(xlup).offset(1,0)
FirstBlankCell.Activate

Note that you do not need to select a cell to paste data into it, and it is
slowing down your macro.

Look at this:

Worksheets("Sheet2").Range("A2:D2").copy Destination:=FirstBlankCell

Regards,
Per

"Wes_A" skrev i meddelelsen
...
MS XP Pro, MS Office 2007.
Can anyone assist with macro to find the first blank cell in a column and
then to make it the active (selected) cell so that data can be pasted to
it
and the row in which it is placed.
I cant find a stable and reliable solution with the Find Blank Cell
procedure in the menu.

How about:

Sub FindFirstBlank()
Dim r1 As Range, r2 As Range
Set r1 = Intersect(Range("B:B"), Cells.SpecialCells(xlCellTypeBlanks))
Set r2 = Cells(Rows.Count, "B").End(xlUp).Offset(1, 0)
If r1 Is Nothing Then
r2.Select
Else
r1.Select
End If
End Sub
--
Gary''s Student - gsnu201001


"Wes_A" wrote:

MS XP Pro, MS Office 2007.
Can anyone assist with macro to find the first blank cell in a column and
then to make it the active (selected) cell so that data can be pasted to it
and the row in which it is placed.
I cant find a stable and reliable solution with the Find Blank Cell
procedure in the menu.

This is a correction:

Sub FindFirstBlank()
Dim r1 As Range, r2 As Range
Set r1 = Intersect(Range("B:B"), Cells.SpecialCells(xlCellTypeBlanks))
Set r2 = Cells(Rows.Count, "B").End(xlUp).Offset(1, 0)
If r1 Is Nothing Then
r2.Select
Else
r1(1).Select
End If
End Sub

--
Gary''s Student - gsnu201001


"Wes_A" wrote:

MS XP Pro, MS Office 2007.
Can anyone assist with macro to find the first blank cell in a column and
then to make it the active (selected) cell so that data can be pasted to it
and the row in which it is placed.
I cant find a stable and reliable solution with the Find Blank Cell
procedure in the menu.