< návrat zpět

MS Excel


Téma: Podmínka rss

Zaslal/a 1.4.2012 22:35

Ahoj, potřebuji poradit. Mám kód na deaktivaci razítka (obrázku razítka)ve formuláři, ale potřeboval bych přidat podmínku, která by přeskočila proces deaktivace razítka pokud v sešitě není vložen obrázek razítka. Snad jsem to napsal srozumitelně:-)
Prosím o radu.
Zde je kód:
Private Sub CheckBox1_Click()
Application.ScreenUpdating = False

If CheckBox1.Value = True Then
Sheets("NastaveníFaktury").Shapes("razitko").Visible = True
End If

If CheckBox1.Value = False Then
Sheets("NastaveníFaktury").Shapes("razitko").Visible = False
End If
Application.ScreenUpdating = True

End Sub

stop Uzamčeno - nelze přidávat nové příspěvky.

#007887
avatar
ZKUS TOTO:
Private Sub CheckBox1_Click()
Application.ScreenUpdating = False
On Error Resume Next
Err = 0
Sheets("NastaveníFaktury").Shapes("razitko").Select
If Not Err = 0 Then Exit Sub

If CheckBox1.Value = True Then
Sheets("NastaveníFaktury").Shapes("razitko").Visible = True
End If

If CheckBox1.Value = False Then
Sheets("NastaveníFaktury").Shapes("razitko").Visible = False
End If
Application.ScreenUpdating = True

End Sub
citovat
#007892
avatar
Děkuji, funguje skvěle....citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

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.

On-line nástroje