Brisanje redova/stavki van spiska

Odgovori Nova tema

3 odgovora
3.660 pregleda

Brisanje redova/stavki van spiska 11.03.2009. u 11:28 · pre 214 meseci #1

Pretrazio sam ceo es i par drugih foruma ali odgovor na sledece nisam nasao:
u Sheet1 imam spisak stavki po redovima, npr:
1. Belo
2. Zeleno
3. Belo
4. Zuto
5. Plavo
6. Crno
7. Crno
8. Plavo
itd

U Sheet2 dva su boje:
1. Plavo
2. Zeleno

Na osnovu spiska iz Sheet2, potrebno je da u Sheet1 budu izbrisani svi redovi OSIM onih sa Sheet2. Dakle, da ostanu samo Plavo i Zeleno, sve ostalo da se izbrise.
Kako to moze da se uradi?

Re: Brisanje redova/stavki van spiska 11.03.2009. u 17:58 · pre 214 meseci #2

programiranjem makroa (skripte) u kojoj napises da proedi to sto hoces i da brise ako nije TRUE

Potpis

Žena u krevetu i vino na stolu nikako ne smeju da čekaju. Jer, vino se greje a žena hladi.

-vinolog

Re: Brisanje redova/stavki van spiska 11.03.2009. u 21:34 · pre 214 meseci #3

1. Dodaj novi modul (pritisni Alt+F11, pa Insert Module)
2. Ubaci sledeci kod

Code:

Public Sub Brisi()
Dim s1 As String
Dim s2 As String

    s1 = [Sheet2!A1].Value
    s2 = [Sheet2!A2].Value

    Sheets("Sheet1").Activate
    Range("A1").Select
    Do
        If ActiveCell.Value <> s1 And ActiveCell.Value <> s2 Then
            ActiveCell.Rows("1:1").EntireRow.Select
            Selection.Delete Shift:=xlUp
            ActiveCell.Select
        Else
            ActiveCell.Offset(1, 0).Range("A1").Select
        End If
    Loop Until ActiveCell.Value = ""

End Sub

Ovaj kod ce sa Sheet1 obrisati sve one redove u kojima se u koloni A nalaze vrednosti kojih nema u celijama A1 i A2 na listu Sheet2

3. Zatvori VB Editor
4. Startuj Makro (Alt+F8, nadji na spisku Brisi i pritini Run)

Pozdrav

Re: Brisanje redova/stavki van spiska 12.03.2009. u 11:33 · pre 214 meseci #4

Hvala, radi.

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme