Děkuji za odpověď, myslel jsem pouze název toho tlačítka - který tam zůstane pořád.. Např. Motorizace (kdyz jsem to chtel prepsat v Poli názvů tak to nefungovalo.. )
Děkuji pánové. ještě příkaz pro změnu názvu tlačítka at tam nemam CommandButton1? už to tady 5min hledam a nenacházím. Díky.
Už to mám. jen se mi zdá že musím kliknout dvakrát na tlačítko aby se mi zobrazily řádky podruhé.. ale to je maličkost ;-)
Private Sub CommandButton1_Click()
If CommandButton1.Value = Click Then
Range("2:9").EntireRow.Hidden = Not Range("2:9").EntireRow.Hidden
End
End If
End Sub
Zdravím potřeboval bych radu se skrýváním řádků - ale pomocí Tlačítka, nikoli CheckBoxu.. zkoušel jsem to trošku upravit dle makra na checkbox, skryje mi to, ale při druhém kliknutí už se to logicky neotevře, ale nevím co tam mám zadat..
Díky:
Private Sub CommandButton1_Click()
'Skrýt řádky
If CommandButton1.Value = Click Then
Rows("2:9").EntireRow.Hidden = True
End
End If
'Zobrazit řádky
If CommandButton1.Value = Click Then
Rows("2:9").EntireRow.Show = True
End
End If
End Sub
Díky moc! Funguje to. ;-) jste dobří.. :-)
tohle co mam mi funguje na skrytí řádků (236, 227-230). ale potrebuju spolecne s rádky kdyz kliknu na checkbox skryt i obrazek ktery mam vlozený v excelu... tedy nejak nadefinovat k tomuto checkboxu obrazek aby ho skryl...
Zdravím, potřeboval bych pomoct s vytvořením makra na tlačítko checkbox5, které už mám vytvořené (za Vaší pomocí tohoto webu), kde při zapnutí tlačítka checkbox skrývám řádky - a potřeboval bych také OBRÁZEK nadefinovat do tohoto tlačítka spolu s řádky.. DĚKUJI
Private Sub CheckBox5_Click()
'Skrýt řádky
If CheckBox5.Value = True Then
Rows("236").EntireRow.Hidden = True
Rows("227:230").EntireRow.Hidden = True
End
End If
'Zobrazit řádky
If CheckBox5.Value = False Then
Rows("236").EntireRow.Hidden = False
Rows("227:230").EntireRow.Hidden = False
End
End If
End Sub
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.