Bok,
Dali netko zna kako obrisati skrivene redove u Open Office Calc programu ili kopirati ostalo bez tih skrivenih redova?
Pozdrav,
Antonio
Bok,
Dali netko zna kako obrisati skrivene redove u Open Office Calc programu ili kopirati ostalo bez tih skrivenih redova?
Pozdrav,
Antonio
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
Hvala na pomoči, ali ništa od toga.
Problem je u tome da ti redovi nisu prazni, samo skriveni.
Hvala na pomoči, ali ništa od toga.
Problem je u tome da ti redovi nisu prazni, samo skriveni.
smiješ koristiiti macroe?
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:)
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
eto, prestigao me IvanC
;)
Hvala vam, ali prekomplicirano je ovo za mene. A nemam se ni vremena puno baviti s tim, mislio sam da postoji jednostavnije rješenje.
mislio sam da postoji jednostavnije rješenje.
Pa čega se bojiš, to je tako jednostavno
btw: pogledaj link
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