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
|