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
Excel, data Ověření
Re: Excel, data Ověření
Dobrý den
Přikládám přílohu.
hezký den
Milan
Přikládám přílohu.
hezký den
Milan
- Přílohy
-
- data_overeni.xlsm
- (16.38 KiB) Staženo 24 x
Re: Excel, data Ověření
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
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
Re: Excel, data Ověření
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
.InputTitle = "xxxxxxxxxxxxxxxxxx"
.InputMessage = "yyyyyyyyyyyyy"
Nevíte proč makro padá?
Hezký dan
Milan
Re: Excel, data Ověření
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.
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.
Re: Excel, data Ověření
Děkuji pěkně.
M.
M.
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 1
- 735
-
od xCloudGirl
Zobrazit poslední příspěvek
05 bře 2024 15:33
-
-
Redmi 9C - zrušení ověření Google účtu
od Karrex » 16 kvě 2023 16:21 » v Mobily, tablety a jiná přenosná zařízení - 2
- 1854
-
od pcmaker
Zobrazit poslední příspěvek
16 kvě 2023 18:08
-
-
- 4
- 2292
-
od ski1961
Zobrazit poslední příspěvek
08 říj 2023 11:40
-
-
Data science desktop cca 70k Příloha(y)
od Siderit » 24 srp 2023 12:02 » v Rady s výběrem hw a sestavením PC - 10
- 1612
-
od Siderit
Zobrazit poslední příspěvek
25 srp 2023 20:02
-
-
- 4
- 814
-
od jan l
Zobrazit poslední příspěvek
11 led 2024 20:15
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 2 hosti