(21.09.2007. - 14:51) Tema je premeštena iz foruma Flash u forum Čekaonica.

(22.09.2007. - 14:46) Tema je premeštena iz foruma Čekaonica u forum Office.

drugi deo pitanja ces lako resiti (ako sam te razumeo sta hoces,a to je da ti izbaci samo redove gde je a>0?)ako u svako polje drugog sheeta u trazenom rangu uneses pocev od a12 =if(sheet1!a12>0,a12,""),oda autofilluj i dobices samo one podatke gde ti je u prvom sheetu a vece od nule.
sto se tice prvog pitanja tebi je potrebna forma u vba samo mi reci jel prilikom unosa datuma makro treba iznos da stavi u ono polje koje odgovara vec unetom datumu u koloni c ili da redja redom nove datume?

makro treba da ubaci datu u onom polju u koji vec postoji datum za taj mesec ali novi datum, i od tog datuma da kopira i prebaci kopiju u na drugu stranu (Pregled). Nije potrebvno da mi ukoloni od A12 budu upisani redovi gde je A>0, već da od reda gde je A>0 budu upisani svi naredni redovi i ako su =0. na strani Pregled.

_{[Ovu poruku je menjao s.makic dana 23.09.2007. u 22:39 GMT+1]}

Ovo je kako sam te ja razumeo ono sto hoces.

Da bi dovršio svoj makro potrebna mi je pomoc da ubacim samo kriterijum ili filter koji će da ogranići kopiranje ranga A12:H110 na listu "Radni" ali samo od ćelije A u kojoj ima iznos (napomena: u svim ostalim redovima kolone A nema iznos) do H110. U nastavku dajem navedeni makro kome treba dodati kriterijum ili filter.
Sub Izracunaj()
'
' Izracunaj Macro
'

'
ActiveWindow.SmallScroll Down:=9
Range("A12:A93").Select
Selection.ClearContents
Range("K12:K93").Select
Selection.Copy
Range("C12").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Application.Run "'revalorizacije dugovanja 2.xls'!macro1"
Sheets("Pregled").Select
Range("A12:H130").Select
Selection.ClearContents
Application.Run "'revalorizacije dugovanja 2.xls'!otkrij_list"
Sheets("Radni").Select

Range("A12:H110").Select
Selection.Copy
Sheets("Pregled").Select
Range("A12").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Sheets("Radni").Select
Application.CutCopyMode = False
Application.Run "'revalorizacije dugovanja 2.xls'!sakrij_list"
Sheets("Obracun").Select

End Sub

Hteo bih da se zahvalim svima onima koji su mi svojim idejama pokušali da mi pomognu i na taj način mi pomogli da dođem skoro do kraja, potreban mi je još samo ova mala pomoć.

Ne znam koliko si vičan ali po kodu koji si postavio bih rekao da si totalni početnik - ono je tipičan izgled koda snimljenog makro-rekorderom, na to sam mislio. Tako da, malo je teže odlučiti se odakle početi. :)

Više je načina da se dođe do rešenja, možda najbolji put vodi preko Do While petlje ali ako nisi nikada ovo radio potrajaće dok ne naučiš. Mada, ako se sam ne potrudiš nikad nećeš ni naučiti. ;)

Ja bih mogao ovo da ti uradim i bez makroa ali sigurno ne za dž'. Malo sam se poigrao čisto da vidim da li je moguće uraditi bez programiranja i završih oko 90%. :) Dakle, moguće je i uz formule ali traži znanja i snalažljivosti..

Pogledaj na ovoj temi http://www.elitesecurity.org/t240586 ima već nešto slično.