Brisanje skrivenih redaka

poruka: 10
|
čitano: 563
|
moderatori: naxeem, F1-IVO, Danny_HR, pirat, Lazarus Long
1
+/- sve poruke
ravni prikaz
starije poruke gore
3 mjeseca
neaktivan
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

2 godine
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
3 mjeseca
neaktivan
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.

4 godine
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?

3 mjeseca
neaktivan
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:)

2 godine
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
4 godine
offline
Brisanje skrivenih redaka

eto, prestigao me IvanC

;)

3 mjeseca
neaktivan
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.

2 godine
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
3 mjeseca
neaktivan
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