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

• #20052 Delila_1 veterán Mittu88 #20049

  Új Válasz 2014-01-12 08:13:30 #20052

  Ú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

  

  Delila_1

  veterán

  válasz Mittu88 #20049 üzenetére

  Másik megoldás, ahol a ciklust elfelejthetjük:

  Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Dim WF As WorksheetFunction
  Set WF = Application.WorksheetFunction
  
  Sheets("Munka1").Activate
  If WF.CountA(Range("B12:B50")) < 39 Then
  MsgBox "Adatok hiányoznak a B12:B50 tartományból", vbOKOnly + vbExclamation
  Cancel = True
  Else
  If WF.CountA(Range("D12:D50")) < 39 Then
  MsgBox "Ejnye-bejnye!", vbOKOnly + vbExclamation
  Cancel = True
  Exit Sub
  End If
  End If
  End Sub

• #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