Automating Inputting to a Range

[MattNewby]

Hi,

I have the following code that I use and it works fine for a sigle cell, but I want to adapt this so that it will add todays date to a range that I have selected.

The code I think I need to change is in pink, just not sure how to make an equivalent of active range.


Please advise

Matt

Code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

With Worksheets(1).Range("C:C")
.Value = .Value
End With


End Sub

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

ActiveCell = DateValue(Now)

End Sub

 

[VoG]

Try

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim c As Range
Cancel = True
For Each c In Target
    c.Value = Date
Next c
End Sub

 

[mikerickson]

For a multi-cell selection, you'll need to use the BeforeRightClick event. One can not double click on a multi-cell range.

 

[MattNewby]

Hi,

Thanks for that, but it does not work. It just put the date value in the last cell of the range I have selected.

Also in the code what does 'target' refer to???

Thanks

Matt

 

[VoG]

Target is the cell that you double clicked.

 

[MattNewby]

Ok that works, thanks.


Matt