Dzień Dobry.
Przygotowuję formularz dla użytkownika zewnętrznego. Chciałabym aby formularz blokował w danej kolumnie wprowadzenie danych w innym formacie niż numerycznym wraz z MsgBoxem o konieczności korekty, jeśli wprowadzony zostanie np tekst.
Zwykła walidacja danych zadziała jedynie przy wprowadzaniu danych z ręki, nie zadziała jeśli dane są przeklejane do formularza ze schowka, więc sądzę, że VBA mógłby być tutaj rozwiązaniem. Jakiś pomysł?
Póki co udało mi się stworzyć pętlę sprawdzającą, czy kolumna zawiera wartości numeryczne.
Czy jest możliwość, żeby VBA się odpalało automatycznie np. przed zamknięciem pliku, tak aby wymusić na użytkowniku wprowadzenie poprawnych danych?
Sub TestColumn() Dim komorka As Range Dim Worksheet As Worksheet ThisWorkbook.Sheets("report").Select Range(Range("J2"), Range("J2").End(xlDown)).Select For Each komorka In Selection If isnumeric(komorka.Value) = False Then MsgBox "Column XYZ should include numeric values" End If Next komorka End Sub