Wstaw na arkuszu przycisk i przypisz do niego to makro
Sub UkryjWiersze()
For i = 1 To 20 If Range("A" & i).Value = "" Or Range("A" & i).Value = 0 Then Range("A" & i).EntireRow.Hidden = True Next i
EndSub
a tutaj makro do odkrywania ukrytych wierszy:
Sub Ukryj_Odkryj_Wiersze()
Dim i AsLong For i = 1 To 20 If Range("A" & i).Value = "" Or Range("A" & i).Value = 0 Then Range("A" & i).EntireRow.Hidden = False Next i
EndSub
napisał: kasia100 postów: 6
umieszczony: 28 kwietnia 2005 14:00
chodzi mi o utworzenie makra ktore bedzie zwijac kolumny w ktorych sa same zera lub nic nie ma po uruchomieniu przycisku ...
tzn w gornym wierszu arkusza byla by suma kolumn i jezeli = 0 to wtedy makro zwija taka kolumne jezeli nasisniemy przycisk zwin "0"...
nie wiem za bardzo jak sobie poradzic z takim makrem warunkowym..:(:(
wstecz 1 dalej
otwarty rozpoczął: kasia100
postów: 2
admin
