Excel, data Ověření

[VOM]

Dobrý den
Nahraji makro pro zamezení přepisování dat (část viz níže), které však nelze přehrát. Zasekne se na řádku .IgnoreBlank = True
a pak na všech dalších.
Prosím o radu
Milan

With Selection.Validation
.Delete
.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="="""""
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With

[Reklama]

[cmuch]

To by chtělo nějakou přílohu.

[VOM]

Dobrý den
Přikládám přílohu.
hezký den
Milan

[eLCHa]

Co máte na mysli
Nahraji makro pro zamezení přepisování dat
Na to přece slouží zámek.

Pokud si ale trváte na svém, smažte ty řádky, kde to hází chybu. Fungovat to bude - postačí toto

Kód: Vybrat vše

With Range("G4:G15")
.Validation.Delete
.Validation.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="="""""
End With

[VOM]

Díky za radu, ale já jsem chtěl tak jako dříve využít:
.InputTitle = "xxxxxxxxxxxxxxxxxx"

.InputMessage = "yyyyyyyyyyyyy"

Nevíte proč makro padá?

Hezký dan
Milan

[eLCHa]

Mno, já nevím, jestli Vás v tom mám podporovat ;)))

Problém je v tomto "="""""
Nelíbí se mu to, protože jste vlastně nezadal žádný vzorec. Když si dáte ručně vytvořit ověření se vzorcem ="" a dáte OK, tak to sežere. Ale pokud ho znovu otevřete, vidíte že tam žádný vzorec není a po stisku OK Vás to dále nepustí. Musíte tam narvat něco, co tam zůstane. Vyzkoušejte následující

Kód: Vybrat vše

With Range("G4:G15")
.Validation.Delete
With .Validation
.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=" & Chr(0)
.InputTitle = "xxxxxxxxxxxxxxxxxx"
.InputMessage = "yyyyyyyyyyyyy"
End With '.Validation
End With 'Range("G4:G15")

Pro své čisté svědomí Vás ještě jednou upozorňuji, že dublujete funkci zámku.

[VOM]

Děkuji pěkně.
M.