PC-HELP.CZ

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

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

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

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

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

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í
Pro své čisté svědomí Vás ještě jednou upozorňuji, že dublujete funkci zámku.

Děkuji pěkně.
M.