Excel - automatski hide reda

Koliko ja poznajem funkcije u Excelu, a inače smatrama da ih veoma dobro poznajem, takva funkcija ne postoji.
Rešenje je da pomoću makroa napraviš mali program koji će to da odradi. Za to ti je potrebno samo malo znanja u VisalBasic-u. Makro možeš da pokreneš nekom skraćenbicom sa tastature koju ti definišeš.
 
Hi Violet!

ova VBA procedura omogucava skrivanje niza
pod uslovom da je vrednost neke celije u nizu
ista kao i vrdnost promenljive (uslov).
U primeru promenljivoj uslov data je vrednost "SKRIVENO" koju mozete nekom drugom zameniti.


Makro:


'procedura provera promena u sheet-u
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo errHandler
'dektiviranje visualnosti kursora
Application.EnableEvents = False

Dim area As Range
Dim uslov As String
uslov = "SKRIVENO" 'proizvoljna vrednost

Set area = Range("A1:A50") 'podrucje

'metodom intersect proverava se promena u okviru podrucja (area)
If Not Application.Intersect(Target, area) Is Nothing Then
'skrivanje linije kod vrednosne podudarnosti
'aktualne celije i uslova

If Target.Value = uslov Then
Target.EntireRow.Hidden = True
End If
End If

errHandler:
'aktiviranje kursora
Application.EnableEvents = True

End Sub

Pozdrav. Bel á Ra da
 

Slične teme


Back
Top