View Single Post
Staro 07.03.2014., 10:41   #10
Kruno M
Premium
Moj komp
 
Kruno M's Avatar
 
Datum registracije: Nov 2004
Lokacija: VKCI
Postovi: 1,223
Citiraj:
Autor Sa_Stilom Pregled postova
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


Pokušati ću ovo riješiti jer dobro mi dođe da malo i taj dio nadogradim.
Ja ću ga sad sa VBA auto sortirati (valjda), ali bi mi takodjer bilo zanimljivije eliminirati podatke koji su mi nepotrebni.

Isto tako će mi ovo uskoro više trebati, ovo je prvi puta.
__________________
Pošteni trgovci: 1 2 3 4 5 6 7 8 9 10 11 12
Kruno M je offline   Reply With Quote