| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
A tricky one
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. |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
A tricky one
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. |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
A tricky one
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. |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
A tricky one
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. |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
A tricky one
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. |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
A tricky one
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. |
|
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
A tricky one
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. |
|
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
A tricky one
Yes I do <vbg
you know we Germany have so many holidays..... -- Regards Frank Kabel Frankfurt, Germany Bob Phillips wrote: No, do you? Our next is end of May. "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. |
|
#9
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
A tricky one
What holiday is it?
-- 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 ... Yes I do <vbg you know we Germany have so many holidays..... -- Regards Frank Kabel Frankfurt, Germany Bob Phillips wrote: No, do you? Our next is end of May. "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. |
|
#10
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
A tricky one
Hi
from a religious perspective: Ascension Day Though it's also 'father's day'. That means most male people (we are not that strict regarding the 'father' part) are going on 'alcoholic trips' outside :-) -- Regards Frank Kabel Frankfurt, Germany Bob Phillips wrote: What holiday is it? "Frank Kabel" wrote in message ... Yes I do <vbg you know we Germany have so many holidays..... -- Regards Frank Kabel Frankfurt, Germany Bob Phillips wrote: No, do you? Our next is end of May. "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. |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| This One Is Tricky Need Help !!!!! | Excel Discussion (Misc queries) | |||
| This might be a little tricky...... | Excel Discussion (Misc queries) | |||
| Is it just me or is this tricky? | Excel Discussion (Misc queries) | |||
| Tricky maybe | Excel Worksheet Functions | |||
| Mmm tricky- but i'm sure someone out there can help! | Excel Programming | |||
Linear Mode
