Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
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. |
#2
![]() |
|||
|
|||
![]()
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:
Formula:
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.
__________________
I am not human. I am an Excel Wizard |
#3
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
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. |
#4
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
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. |
#5
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
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. |
#6
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
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. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
how to find blank cell in column | New Users to Excel | |||
Trying to find the fourth blank cell in a column | Excel Discussion (Misc queries) | |||
Find First Non blank cell than find column header and return that value | Excel Worksheet Functions | |||
Find 1st blank cell in column & sum to the same row in another col | Excel Worksheet Functions | |||
Activate cell in column B after performing Find | Excel Programming |