Like this?
Code:
If TypeName(UserVal) <> "Boolean" Then
Range("H107") = UserVal
Else
Exit Sub
I add this, and still is problem:
Sub Generowanie_danych_PK1()
Dim UserVal As Currency
On Error GoTo Canceled
UserVal = Application.InputBox(Prompt:="Podaj wartość (w zł) aktywów trwałych na koniec ostatniego roku:", Title:="Podaj dane", Default:=Default, Type:=1)
If TypeName(UserVal) <> "Boolean" Then Range("H107") = UserVal
Else
Exit Sub
UserVal = Application.InputBox(Prompt:="Podaj wartość (w zł) kapitału (funduszu) własnego na koniec ostatniego roku:", Title:="Podaj dane", Default:=Default, Type:=1)
If TypeName(UserVal) <> "Boolean" Then Range("H108") = UserVal
Else
Exit Sub
UserVal = Application.InputBox(Prompt:="Podaj wartość (w zł) zobowiązań długoterminowych na koniec ostatniego roku:", Title:="Podaj dane", Default:=Default, Type:=1)
If TypeName(UserVal) <> "Boolean" Then Range("H109") = UserVal
Else
Exit Sub
UserVal = Application.InputBox(Prompt:="Podaj wartość (w zł) kredytów i pożyczek krótkoterminowych na koniec ostatniego roku:", Title:="Podaj dane", Default:=Default, Type:=1)
If TypeName(UserVal) <> "Boolean" Then Range("H110") = UserVal
Else
Exit Sub
UserVal = Application.InputBox(Prompt:="Podaj wartość (w zł) amortyzacji na koniec ostatniego roku:", Title:="Podaj dane", Default:=Default, Type:=1)
If TypeName(UserVal) <> "Boolean" Then Range("H111") = UserVal
Else
Exit Sub
UserVal = Application.InputBox(Prompt:="Podaj wartość (w zł) Zysku (straty) z działalności operacyjnej na koniec ostatniego roku:", Title:="Podaj dane", Default:=Default, Type:=1)
If TypeName(UserVal) <> "Boolean" Then Range("H112") = UserVal
Else
Exit Sub
UserVal = Application.InputBox(Prompt:="Podaj wartość (w zł) odsetek na koniec ostatniego roku:", Title:="Podaj dane", Default:=Default, Type:=1)
If TypeName(UserVal) <> "Boolean" Then Range("H113") = UserVal
Else
Exit Sub
UserVal = Application.InputBox(Prompt:="Podaj wartość (w zł) pozostałych kosztów finansowych na koniec ostatniego roku:", Title:="Podaj dane", Default:=Default, Type:=1)
If TypeName(UserVal) <> "Boolean" Then Range("H114") = UserVal
Else
Exit Sub
MsgBox ("Dane dla pełnej księgowości uzupełnione")
Canceled:
End Sub
I want to have the possibility the exit after of each line from application?