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

• #10959 m.zmrzlina senior tag Kornl23 #10957

  Új Válasz 2011-07-26 09:55:56 #10959

  Ú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

  

  m.zmrzlina

  senior tag

  válasz Kornl23 #10957 üzenetére

  Továbbra is a MA() fv-ből indulnék ki.
  Az előző megoldásomat egészítsd ki ezzel:

  Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Application.ScreenUpdating = False
  Range("E1").Select
  For i = 1 To Range("E" & Rows.Count).End(xlUp).Row
  If ActiveCell.Value <> "" Then
  ActiveCell.Copy
  ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  End If
  ActiveCell.Offset(1, 0).Select
  Next
  ActiveWorkbook.save
  Application.ScreenUpdating = True
  End Sub

  Ez a megoldás a munkafüzet bezárása előtt a dátumokat tartalmazó cellákat felülírja a saját értékükkel, kitörölve egyúttal belőlük a MA() fv-t.

  Ezt nem modulba kell másolni, hanem a ThisWorkbook BeforeClose eseményébe! Természetesen a te tartományaid nyilván mások.

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