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

• #23379 slashing senior tag

  Új Válasz 2014-09-23 07:59:38 #23379

  Ú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

  

  slashing

  senior tag

  Most már csak a user errorokat próbálom kiküszöbölni. Érdekelne hogy mi a legegyszerűbb megoldás arra hogy a Név és WO kérésre ha valamiért Mégsét nyom vagy nem ír be semmi és úgy okézza le akkor ne lépjen tovább a program hanem mindenképpen be kelljen írni valamit?
  A dátumot megoldottam egy neten talált példa alapján de kicsit hosszasnak érzem a kódot nem szeretném mindegyikre így végigvezetni.

  Ötletek?

  Így indul a kód:

  Dim lastRow As Long, asn As String, DatumString As String, datum As Date
  Dim valid As Boolean: valid = True
  
  asn = ActiveSheet.Name
  'adatok bekérése
  nev = InputBox("A mérést végző személy Teljes neve:")
  wo = InputBox("A méréshez tartozó WO szám Bxxxxxx/xx:")
  
  Do
  DatumString = Application.InputBox("A mérés dátuma ÉÉÉÉ/HH/NN: ")
  
  If IsDate(DatumString) Then
  datum = DateValue(DatumString)
  valid = True
  Else
  MsgBox "Érvénytelen dátum"
  valid = False
  End If
  Loop Until valid = True

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