Nisam maher u VBA, puno googlam googlam dok ne sklepam "kod" koji radi ono što mi treba.
Znam otprilike kako postaviti zadatak, no ne znam ga napisati.
Code:
Sub Zadatak ()
Dim X as ?, Y as ?, Z as ?
X = Sheet1A1
Z = Sheet2A1
i = i + ActiveCell.Offset(1, 0) = 1
If X>0 Then nešto Sheet2A1
nešto nešto idi na početak
...i sad još treba postaviti neki uvijek kada se petlja završava
E sad, koliko sam blizu ili daleko od točnog riješenja, ne bih znao... Više sam matematičar, nego programer i to me koči da napredujem ako programer a i ne interesira me previše programiranje osim kada mi zatreba, a onda završim satima/danima googlajući.
Generalno, putem VBA sve se može riješiti, samo treba to znati postaviti i napisati.
Pokušati ću ovo riješiti jer dobro mi dođe da malo i taj dio nadogradim.