[ jaskojsako @ 22.12.2020. 15:59 ] @
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.
[ Jpeca @ 24.12.2020. 09:23 ] @
Nisi dao primer podataka. Ovako kako si napisao ti proveraš sa COUNTA ceo red.
U slučaju da imaš bilo kakav tekst u ćeliji, pa i 0 to će vratiti broj veći od 0.
Možda možeš da proveriš da je suma različtia od 0, mada ako imaš -3 i +3 to će biti 0. Možeš u tom slučaju da iskoristiš countif sa uslovom <>0 da bude >0