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

• #15160 lacid90 csendes tag

  Új Válasz 2012-10-06 20:43:37 #15160

  Ú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

  

  lacid90

  csendes tag

  Sziasztok!
  Egy érdekes probléma merült fel egy munkafüzet mentésekor. A mentést egy makró végzi, mivel egyszerre kell menteni két különböző meghajtóra. (biztonsági mentés)

  Sub Masolat_C_D()
  Dim awb As Workbook, FN As String, BFN As String, drv As String
  Application.StatusBar = True
  Application.DisplayAlerts = False
  Set awb = ActiveWorkbook
  FN = awb.FullName
  drv = Left(FN, 2)
  If drv <> "C:" Then
  BFN = "C:" & Right(FN, Len(FN) - 2)
  Else
  BFN = "D:" & Right(FN, Len(FN) - 2)
  End If
  With awb
  Application.StatusBar = "Munkafüzet mentése"
  .Save
  Application.StatusBar = "Munkafüzet másolatának mentése..."
  .SaveCopyAs BFN
  Application.StatusBar = False
  End With
  Application.DisplayAlerts = True
  End Sub

  A mentés a bezárás ikonra kattintással indul el.

  Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Application.StatusBar = "Munkafüzet mentése"
  Masolat_C_D
  End Sub

  A probléma a következő. Bizonyos cellák úgy vannak megformázva, hogy –„pénznem (Ft), tizedesjegy nélkül, és ha az érték negatív akkor piros legyen a kiírás.

  123Ft vagy -123Ft

  Ha nem a makró menti nincs semmi baj, de ha a makróval mentem akkor az összes ilyenre formázott cella átalakul egyéni formátumra a következő alakra.

  Ft123 vagy (Ft123)

  Nemtudom eldönteni, hogy ez a makró hibája, vagy az Excel-é. Ha tudnátok segíteni azt megköszönném.

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