[ PAULANER @ 04.06.2010. 13:21 ] @
| 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 |