Hi, I want to perfor as very easy operation:
For a = 5 To ActiveSheet.Range("A1",
Range("A65535").End_(xlUp)).EntireRow.Count
Cells(a, 6) = Cells(a, 7)
Next
this is for all my worksheet, but if I want the user choose a specific
region with the mouse and the program execute the same macro but just with
the selected region, How?
I mean, if the user select the range("f7:f25") then the limits of the for
structure are 7 and 25, How to accomplish this???
TIA

filo666:

try,

Dim myCell As Range, rng As Range
Set myCell = Application.InputBox( _
prompt:="Select a cell", Type:=8)
For Each rng In myCell
Cells(rng.Row, 6) = Cells(rng.Row, 7)
Next rng

--
天行å�¥ï¼Œå�›å*�以自強ä¸�æ�¯
地勢å�¤ï¼Œå�›å*�以厚德載物

http://www.vba.com.tw/plog/


"filo666" wrote:

Hi, I want to perfor as very easy operation:
For a = 5 To ActiveSheet.Range("A1",
Range("A65535").End_(xlUp)).EntireRow.Count
Cells(a, 6) = Cells(a, 7)
Next
this is for all my worksheet, but if I want the user choose a specific
region with the mouse and the program execute the same macro but just with
the selected region, How?
I mean, if the user select the range("f7:f25") then the limits of the for
structure are 7 and 25, How to accomplish this???
TIA