Új hozzászólás Aktív témák

• #38211 Fferi50 Topikgazda csferke #38209

  Új Válasz 2018-06-04 13:21:13 #38211

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz csferke #38209 üzenetére

  Szia!

  Egyrészt miért kellene ehhez külön form,
  Másrészt természetesen makróban is megoldható a bevitel vizsgálata:
  Beírás előtt megnézed, hogy az érték megfelelő-e. Ha nem, akkor ismét bevitel szükséges.
  Viszont ehhez ciklusba kell tenni a bevitelt:
  Do While True
Prompt = "Pesticid felhasználhatósága" + (Chr(13)) + (Chr(13)) + "H - RR - F - I - A - R - L - N - O"
MyValue = InputBox(Prompt, Title, Default, xpos, ypos)
Select Case myValue
Case "H", "RR", "F", "I", "A", "R", "L", "N", "O"
ActiveCell.Value = myValue
Exit Do
Case Else
MsgBox "nem ok"
End Select
Loop

  Üdv.

Új hozzászólás Aktív témák