Populate cells based on value of another cell

[elsg]

Hi
I have a table in excel with some data to create labels, but these labels must be repeated according to the number of volumes.
Example: I have a delivery for X and such delivery has 5 volumes, need to create 5 labels just changing the volume number: 1/5, 2/5, 3/5, 4​​/5 5/5.

I would enter a value in "D1" after running the code, in column "A" shall be filled as follows.


D1 = 7


A2 = 1/7
A2 = 2/7
A2 = 3/7
A2 = 4/7
A2 = 5/7
A2 = 6/7
A2 = 7/7
If "D1" equals 3 then
A2 = 1/3
A2 = 2/3
A2 = 3/3

 

[Snakehips]

elsg,

Perhaps this in A2 and copy down...

Excel 2007
	A	B	C	D
1				7
2	1/7
3	2/7
4	3/7
5	4/7
6	5/7
7	6/7
8	7/7
Sheet2

Cell Formulas
Range	Formula
A2	=IF(ROW(A2)-1>$D$1,"",IF($D$1<1,"",ROW(A2)-1 &"/"&$D$1))

Hope that helps.

 

[elsg]

Hi.
Thanks for responding, but I need it to be done via VBA.

Thank you!!

 

[Snakehips]

Then try something like this....

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Address = "$D$1" Then Exit Sub
If Target < 1 Then Exit Sub
'**** Edit A11 to suit your maximum volume!!
Range("A2:A11").ClearContents
'**** A11 = max volume 10
                               
For r = 2 To Target + 1
Range("A" & r).Value = r - 1 & "/" & Target
Next r
End Sub

 

[elsg]

Hi.

Very good!!!

Thank very much!!