[ nebojsa.ks @ 16.01.2012. 11:02 ] @
Kako u excel-u da iz Sheet1 iskopiram u Sheet2, podatke uz uslov da kopiram red koji ima u sebi obojenu jednu ćeliju koja ima broj veći od 0.
Pa ispod njega da se iskopira sledeći red uz isti uslov da ima obojenu jednu ćeliju koja je veća od 0, itd...
[ 3okc @ 16.01.2012. 11:41 ] @
U kojoj verziji radiš? Od Excela 2007 imaš mogućnost filtriranja po boji ćelije: radi isto kao sa podacima.
[ nebojsa.ks @ 16.01.2012. 12:13 ] @
OK Hvala uspeo sam da uradim sa 2007. Završen posao.

Isto pitanje samo sa zamenjenim uslovom čisto informativno možda zatreba, a već sam pokrenuo temu.

Kako u excel-u 2003,XP da iz Sheet1 iskopiram u Sheet2, podatke uz uslov da kopiram red uz uslov (npr. da ćelija E>100).
[ p.djole @ 17.01.2012. 00:46 ] @
ovo bi trebalo da radi
Code:
Sub kopiraj()

Sheet1.Range("E1:E300").Select
For Each celija In Selection
If celija.Value > (100) Then
celija.Select
ActiveCell.Copy
Sheet2.Activate
Sheet2.Range("A1").Select
Range("A65536").End(xlUp).Offset(1, 0).Select

Selection.PasteSpecial Paste:=xlPasteValues, _
     Operation:=xlNone, SkipBlanks:=False, Transpose:=False
     Application.CutCopyMode = False
Sheet1.Activate

End If
Next celija
End Sub



[ mrbr @ 24.01.2012. 14:23 ] @
laičko pitanje:
da li ovaj vba kod treba ubaciti u sheet 1 ili sheet 2?
kako se pokreće?
ja sam ga iskopirao ali ništa :(

hvala
[ p.djole @ 24.01.2012. 14:43 ] @
Evo na brzaka primer u prikacenom fajlu. Cim budem imao vremena postavicu efikasnije resenje istog problema,
odnosno modifikovacu makro od 3okc koji je neuporedivo brzi.