Macros

[Don]

How do I create a macro that will type the word "Round"
in cells A1 thru A3000 one at a time?

Thanks,

Don

[Steve]

If you need it one cell at a time

Sub test()

Range("A1:A3000").Select
For Each c In Selection
c.Value = "Round"
Next c
End Sub

But this faster:

Sub test()
Range("A1:A3000").Select
Selection.Value = "Round"
End Sub


"Don" <[email protected]> wrote in message
news:[email protected]...
> How do I create a macro that will type the word "Round"
> in cells A1 thru A3000 one at a time?
>
> Thanks,
>
> Don

[Gord Dibben]

Don

Sub round()
For Each cel In Range("a1:a3000")
cel.Value = "Round"
Next
End Sub

There has to more to this<g>

You can do the same thing manually.

Type A1:A3000 in the Name Box and ENTER

Type Round in A1 and hit CTRL + ENTER


Gord Dibben Excel MVP

On Fri, 11 Feb 2005 17:14:06 -0800, "Don"
<[email protected]> wrote:

>How do I create a macro that will type the word "Round"
>in cells A1 thru A3000 one at a time?
>
>Thanks,
>
>Don

[Steve]

One of these days I'll get out of the habit of selecting first <bg>


"Gord Dibben" <gorddibbATshawDOTca> wrote in message
news:[email protected]...
> Don
>
> Sub round()
> For Each cel In Range("a1:a3000")
> cel.Value = "Round"
> Next
> End Sub
>
> There has to more to this<g>
>
> You can do the same thing manually.
>
> Type A1:A3000 in the Name Box and ENTER
>
> Type Round in A1 and hit CTRL + ENTER
>
>
> Gord Dibben Excel MVP
>
> On Fri, 11 Feb 2005 17:14:06 -0800, "Don"
> <[email protected]> wrote:
>
>>How do I create a macro that will type the word "Round"
>>in cells A1 thru A3000 one at a time?
>>
>>Thanks,
>>
>>Don
>

It didn't work.

What else can I try?

Don

>-----Original Message-----
>One of these days I'll get out of the habit of selecting
first <bg>
>
>
>"Gord Dibben" <gorddibbATshawDOTca> wrote in message
>news:[email protected]...
>> Don
>>
>> Sub round()
>> For Each cel In Range("a1:a3000")
>> cel.Value = "Round"
>> Next
>> End Sub
>>
>> There has to more to this<g>
>>
>> You can do the same thing manually.
>>
>> Type A1:A3000 in the Name Box and ENTER
>>
>> Type Round in A1 and hit CTRL + ENTER
>>
>>
>> Gord Dibben Excel MVP
>>
>> On Fri, 11 Feb 2005 17:14:06 -0800, "Don"
>> <[email protected]> wrote:
>>
>>>How do I create a macro that will type the word "Round"
>>>in cells A1 thru A3000 one at a time?
>>>
>>>Thanks,
>>>
>>>Don
>>
>
>
>.
>

[Steve]

Don

Everything you've seen so far should work in terms of the question you
asked. Did you get the word 'Round' written into every cell in the range? If
not what happened when you ran your macro?
What is the overall goal of your project? How does the prolem you wish to
solve assist you achieve your goal?

Steve
<[email protected]> wrote in message
news:[email protected]...
> It didn't work.
>
> What else can I try?
>
> Don
>
>>-----Original Message-----
>>One of these days I'll get out of the habit of selecting
> first <bg>
>>
>>
>>"Gord Dibben" <gorddibbATshawDOTca> wrote in message
>>news:[email protected]...
>>> Don
>>>
>>> Sub round()
>>> For Each cel In Range("a1:a3000")
>>> cel.Value = "Round"
>>> Next
>>> End Sub
>>>
>>> There has to more to this<g>
>>>
>>> You can do the same thing manually.
>>>
>>> Type A1:A3000 in the Name Box and ENTER
>>>
>>> Type Round in A1 and hit CTRL + ENTER
>>>
>>>
>>> Gord Dibben Excel MVP
>>>
>>> On Fri, 11 Feb 2005 17:14:06 -0800, "Don"
>>> <[email protected]> wrote:
>>>
>>>>How do I create a macro that will type the word "Round"
>>>>in cells A1 thru A3000 one at a time?
>>>>
>>>>Thanks,
>>>>
>>>>Don
>>>
>>
>>
>>.
>>

[Gord Dibben]

What is "it" and what happened(or didn't) when you ran the macro or took the
manual method?


Gord

On Fri, 11 Feb 2005 20:55:53 -0800, <[email protected]>
wrote:

>It didn't work.
>
>What else can I try?
>
>Don
>
>>-----Original Message-----
>>One of these days I'll get out of the habit of selecting
>first <bg>
>>
>>
>>"Gord Dibben" <gorddibbATshawDOTca> wrote in message
>>news:[email protected]...
>>> Don
>>>
>>> Sub round()
>>> For Each cel In Range("a1:a3000")
>>> cel.Value = "Round"
>>> Next
>>> End Sub
>>>
>>> There has to more to this<g>
>>>
>>> You can do the same thing manually.
>>>
>>> Type A1:A3000 in the Name Box and ENTER
>>>
>>> Type Round in A1 and hit CTRL + ENTER
>>>
>>>
>>> Gord Dibben Excel MVP
>>>
>>> On Fri, 11 Feb 2005 17:14:06 -0800, "Don"
>>> <[email protected]> wrote:
>>>
>>>>How do I create a macro that will type the word "Round"
>>>>in cells A1 thru A3000 one at a time?
>>>>
>>>>Thanks,
>>>>
>>>>Don
>>>
>>
>>
>>.
>>