< návrat zpět
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
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