Pozdrav
Pokusavao sam izmjeniti kod da kad kopira vrijednosti,ne kopira celije gdje je vrijednost 0
vrijednost 0 se pojavljulje na nekim mjestima gdje postoji formula i gdje je vrijednost 0-
Uredno iskopira sve gdje imaju podaci ali kopira i one redove gdje nema podataka nego samo 0 vrijednost.
For a = 1 To Rng.Rows.Count
If WorksheetFunction.CountA(Rng.Rows(a)) <> 0 Then
rng_dest.Rows(i).Value = Rng.Rows(a).Value
Ima li ko kakvo rijesenje,
Unaprijed hvala.
Pokusavao sam izmjeniti kod da kad kopira vrijednosti,ne kopira celije gdje je vrijednost 0
vrijednost 0 se pojavljulje na nekim mjestima gdje postoji formula i gdje je vrijednost 0-
Uredno iskopira sve gdje imaju podaci ali kopira i one redove gdje nema podataka nego samo 0 vrijednost.
For a = 1 To Rng.Rows.Count
If WorksheetFunction.CountA(Rng.Rows(a)) <> 0 Then
rng_dest.Rows(i).Value = Rng.Rows(a).Value
Ima li ko kakvo rijesenje,
Unaprijed hvala.
Potpis
Jasmin