• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse