[es] - VBA kod uz uslov da je polje B15>0

PAULANER
Goran Andrić
Beograd

Član broj: 165519
Poruke: 26
*.ptt.rs.

Profil

^{04.06.2010. u 13:21 - pre 169 meseci}

Potrebna mi je pomoć oko VBA koda.
Šta je potrebno da uradim da bi se upisivali svi traženi podatci samo uz uslov da je polje B15>0.

Sheets("racun").Select
Range("D11").Copy
Sheets("robno ").Select
ActiveCell.Offset(0, 0).PasteSpecial (xlPasteValues)

Sheets("racun").Select
Range("B15").Copy
Sheets("robno ").Select
ActiveCell.Offset(0, 1).PasteSpecial (xlPasteValues)

Sheets("racun").Select
Range("C15:F15").Copy
Sheets("robno ").Select
ActiveCell.Offset(0, 1).PasteSpecial (xlPasteValues)

Sheets("racun").Select
Range("G15").Copy
Sheets("robno ").Select
ActiveCell.Offset(0, 1).PasteSpecial (xlPasteValues)

Sheets("racun").Select
Range("M15").Copy
Sheets("robno ").Select
ActiveCell.Offset(0, 1).PasteSpecial (xlPasteValues)

Sheets("racun").Select
Range("H15:I15").Copy
Sheets("robno ").Select
ActiveCell.Offset(0, 1).PasteSpecial (xlPasteValues)

Sheets("racun").Select
Application.CutCopyMode = False

Odgovor na temu

djoka_l
Beograd

Član broj: 56075
Poruke: 3453

Jabber: djoka_l

+1462 Profil

Re: VBA kod uz uslov da je polje B15>0

^{04.06.2010. u 13:29 - pre 169 meseci}

Sheets("racun").Select
if Range("B15").Value > 0 then

...

end if

Odgovor na temu

PAULANER
Goran Andrić
Beograd

Član broj: 165519
Poruke: 26
*.ptt.rs.

Profil

Re: VBA kod uz uslov da je polje B15>0

^{08.06.2010. u 11:26 - pre 169 meseci}

Zahvaljujem se na pomoći.

Odgovor na temu