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

• #20049 Mittu88 senior tag

  Új Válasz 2014-01-11 21:29:51 #20049

  Ú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

  

  Mittu88

  senior tag

  Sziasztok!

  Megint zaklatnom kell titeket

  A következőt próbálom programba foglalni:
  Mentés előtt végezzen olyan vizsgálatot, hogy az Igénylő munkalapon a B oszlop 12. sorától vizsgálja az 50. soráig és ha valamelyik ki van töltve, vizsgálja meg, hogy annak a sornak az F oszlopa is ki van-e töltve. Ha igen, akkor ne történjen semmi, ha nem, akkor Büntető üzenet és ne lehessen menteni.

  Eddig így állok:

  Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

  Dim i As Integer

  i = 12
  For i = 12 To 50
  If (Worksheets("Igénylő").Target.Row = i) And (Worksheets("Igénylő").Target.Column = 2) And (Worksheets("Igénylő").Target.Value <> 0) Then
  If (Target.Row = i) And (Target.Column = 6) And Target.Value = 0 Then
  Target.Activate
  MsgBox ("Add meg a fogadóállást!")
  Cancel = True
  End If
  End If
  i = i + 1
  Next

  End Sub

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