Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
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 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Why Copy/Paste fails using Offset & Resize of myRange? | Excel Discussion (Misc queries) | |||
Set MyRange for non-adjacent cells and iterate through? | Excel Programming | |||
Compare a selected Range with a Named range and select cells that do not exist | Excel Programming | |||
Help ASAP myRange | Excel Programming | |||
Why doesn't "Workbook.Range("myrange").value" work? | Excel Programming |