View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Claus Busch Claus Busch is offline
external usenet poster
 
Posts: 3,872
Default Fill cells automatically when cleared

Hi,

Am Wed, 8 Mar 2017 04:26:04 -0800 (PST) schrieb R0nald:

Value to put on empty cells: 1234

A1 = 11
A2 = empty
A3 = 22

If the automated fill works the cells should have:

A1 = 11
A2 = 1234
A3 = 22


try:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub

If Len(Target) = 0 Then Target = 1234
End Sub


Regards
Claus B.
--
Windows10
Office 2016