Brisanje skrivenih redaka

poruka: 10
|
čitano: 3.327
|
moderatori: pirat, Lazarus Long, XXX-Man, vincimus
1
+/- sve poruke
ravni prikaz
starije poruke gore
12 godina
offline
Brisanje skrivenih redaka

Bok,

 

Dali netko zna kako obrisati skrivene redove u Open Office Calc programu ili kopirati ostalo bez tih skrivenih redova?

 

Pozdrav,

Antonio

 
0 0 hvala 0
14 godina
offline
Re: Brisanje skrivenih redaka

Vjerojatno u OOC ima neki pandam Excel opciji "Go To Special" => Constants

ili

Filtriraj stupac  po praznim redovima, selektiraj sve redove i obriši ih, ili selektiraj nonblanks pa kopiraj

 

ili preko formule a pogledaj i ovaj tutor za Excel, možda se da nešto iskoristiti. sorry ne koristim OO

Web tutoriali za početnike, Visual Basic, Autocad, Windows, Excel, Word, FrontPage, PowerPoint, Home Network
12 godina
offline
Re: Brisanje skrivenih redaka

Hvala na pomoči, ali ništa od toga.

Problem je u tome da ti redovi nisu prazni, samo skriveni.

16 godina
neaktivan
offline
Re: Brisanje skrivenih redaka
Antonio3003 kaže...

Hvala na pomoči, ali ništa od toga.

Problem je u tome da ti redovi nisu prazni, samo skriveni.

 smiješ koristiiti macroe?

12 godina
offline
Re: Brisanje skrivenih redaka
sasa kaže...
Antonio3003 kaže...

Hvala na pomoči, ali ništa od toga.

Problem je u tome da ti redovi nisu prazni, samo skriveni.

 smiješ koristiiti macroe?

Smijem, zašto ne? Samo ne znam kako:)

14 godina
offline
Re: Brisanje skrivenih redaka
Antonio3003 kaže...

Smijem, zašto ne? Samo ne znam kako:)

 Za rad sa Macro-ima pogledaj link Makronaredbe u Excelu

 

 

Probaj iskoristiti jedan od ovih macroa

 

#######################

Public Sub DeleteHidden()
Dim rngHidden As Range

On Error Resume Next ' In case there's no hidden cells
With Cells
    Set rngHidden = .SpecialCells(xlCellTypeVisible)
    .EntireRow.Hidden = False 'Unhide all cells
    rngHidden.EntireRow.Hidden = True 'Hide previously visible cells
    .SpecialCells(xlCellTypeVisible).EntireRow.Delete 'Delete previously hidden cells
    rngHidden.EntireRow.Hidden = False ' Unhide previously visible cells
End With

End Sub
############ ili ovaj ###############

 

Sub DeleteHiddenRows()
    For j = ActiveCell.SpecialCells(xlLastCell).Row To 1 Step -1
        If Rows(j).Hidden Then
             'Rows(j).Hidden = False
             'Rows(j).Activate
             'Selection.Delete
            Rows(j).EntireRow.Delete
        End If
    Next j
End Sub
############ ili ovaj ###############

 

Sub delHiddenRows()
    Dim r As Range, k As Range
    With ActiveSheet
        Set r = .Range("A1:A" & .Cells.SpecialCells(xlCellTypeLastCell).Row)
        Set k = r.SpecialCells(xlCellTypeVisible)
        r.EntireRow.Hidden = False
        k.EntireRow.Hidden = True
        r.SpecialCells(xlCellTypeVisible).EntireRow.Delete
        r.EntireRow.Hidden = False
    End With
End Sub

#################

 

Macro pokrećeš sa ALT+F8

 

Web tutoriali za početnike, Visual Basic, Autocad, Windows, Excel, Word, FrontPage, PowerPoint, Home Network
16 godina
neaktivan
offline
Brisanje skrivenih redaka

eto, prestigao me IvanC

;)

Moj PC  
0 0 hvala 0
12 godina
offline
Re: Brisanje skrivenih redaka

Hvala vam, ali prekomplicirano je ovo za mene. A nemam se ni vremena puno baviti s tim, mislio sam da postoji jednostavnije rješenje.

14 godina
offline
Re: Brisanje skrivenih redaka
Antonio3003 kaže...

mislio sam da postoji jednostavnije rješenje.

 Pa čega se bojiš, to je tako jednostavno

btw: pogledaj link

 

- brisanje skrivenih redova u Excelu

Web tutoriali za početnike, Visual Basic, Autocad, Windows, Excel, Word, FrontPage, PowerPoint, Home Network
12 godina
offline
Re: Brisanje skrivenih redaka

Uspio sam sa prvom naredbom{#}

Ma problem je bio kaj sam radio to u open office, a naredbe su za excel. Sad sam kopirao dekument na usb i otvorio kod kolegice u excelu i tamo obrisao redove.

 

Hvala vam{#}

1
Nova poruka
E-mail:
Lozinka:
 
vrh stranice