MS Excel

Téma: Worksheet_Change

Zaslal/a Drobcek28 15.5.2009 15:21

Ahojte vsetci, mam problem pri zadavani podmienok pri zmene bunky.

ak na bunke stlacim DELETE tak mi vyhodi chybu:

Run-time error '13': Type mismatch

neviete ako sa toho zbavit? Je tam len toto.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Value = "Vadná odeslána" Or Target.Value = "Vadná odeslána - Galway" Then

Target.Cells(, 2) = Date

End If
End Sub

Zaslat odpověď >

kolokol(15.5.2009 23:15)#000519

Právě jsem to vyzkoušel v Excel 2007 a žádné chyby mi to nedělá.

citovat

admin(16.5.2009 14:04)#000520

Chyba se zobrazí, pokud označím oblast buněk a provedu změnu (výmaz). Mělo by stačit jen ošetřit chybu. Takhle by to mělo být OK.

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo x
If Target.Value = "Vadná odeslána" Or Target.Value = "Vadná odeslána - Galway" Then
Target.Cells(, 2) = Date
End If

x:
End Sub
citovat

Drobcek28(18.5.2009 10:04)#000521

to: Petr

target su zlucene 3 bunky...

nejde to nejako osetrit inac ako obchadzkou celeho kodu? napr nejakou definiciou?citovat

kolokol(19.5.2009 8:15)#000524

Nejsem sice Petr, ale zkusil jsem to a funguje mi to i pro sloučené buňky. Jsem zvědavý, jestli bude mít Petr jednodušší řešení :

Nahraď výraz Target.Cells výrazem Target.Offset

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.