how to add "numbers and ad" with some condition in same cells

[Vishaal]

Hi,

Please check the following and update how can we do that

Sample data

Excel 2010 32 bit

	A​	B​	C​	D​	E​
1​		Sample​	​	​	​
2​
3​
4​
5​
6​		1​	​	​	​
7​		2​
8​		3​
9​		4​	Yes​	​	​
10​		5​	Yes​	​	​
11​		6​	Yes​	Yes​	​
12​		7​	Yes​	Yes​	​
13​		8​	Yes​	Yes​	​
14​		9​	​	Yes​	​
15​		10​	​	Yes​	​
16​		11​
17​		12​
18​		13​
19​		14​
20​		15​	​	​	​
21​

Sheet: Sheet1

Result Data

Excel 2010 32 bit

	A​	B​	C​	D​	E​
1​		Result in same cells B6:D20​	​	​	​
2​
3​
4​
5​
6​		1​	​	​	​
7​		2​
8​		3​
9​		4​	Yes 5​	​	​
10​		5​	Yes 4​	​	​
11​		6​	Yes 3​	Yes 5​	​
12​		7​	Yes 2​	Yes 4​	​
13​		8​	Yes 1​	Yes 3​	​
14​		9​	Yes Ad​	Yes 2​	​
15​		10​	Yes Ad​	Yes 1​	​
16​		11​	Yes Ad​	Yes Ad​
17​		12​	Yes Ad​	Yes Ad​
18​		13​	Yes Ad​	Yes Ad​
19​		14​	Yes Ad​	Yes Ad​
20​		15​	Yes Ad​	Yes Ad​	​
21​

Sheet: Sheet1

help pls

 

[DanteAmor]

What is the logic to put the result?
In columns C and D do you have formulas or values?

 

[Vishaal]

values

 

[Vishaal]

in the above we have started the add in every column
First Yes - "add 5"
Second Yes - "add 4"
Third Yes - "add 3"
Fourth Yes - "add 2"
Fifth Yes - "add 1"
Sixth Yes - "ad"
Seventh Yes - "ad"
Eighth Yes - "ad"

we have more column, its a sample data

 

[DanteAmor]

The first "Yes" in the column should always start with 5?
Decrease until reach 1 and then everyone carries the word "Ad"

 

[Vishaal]

Yes

 

[DanteAmor]

If there are always 5 Yes in the column, then try the following:

Sub add_numbers_ad()
  Dim a() As Variant, b() As Variant, entre As Boolean
  Dim lr As Long, lc As Long, i As Long, j As Long, n As Long
  lr = Range("B" & Rows.Count).End(xlUp).Row
  lc = ActiveSheet.UsedRange.Columns(ActiveSheet.UsedRange.Columns.Count).Column
  a = Range("C7", Cells(lr, lc))
  ReDim b(1 To UBound(a, 1), 1 To lc - 2)
  For j = 1 To lc - 2
    entre = False
    n = 5
    For i = 1 To UBound(a, 1)
      If a(i, j) = "Yes" Then
        entre = True
        b(i, j) = "Yes " & n
        n = n - 1
      Else
        If entre Then b(i, j) = "Yes Ad"
      End If
    Next
  Next
  Range("C7").Resize(UBound(a, 1), lc - 2).Value = b()
End Sub

 

[Vishaal]

we have check and there are some errors, pls check the following sheet after running the formula

Excel 2010 32 bit

	A​	B​	C​	D​	E​	F​	G​	H​	I​	J​	K​	L​	M​	N​	O​	P​	Q​	R​	S​
1​		​	​	​	​	​	​	​	​	​	​	​	​	​	​	​	​	​	​
2​		​	​	​	​	​	​	​	​	​	​	​	​	​	​	​	​	​	​
3​		​	​	​	​	​	​	​	​	​	​	​	​	​	​	​	​	​	​
4​		​	​	​	​	​	​	​	​	​	​	​	​	​	​	​	​	​	​
5​		​	​	​	​	​	​	​	​	​	​	​	​	​	​	​	​	​	​
6​
7​
8​	1​	​	​	​	​	​	​	​	​	​	​	​	​	​	​	​	​	​	​
9​	2​	​	​	​	​	​	​	​	​	​	​	​	​	​	​	​	​	​	​
10​	3​	​	​	​	​	​	​	​	​	​	​	​	​	​	​	​	​	​	​
11​	4​	​	Yes 5​	Yes 5​	​	Yes 5​	​	Yes 5​	​	​	​	​	​	​	​	​	​	Yes 5​	​
12​	5​	Yes​	Yes 4​	Yes 4​	​	Yes 4​	​	Yes 4​	​	​	​	​	​	​	​	​	​	Yes 4​	​
13​	6​	Yes​	Yes 3​	Yes 3​	Yes 5​	Yes 3​	Yes 5​	Yes 3​	​	Yes 5​	Yes 5​	​	Yes 5​	​	​	​	​	Yes 3​	​
14​	7​	Yes​	Yes 2​	Yes 2​	Yes 4​	Yes 2​	Yes 4​	Yes 2​	Yes 5​	Yes 4​	Yes 4​	​	Yes 4​	​	​	​	Yes 5​	Yes 2​	Yes 5​
15​	8​	Yes​	Yes 1​	Yes 1​	Yes 3​	Yes 1​	Yes 3​	Yes 1​	Yes 4​	Yes 3​	Yes 3​	​	Yes 3​	Yes 5​	​	Yes 5​	Yes 4​	Yes 1​	Yes 4​
16​	9​	Yes​	Yes Ad​	Yes Ad​	Yes 2​	Yes Ad​	Yes 2​	Yes Ad​	Yes 3​	Yes 2​	Yes 2​	​	Yes 2​	Yes 4​	Yes 5​	Yes 4​	Yes 3​	Yes Ad​	Yes 3​
17​	10​	​	​	​	Yes​	​	Yes​	​	Yes​	Yes​	Yes​	Yes​	Yes​	Yes​	Yes​	Yes​	Yes​	​	Yes​
18​	11​	​	​	​	​	​	​	​	Yes​	​	​	Yes​	​	Yes​	Yes​	Yes​	Yes​	​	Yes​
19​	12​	​	​	​	​	​	​	​	​	​	​	Yes​	​	Yes​	Yes​	Yes​	​	​	​
20​	13​	​	​	​	​	​	​	​	​	​	​	Yes​	​	​	Yes​	​	​	​	​
21​	14​	​	​	​	​	​	​	​	​	​	​	Yes​	​	​	​	​	​	​	​

Sheet: Sheet1

 

[DanteAmor]

Where are you going to put the numbering 1,2,3,4... in column B or column A?

In your first example you put it in column B. The macro works for column B.

 

[Vishaal]

ok, sorry checking again