Need code for Excel Simple Visual Basic Macro to select next avai.
 

I am trying to write this simple macro but I cannot figure how HOW to select
the next available row of a database of addresses.
Below is the macro that I have now it works BUT it always select the A8 Cell,

Rows("1:1").Select
Selection.Copy
Selection.End(xlDown).Select
Range("A8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

Instead I would like it to do the following:
1) Rows("1:1").Select [This is OK]
2) Selection.Copy [This is OK]
3) Selection.End(xlDown).Select [This is OK]
Here I need a command to simply MOVE DOWN ONE ROW.
and then
4) Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks :=False, Transpose:=False [This is OK as well]

In other words is just like when in a spread sheet of say 10 Rows, I
manually press:
END, DOWN, (will take me to the las occupied cell), + DOWN (will take me to
the next available cell.

Can anyone help me PLEASE.
Thanks

Need code for Excel Simple Visual Basic Macro to select next avai.
 

Marco,

Is this what you mean?

Rows("1:1").Select
Selection.Copy
Selection.End(xlDown).Offset(1,0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Marco Margaritelli" <Marco wrote in
message ...
I am trying to write this simple macro but I cannot figure how HOW to
select
the next available row of a database of addresses.
Below is the macro that I have now it works BUT it always select the A8
Cell,

Rows("1:1").Select
Selection.Copy
Selection.End(xlDown).Select
Range("A8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

Instead I would like it to do the following:
1) Rows("1:1").Select [This is OK]
2) Selection.Copy [This is OK]
3) Selection.End(xlDown).Select [This is OK]
Here I need a command to simply MOVE DOWN ONE ROW.
and then
4) Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks :=False, Transpose:=False [This is OK as well]

In other words is just like when in a spread sheet of say 10 Rows, I
manually press:
END, DOWN, (will take me to the las occupied cell), + DOWN (will take me
to
the next available cell.

Can anyone help me PLEASE.
Thanks

Need code for Excel Simple Visual Basic Macro to select next avai.
 

This single line will do this:

Rows(1).Copy Cells(1).End(xlDown).Offset(1, 0)


RBS

"Marco Margaritelli" <Marco wrote in
message ...
I am trying to write this simple macro but I cannot figure how HOW to
select
the next available row of a database of addresses.
Below is the macro that I have now it works BUT it always select the A8
Cell,

Rows("1:1").Select
Selection.Copy
Selection.End(xlDown).Select
Range("A8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

Instead I would like it to do the following:
1) Rows("1:1").Select [This is OK]
2) Selection.Copy [This is OK]
3) Selection.End(xlDown).Select [This is OK]
Here I need a command to simply MOVE DOWN ONE ROW.
and then
4) Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks :=False, Transpose:=False [This is OK as well]

In other words is just like when in a spread sheet of say 10 Rows, I
manually press:
END, DOWN, (will take me to the las occupied cell), + DOWN (will take me
to
the next available cell.

Can anyone help me PLEASE.
Thanks

Need code for Excel Simple Visual Basic Macro to select next avai.
 

activecell.offset(1,0).select

"Marco Margaritelli" wrote:

I am trying to write this simple macro but I cannot figure how HOW to select
the next available row of a database of addresses.
Below is the macro that I have now it works BUT it always select the A8 Cell,

Rows("1:1").Select
Selection.Copy
Selection.End(xlDown).Select
Range("A8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

Instead I would like it to do the following:
1) Rows("1:1").Select [This is OK]
2) Selection.Copy [This is OK]
3) Selection.End(xlDown).Select [This is OK]
Here I need a command to simply MOVE DOWN ONE ROW.
and then
4) Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks :=False, Transpose:=False [This is OK as well]

In other words is just like when in a spread sheet of say 10 Rows, I
manually press:
END, DOWN, (will take me to the las occupied cell), + DOWN (will take me to
the next available cell.

Can anyone help me PLEASE.
Thanks

Need code for Excel Simple Visual Basic Macro to select next avai.
 

Sub copyrow()
'to use the next avaible row
x = Cells(1, 1).End(xlDown).Row + 1

'to use the last available row - usually used.
'x = Cells(rows.count, 1).End(xlup).Row + 1

'line below to copy
'Rows(1).Copy rows(x)

'line below to copy values only
Rows(x).Value = Rows(1)

End Sub



--
Don Guillett
SalesAid Software

"Marco Margaritelli" <Marco wrote in
message ...
I am trying to write this simple macro but I cannot figure how HOW to
select
the next available row of a database of addresses.
Below is the macro that I have now it works BUT it always select the A8
Cell,

Rows("1:1").Select
Selection.Copy
Selection.End(xlDown).Select
Range("A8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

Instead I would like it to do the following:
1) Rows("1:1").Select [This is OK]
2) Selection.Copy [This is OK]
3) Selection.End(xlDown).Select [This is OK]
Here I need a command to simply MOVE DOWN ONE ROW.
and then
4) Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks :=False, Transpose:=False [This is OK as well]

In other words is just like when in a spread sheet of say 10 Rows, I
manually press:
END, DOWN, (will take me to the las occupied cell), + DOWN (will take me
to
the next available cell.

Can anyone help me PLEASE.
Thanks

Need code for Excel Simple Visual Basic Macro to select next avai.
 

THANK YOU! It works perfectly...
You must be laughing abou my ignorance on this, but I am a beginner and a
REALLY appreciated you fast and correct reply!
THANKS!!!

"Marco Margaritelli" wrote:

I am trying to write this simple macro but I cannot figure how HOW to select
the next available row of a database of addresses.
Below is the macro that I have now it works BUT it always select the A8 Cell,

Rows("1:1").Select
Selection.Copy
Selection.End(xlDown).Select
Range("A8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

Instead I would like it to do the following:
1) Rows("1:1").Select [This is OK]
2) Selection.Copy [This is OK]
3) Selection.End(xlDown).Select [This is OK]
Here I need a command to simply MOVE DOWN ONE ROW.
and then
4) Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks :=False, Transpose:=False [This is OK as well]

In other words is just like when in a spread sheet of say 10 Rows, I
manually press:
END, DOWN, (will take me to the las occupied cell), + DOWN (will take me to
the next available cell.

Can anyone help me PLEASE.
Thanks

Need code for Excel Simple Visual Basic Macro to select next avai.
 

Which one did you like best.

--
Don Guillett
SalesAid Software

"Marco Margaritelli" wrote in
message ...
THANK YOU! It works perfectly...
You must be laughing abou my ignorance on this, but I am a beginner and a
REALLY appreciated you fast and correct reply!
THANKS!!!

"Marco Margaritelli" wrote:

I am trying to write this simple macro but I cannot figure how HOW to
select
the next available row of a database of addresses.
Below is the macro that I have now it works BUT it always select the A8
Cell,

Rows("1:1").Select
Selection.Copy
Selection.End(xlDown).Select
Range("A8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

Instead I would like it to do the following:
1) Rows("1:1").Select [This is OK]
2) Selection.Copy [This is OK]
3) Selection.End(xlDown).Select [This is OK]
Here I need a command to simply MOVE DOWN ONE ROW.
and then
4) Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks :=False, Transpose:=False [This is OK as well]

In other words is just like when in a spread sheet of say 10 Rows, I
manually press:
END, DOWN, (will take me to the las occupied cell), + DOWN (will take me
to
the next available cell.

Can anyone help me PLEASE.
Thanks