Right, you ready?

I have used:
Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Select

Is it possible to now continue the pattern that goes down
column A in this blank cell? To give you a better idea the
macro is to create a new part. so when it is run i would
like it to automatically enter the next part number and
move across to column B where the user can enter the
description.

I will be really impressed if anyone can sort this out.

Hi
try something like the following

sub foo()
dim lastrow
with activesheet
lastrow = .Cells(Rows.Count, "A").End(xlUp).row
.cells(lastrow,"A").value = .cells(lastrow-1,"A").value+1
.cells(lastrow,"B").select
end with
end if



--
Regards
Frank Kabel
Frankfurt, Germany


ADRIAN wrote:
Right, you ready?

I have used:
Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Select

Is it possible to now continue the pattern that goes down
column A in this blank cell? To give you a better idea the
macro is to create a new part. so when it is run i would
like it to automatically enter the next part number and
move across to column B where the user can enter the
description.

I will be really impressed if anyone can sort this out.

Do you mean

With Cells(Rows.Count, "A").End(xlUp)
.Copy
.Offset(1, 0).PasteSpecial Paste:=xlPasteForamts
.Offset(1,1).Select
End With

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"ADRIAN" wrote in message
...
Right, you ready?

I have used:
Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Select

Is it possible to now continue the pattern that goes down
column A in this blank cell? To give you a better idea the
macro is to create a new part. so when it is run i would
like it to automatically enter the next part number and
move across to column B where the user can enter the
description.

I will be really impressed if anyone can sort this out.

Hi Bob
small typo :-)
.Offset(1, 0).PasteSpecial Paste:=xlPasteFormats

--
Regards
Frank Kabel
Frankfurt, Germany


Bob Phillips wrote:
Do you mean

With Cells(Rows.Count, "A").End(xlUp)
.Copy
.Offset(1, 0).PasteSpecial Paste:=xlPasteForamts
.Offset(1,1).Select
End With


"ADRIAN" wrote in message
...
Right, you ready?

I have used:
Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Select

Is it possible to now continue the pattern that goes down
column A in this blank cell? To give you a better idea the
macro is to create a new part. so when it is run i would
like it to automatically enter the next part number and
move across to column B where the user can enter the
description.

I will be really impressed if anyone can sort this out.

Thanks mate.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Frank Kabel" wrote in message
...
Hi Bob
small typo :-)
.Offset(1, 0).PasteSpecial Paste:=xlPasteFormats

--
Regards
Frank Kabel
Frankfurt, Germany


Bob Phillips wrote:
Do you mean

With Cells(Rows.Count, "A").End(xlUp)
.Copy
.Offset(1, 0).PasteSpecial Paste:=xlPasteForamts
.Offset(1,1).Select
End With


"ADRIAN" wrote in message
...
Right, you ready?

I have used:
Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Select

Is it possible to now continue the pattern that goes down
column A in this blank cell? To give you a better idea the
macro is to create a new part. so when it is run i would
like it to automatically enter the next part number and
move across to column B where the user can enter the
description.

I will be really impressed if anyone can sort this out.

Hi Bob
you're welcome :-)

</OT
just wondering: Do you also have a holiday today in England?


--
Regards
Frank Kabel
Frankfurt, Germany


Bob Phillips wrote:
Thanks mate.


"Frank Kabel" wrote in message
...
Hi Bob
small typo :-)
.Offset(1, 0).PasteSpecial Paste:=xlPasteFormats

--
Regards
Frank Kabel
Frankfurt, Germany


Bob Phillips wrote:
Do you mean

With Cells(Rows.Count, "A").End(xlUp)
.Copy
.Offset(1, 0).PasteSpecial Paste:=xlPasteForamts
.Offset(1,1).Select
End With


"ADRIAN" wrote in message
...
Right, you ready?

I have used:
Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Select

Is it possible to now continue the pattern that goes down
column A in this blank cell? To give you a better idea the
macro is to create a new part. so when it is run i would
like it to automatically enter the next part number and
move across to column B where the user can enter the
description.

I will be really impressed if anyone can sort this out.

No, do you? Our next is end of May.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Frank Kabel" wrote in message
...
Hi Bob
you're welcome :-)

</OT
just wondering: Do you also have a holiday today in England?


--
Regards
Frank Kabel
Frankfurt, Germany


Bob Phillips wrote:
Thanks mate.


"Frank Kabel" wrote in message
...
Hi Bob
small typo :-)
.Offset(1, 0).PasteSpecial Paste:=xlPasteFormats

--
Regards
Frank Kabel
Frankfurt, Germany


Bob Phillips wrote:
Do you mean

With Cells(Rows.Count, "A").End(xlUp)
.Copy
.Offset(1, 0).PasteSpecial Paste:=xlPasteForamts
.Offset(1,1).Select
End With


"ADRIAN" wrote in message
...
Right, you ready?

I have used:
Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Select

Is it possible to now continue the pattern that goes down
column A in this blank cell? To give you a better idea the
macro is to create a new part. so when it is run i would
like it to automatically enter the next part number and
move across to column B where the user can enter the
description.

I will be really impressed if anyone can sort this out.