Enter Date while range selected

[Papi]

Say rows 22:35 are selected and column K needs todays date in each of the cells from K22:K35 that a macro could do that? The rows would vary each time eg. next time could be 36:72 or 36:36 etc.

 

[Norie]

If you wanted to put the date in column K of the selected row try this.

Intersect(Selection.EntireRow, Range("K:K")).Value = Date

 

[NeonRedSharpie]

Sub dateSelection()

    For Each cell In Selection
        Cells(cell.Row, 11).Value = Date
    Next


End Sub

Yes

 

[Papi]

Thank you both. Very nice. Could the same apply if there is a cell with text eg. A1 and that it could also enter that while in column L of the range the same way? It could be a named cell if that would help.

 

[Norie]

Sorry I don't follow what you mean.

Do you meant put the value from A1, or a named cell, into column L of the selected rows?

 

[Papi]

Yes, exactly. Your other code is great.

 

[Norie]

All you need to change is the column and the source.

Intersect(Selection.EntireRow, Range("L:L")).Value = Range("A1").Value

 

[Papi]

Norie. It amazes me how some of you folks have a way to make this stuff look like magic, even to old timers like me.

Just thinking of another workbook, could the same be done with a window opening up and allowing the user to enter something in the window to accomplish the same thing?

 

[Norie]

Do you mean something to allow the user to enter the data?

 

[Papi]

Yes please.