Ú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

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