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

• #17485 Delila_1 veterán m.zmrzlina #17484

  Új Válasz 2013-03-31 17:02:03 #17485

  Ú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 m.zmrzlina #17484 üzenetére

  Ehhez nem kell a dátumokat átalakítani.

  Sub Van_e()
  Dim oszlop%
  
  For oszlop% = 6 To 10
  If Cells(1, oszlop) <> Cells(oszlop + 1) - 1 Then _
  MsgBox "Hiányzik a(z) " & Cells(1, oszlop) + 1 & " dátum."
  Next
  End Sub

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