Problem koji ne znam da rešim je preciziran u prilogu. Hvala ljudima koji žele da pomognu.
Potpis
Snić
Brojač u excelu 2013
Zaključano
Zakačeno
Sigurno da ima neko "elegantno" resenje, ali mislim da ovo radi :
Code:
Sub ffff()
If Range("A6").Value >= 6 Or 0 Then
i = 0
Else
i = Range("A6").Value
End If
Range("A3").Select
ActiveCell.FormulaR1C1 = "=RANDBETWEEN(2,3)"
Range("A4").Select
ActiveCell.FormulaR1C1 = "=RANDBETWEEN(2,3)"
Range("A5").Select
ActiveCell.FormulaR1C1 = "=RANDBETWEEN(2,3)"
Range("A6").Value = i + 1
Range("A6").Select
Selection.NumberFormat = "0. put"
i = i + 1
End Sub
Sub ffff()
If Range("A6").Value >= 6 Or 0 Then
i = 0
Else
i = Range("A6").Value
End If
Range("A3").Select
ActiveCell.FormulaR1C1 = "=RANDBETWEEN(2,3)"
Range("A4").Select
ActiveCell.FormulaR1C1 = "=RANDBETWEEN(2,3)"
Range("A5").Select
ActiveCell.FormulaR1C1 = "=RANDBETWEEN(2,3)"
Range("A6").Value = i + 1
Range("A6").Select
Selection.NumberFormat = "0. put"
i = i + 1
End Sub
Potpis
VICTORIA CONCORDIA CRESCIT
Ovo sasvim elegantno funkcioniše. Hvala.
Potpis
Snić