Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

  • 5 odgovora
  • 2.649 pregleda

Najnovija ↓

Excel - selektovanje 01.06.2011. u 22:32 · pre 187 meseci #1
Kako automatski selektovati da bude kao na slici (svaki osmi red, npr. i prvih npr. pet kolona)?
Naravno moj dokument ima "beskonacno" redova :)

Hvala unapred :)
Re: Excel - selektovanje 01.06.2011. u 23:53 · pre 187 meseci
izmenjeno 1 put, poslednji put Brodoplovac 02.06.2011. u 00:17
  1. Brodoplovac02.06.2011. u 00:17zapis iz teksta poruke
#2
Možeš da u zasebnu kolonu ubaciš formulu '=if(mod(row()-1);8)=0;"*";"")'. Formulu prevuci nadole. Ova formula će u svaki osmi red staviti zvezdicu. Kasnije izfiltriraš svoje podatke koristeći zvezdicu kao argument. Izfiltrirane redove selektuješ i dalje radiš šta ti treba.

Drugi način je da iskoristiš ovaj makro. Prvo uneseš u M1 koji red treba da bude selektovan, a u N1 uneseš koliko kolona. Onda pokreneš makro.

Sub Selekcija()
Dim lngSvakiRed As Long
Dim lngBrojKolona As Long
Dim rngRed As Range
Dim rngSelekcija As Range
Dim i As Long

If Not IsNumeric(Range("m1")) Or Not IsNumeric(Range("n1")) Then
MsgBox "Morate uneti 'svaki red' u m1, a broj kolona u n1."
Exit Sub
End If

lngSvakiRed = Range("m1").Value
lngBrojKolona = Range("n1").Value

Set rngSelekcija = Range(Cells(1, 1), Cells(1, lngBrojKolona))

For i = 2 To 300
If (i - 1) Mod lngSvakiRed = 0 Then
Set rngRed = Range(Cells(i, 1), Cells(i, lngBrojKolona))
Set rngSelekcija = Union(rngSelekcija, rngRed)
End If
Next i

rngSelekcija.Select
End Sub
Re: Excel - selektovanje 02.06.2011. u 10:57 · pre 187 meseci #3
Hvala puno na odgovoru.
Resio sam problem :)

Ipak, ne znam zasto mi ne uspreva prva metoda.
Kada kopiram formulu i prevucem na dole ne dobijam zvezdice.
U cemu je problem?
Re: Excel - selektovanje 02.06.2011. u 11:16 · pre 187 meseci #4
Zato što ti je podatak u C koloni (F kolona na mojoj slici) formatiran kao tekst. Podatak mora biti formatiran kao "Number" da bi formula bila prepoznata.
Re: Excel - selektovanje 02.06.2011. u 12:07 · pre 187 meseci #5
Citat:
mrkii: Ipak, ne znam zasto mi ne uspreva prva metoda.
Kada kopiram formulu i prevucem na dole ne dobijam zvezdice.
U cemu je problem?
zato što

=IF(MOD(ROW()-1);8)=0;"*";"")

nije isto što i

=IF(MOD(ROW()-1;8)=0;"*";"")

ima jedna zagrada viška
Re: Excel - selektovanje 02.06.2011. u 12:33 · pre 187 meseci #6
Super :)

Hvala obojici na velikoj pomoci!
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme