View Single Post
  #2   Report Post  
JulieD
 
Posts: n/a
Default

Hi Thom

you'll need code to do this - here's code that works on column A
---

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False
On Error GoTo err_handler
If Target.Column = 1 Then
If IsNumeric(Target.Value) Then
For i = 1 To Target.Value - 1
Target.Offset(i, 0) = "x"
Next
End If
End If

err_handler:
Application.EnableEvents = True
End Sub
---
to use it, right mouse click on the sheet tab of the sheet you want to use
the code in, choose view code
copy & paste the code into the right hand side of the screen
use alt & f11 to switch back to your worksheet
type a number in column A and see what happens
NOTE there is no checking to ensure that data is not in the cells where the
X will go, so maybe do this on a copy of the workbook first.

Cheers
JulieD

"thom hoyle" wrote in message
...
I don't know how to accomplish this task:
While staying in a single column, I would like to enter a value like 12
and
have it autofill eleven "x"s below the twelve indicating 12 rows including
the value entered totals 12.. make sense?
this needs to happen anyplace a value is entered in the column, that the
number of "x"s need to fill in below less one.

Row A

5
x - Autofills based on value above less that cell.
x
x
x
3 - Same here and down the column
x
x
4 - same
x
x
x

Thanks in advance.. I have read several CountIf .. Data Validation .. just
don't know how to start..

thanks
thom