Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
find next unused row
Hi
iam new to Visual Basic. I have a macro that performs some calculations and outputs the results into excel 2000. how do i make visual basic put the results in the next unused row whenever the macro is run. please post any links if this might have been explained before. Thanks Mike |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
find next unused row
Formula (Array - Ctrl-Shift-Enter
= ADDRESS(ROW(OFFSET( $A$1,COUNTA($A$1:$A$65000),0)),COLUMN(OFFSET( $A$1,COUNTA( $A$1:$A$65000),0))) or Macro: Sub NextBlankDown() Range("a1").Activate If ActiveCell.End(xlDown).Row = Rows.Count Then Exit Sub MsgBox (ActiveCell.End(xlDown).Offset(1, 0).Address) End Sub Don Pistulka "Mike" wrote in message om... Hi iam new to Visual Basic. I have a macro that performs some calculations and outputs the results into excel 2000. how do i make visual basic put the results in the next unused row whenever the macro is run. please post any links if this might have been explained before. Thanks Mike |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
find next unused row
Mike,
This macro takes the entire first row on the active sheet and copies it to the first blank row on sheet2. Sub test1() Cells(1, 1).EntireRow.Copy Destination:=Sheets("sheet2").Range("a65536").End( xlUp).Offset(1, 0) End Sub Don Pistulka "Don P" wrote in message ... Formula (Array - Ctrl-Shift-Enter = ADDRESS(ROW(OFFSET( $A$1,COUNTA($A$1:$A$65000),0)),COLUMN(OFFSET( $A$1,COUNTA( $A$1:$A$65000),0))) or Macro: Sub NextBlankDown() Range("a1").Activate If ActiveCell.End(xlDown).Row = Rows.Count Then Exit Sub MsgBox (ActiveCell.End(xlDown).Offset(1, 0).Address) End Sub Don Pistulka "Mike" wrote in message om... Hi iam new to Visual Basic. I have a macro that performs some calculations and outputs the results into excel 2000. how do i make visual basic put the results in the next unused row whenever the macro is run. please post any links if this might have been explained before. Thanks Mike |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Find column letter of the first unused cell | Excel Worksheet Functions | |||
Copying to next unused row | Excel Worksheet Functions | |||
Finding the last unused row in a column | Excel Worksheet Functions | |||
what to do with unused cells | Excel Worksheet Functions | |||
Eliminate unused columns | Excel Discussion (Misc queries) |