Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]()
hi, have a script using in sheet, if can would like to add a couple of items.
for column A: if hit enter on cell in column "A" (per existing script) does not do anything if entering a period "." in col A; would like to have any spaces between words to be replaced by Plus "+" sign. Thanks. also if possible, would like to sheet to calculate (only once / file script is in /that file name only: "DATA"), when file is opened, else leave as have set in excel. (for now, generally set to "manual"). script in use is: Option Explicit Private Sub Worksheet_Change(ByVal Target As Excel.Range) With Target If .Count 1 Then Exit Sub If Target.Row < 130 Then Exit Sub If Me.Cells(.Row, "A").Value = "." Then Exit Sub 'make column changes: If Not Intersect(Me.Range("CK:CO"), .Cells) Is Nothing Then Application.EnableEvents = False 'Destination: With Me.Cells(.Row, "CF") .NumberFormat = "dd" .Value = Now End With Application.EnableEvents = True End If 'make column changes: If Not Intersect(Me.Range("CW:CW"), .Cells) Is Nothing Then Application.EnableEvents = False 'Destination With Me.Cells(.Row, "CG") .NumberFormat = "dd" .Value = Now End With Application.EnableEvents = True End If End With End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
script for date and currency formating | Excel Discussion (Misc queries) | |||
Help needed (Automatic script function) | Excel Discussion (Misc queries) | |||
Auto Date Script.. | Excel Discussion (Misc queries) | |||
auto date script for 2 columns? have 1.. | Excel Discussion (Misc queries) | |||
Calculating days between current date and a date in future NETWORKDAYS() function | Excel Worksheet Functions |