vba output only one cell

[montecarlo2012]

Hi All.

Sub ab()

n = 5    '..................................size
px = n  '..................................left print control
py = n  '..................................right print control

      For i = 1 To n
      
            For j = 1 To n * 2
            
                  If j = px Or j = py Then
                           Cells(i, j) = "+"
                           Else
                           Cells(i, j) = ""
                           px = px - 1
                           py = py + 1
                  End If
            
            Next j
      Next i

End Sub

and this is the display

totally wrong
the output must be

Please,
Your input matters to me.
Thank you for reading this.

 

[lrobbo314]

How about this?

Book1
	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			+														+
9		+																+
10	+																		+
Sheet1

Sub ab()

n = 10    '..................................size
px = n  '..................................left print control
py = n  '..................................right print control

For i = 1 To n
    For j = 1 To n * 2
        If j = n - (i - 1) Or j = n + (i - 1) Then Cells(i, j) = "+" Else Cells(i, j) = ""
    Next j
Next i

End Sub

 

[lrobbo314]

Another way to do it without looping.

Sub noLoop()
Dim n As Integer:       n = 5
Dim r As Range:         Set r = Range("A1").Resize(n, n * 2 - 1)

With r
    .Formula = "=IF(OR(COLUMN()=" & n & "-(ROW()-1),COLUMN()=" & n & "+(ROW()-1)),""+"","""")"
    .HorizontalAlignment = xlCenter
    .Value = .Value
    With .Borders
        .LineStyle = xlContinuous
        .Color = vbBlack
        .Weight = 2
    End With
    .ColumnWidth = 5
    .FormatConditions.Add xlCellValue, xlEqual, "=""+"""
    .FormatConditions(1).Interior.Color = vbYellow
End With

End Sub

 

[montecarlo2012]

lrobbo314 Thank you, Work perfect.
I already click as solution plus a like.
You are good.

 

[montecarlo2012]

Irobbo314 thanks also for your second code.

I am very, very interesting on the pre-logic and logic before you write the loop
I don't know IF when you use "with_____end with" statement you need some
kind of logic boards like this, (just one among others)

IF so, please let me know where to find.
this is my deeply concern - logic, -
Thanks.

 

[Marc L]

Hi, according to px, py logic starting on a blank worksheet :​

Sub Demo1()
        N% = 5
    For R% = 1 To N
        Union(Cells(R, N + 1 - R), Cells(R, N - 1 + R)).Value2 = "¤"
    Next
End Sub

 

[montecarlo2012]

Thank you Marc, nice.