Wprowadzanie danych do arkusza

0

witam , potrzebuję pomocy, mianowicie, chciałbym mieć możliwość ponownego zadeklarowania danych, w przypadku, gdy moje PS jest >100 i gdy PS=0 i gdy nie jest wartością liczbową lub brakiem wartości w ogóle, jakoś mi to nie wychodzi......plissss....

PS = InputBox("Podaj PS rurociągów ", "Ciśnienie obliczeniowe")
For z = 1 To 8
Cells(1 + z, 1) = PS
If IsNumeric(PS) = True Then
PS = Round(PS, 0)
If PS > 100 Then
StrResult = "Wprowadź poprawne dane"
ElseIf PS > 0 Then
StrResult = PS
ElseIf PS <= 0 Then
StrResult = "Wprowadź poprawne dane"
End If
Else: StrResult = "Wprowadź wartość liczbową"
End If
Next z

0

Pętla WHILE

0

@MArcin, możesz przykład napisać dla PS=0....dzięki

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0