Jesteś WIELKI :D
Dziękuję bardz za pomoc i serdecznie pozdrawiam

Moźna to zrobić w ten sposób

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Value 800 Then
MsgBox "Okienko Dane1 przekracza wartość graniczną"
TextBox1.Text = ""
End If
End Sub

Pozdrawiam

Wielkie dzięki za pomoc juź prawie wszystko śmiga tak jak chciałem.Ma tylko jeszcze jeden problem czy moźna w jakiś sposób zdefiniować aby do danego pola moźna było wpisywać tylko określone wartości np. dane1 od 20 do 800 włącznie
Pozdrawiam.

Tak bardzo krótko poniewaź temat jest rozległy.
Wyświetlasz okno VBA – np. Alt+F11
Z menu Insert wybierasz UserForm
Z menu view wyswietlasz Properties Windows oraz toolbox
W okienku Properties moźna zmodyfikować w pewnych granicach elementy umieszczone na UserForm jak i sam UserForm. Reszte moźna dopisać w róźnych zdarzeniach danego elementu (po dwukrotnym kliknięciu wybranego elementu wyświetli się jakieś zdarzenie, inne będą do wyboru z dwóch górnych comboboxów).
To tak w ogromnym skrócie.
Pozdrawiam

bardzo fajna sprawa
jeźeli mógłbyś jeszcze napisać po krótce jak do tego dojść, z jakich narzędzi skorzystać?
to byłbym bardzo wdzięczny
Pozdrawiam

Zerknij do załącznika. Bez upiększeń i zabezpieczeń przed radosną twórczością wypełniającego formatkę.

Dziękuję za pomoc :)

a jeśli chodzi o pytanie: "dlaczego uźywasz tak starych rozwiązań? "

a jakie rozwiązanie Ty byś proponował? nie jestem biegły w exelu ale chętnie nauczę się czegoś nowego jeszcze raz dziękuję za pomoc
Pozdrawiam

Hej!!
Nie twierdzę, źe znam okna dialogowe ale pokombinowałem i wyszło, źe moźna tak:

ActiveSheet.Shapes("Edit Box 7").Select
dane1 = Selection.Characters.Text

Wybacz pytanie – dlaczego uźywasz tak starych rozwiązań?
Pozdrawiam