MS Excel

Téma: Podmínka

Zaslal/a marficek119 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

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

RomanX(2.4.2012 21:41)#007887

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

marficek119(2.4.2012 23:21)#007892

Děkuji, funguje skvěle....citovat

Uživatelské menu

Nejste přihlášen(a)

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.