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

• #20050 Mutt senior tag Mittu88 #20049

  Új Válasz 2014-01-11 23:29:45 #20050

  Ú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

  

  Mutt

  senior tag

  válasz Mittu88 #20049 üzenetére

  Hello,

  Ezt használd az eseményben

  Dim cbHiba As Boolean
  Dim rngAdatsor As Range
  Dim cella As Range
  
  Set rngAdatsor = Worksheets("Igénylő").Range("B12:B15")
  cbHiba = False
  
  For Each cella In rngAdatsor
  'ha a cella nem üres, akkor 4-el jobbra tőle is megnézzük a cellát
  If Len(cella) > 0 Then
  If Len(cella.Offset(, 4)) = 0 Then
  'ha nincs kitöltve, akkor kilépünk
  cbHiba = True
  Exit For
  End If
  End If
  Next cella
  
  If cbHiba Then
  MsgBox ("Add meg a fogadóállást a " & cella.Offset(, 4).Address & " cellában!")
  Cancel = True
  End If

  üdv

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