Hi, tryng something easy but I don't figure out how to accomplish it, what I
have until now:
Sub Macro2()
Dim myrange As Range, rng As Range
a = 1
Set myrange = (THE SELECTED RANGE IN THE SHEET)
For Each rng In myrange
Cells(a + rng.Row, rng.Column) = Cells(2 + rng.Row, rng.Column)
a = a + 1
Next rng
End Sub
What I want to accomplish is:
The user selects a range (ex. "d22:d25") and write a number (ex. 10 (that
automatically is writen in cell "d22")) then, when the user press enter the
number 10 appears in the d22:d25 range
TIA

Sub Macro2()
Dim myrange As Range
Set myrange = Selection
myrange.Value = myrange(1).Value
End Sub


--

HTH

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


"filo666" wrote in message
...
Hi, tryng something easy but I don't figure out how to accomplish it, what
I
have until now:
Sub Macro2()
Dim myrange As Range, rng As Range
a = 1
Set myrange = (THE SELECTED RANGE IN THE SHEET)
For Each rng In myrange
Cells(a + rng.Row, rng.Column) = Cells(2 + rng.Row, rng.Column)
a = a + 1
Next rng
End Sub
What I want to accomplish is:
The user selects a range (ex. "d22:d25") and write a number (ex. 10 (that
automatically is writen in cell "d22")) then, when the user press enter
the
number 10 appears in the d22:d25 range
TIA

Hello Filo666,

Sub Macro2()

Dim Cell
Dim MyRange As Range
Dim Num

Num = ActiveCell.Value

Set MyRange = ActiveSheet.Selection

For Each Cell in MyRange
Cell = Num
Next Cell

End Sub

Sincerely,
Leith Ross


--
Leith Ross
------------------------------------------------------------------------
Leith Ross's Profile: http://www.excelforum.com/member.php...o&userid=18465
View this thread: http://www.excelforum.com/showthread...hreadid=497723

thanks, just one problem, remember that the macro iut's going to be runed in
a worksheet_change event, so I need to use target because if I useselection
then when the user press enter the selection is the next cell of target¡¡¡¡¡


"Bob Phillips" wrote:

Sub Macro2()
Dim myrange As Range
Set myrange = Selection
myrange.Value = myrange(1).Value
End Sub


--

HTH

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


"filo666" wrote in message
...
Hi, tryng something easy but I don't figure out how to accomplish it, what
I
have until now:
Sub Macro2()
Dim myrange As Range, rng As Range
a = 1
Set myrange = (THE SELECTED RANGE IN THE SHEET)
For Each rng In myrange
Cells(a + rng.Row, rng.Column) = Cells(2 + rng.Row, rng.Column)
a = a + 1
Next rng
End Sub
What I want to accomplish is:
The user selects a range (ex. "d22:d25") and write a number (ex. 10 (that
automatically is writen in cell "d22")) then, when the user press enter
the
number 10 appears in the d22:d25 range
TIA

Worksheet_Change or Worksheet_SelectionChange? If the former, you don't need
the code as you could select a range, enter 10 aand then use Ctrl-Enter to
get the value in all the cells. If the letter, then how do you get the value
to set it all to? If it is already in the first cell then just change Target
for Selection.

--

HTH

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


"filo666" wrote in message
...
thanks, just one problem, remember that the macro iut's going to be runed
in
a worksheet_change event, so I need to use target because if I
useselection
then when the user press enter the selection is the next cell of
target¡¡¡¡¡


"Bob Phillips" wrote:

Sub Macro2()
Dim myrange As Range
Set myrange = Selection
myrange.Value = myrange(1).Value
End Sub


--

HTH

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


"filo666" wrote in message
...
Hi, tryng something easy but I don't figure out how to accomplish it,
what
I
have until now:
Sub Macro2()
Dim myrange As Range, rng As Range
a = 1
Set myrange = (THE SELECTED RANGE IN THE SHEET)
For Each rng In myrange
Cells(a + rng.Row, rng.Column) = Cells(2 + rng.Row, rng.Column)
a = a + 1
Next rng
End Sub
What I want to accomplish is:
The user selects a range (ex. "d22:d25") and write a number (ex. 10
(that
automatically is writen in cell "d22")) then, when the user press
enter
the
number 10 appears in the d22:d25 range
TIA