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

• #14547 Delila_1 veterán lacipapi #14545

  Új Válasz 2012-08-03 11:06:40 #14547

  Ú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 lacipapi #14545 üzenetére

  Két szövegdobozt vettem fel. Az egyik szövege "Mentve", ennek az M nevet adtam. A másiké "Másolatként mentve", ez az Mm névre hallgat.

  A makróban a két Loop While kezdetű sorban állítsd az időt a saját géped sebességéhez.

  Sub Masolat()
  Dim WB As Workbook, FN As String, kiterj As String, kezd As Long
  Set WB = ActiveWorkbook
  FN = WB.Name
  kiterj = Right(FN, Len(FN) - Application.WorksheetFunction.Search(".", FN) + 1)
  FN = Left(FN, Len(FN) - Len(kiterj))
  ActiveSheet.Shapes("Mm").Visible = False
  ActiveSheet.Shapes("M").Visible = False
  Application.DisplayAlerts = False
  
  If InStr(FN & kiterj, "masolat") Then
  WB.Save
  ActiveSheet.Shapes("M").Visible = True
  Calculate
  kezd = 1
  Do
  kezd = kezd + 1
  Loop While kezd < 10 ^ 7
  ActiveSheet.Shapes("M").Visible = False
  Else
  WB.SaveAs FN & "_masolat" & kiterj
  ActiveSheet.Shapes("Mm").Visible = True
  Calculate
  Do
  kezd = kezd + 1
  Loop While kezd < 10 ^ 7
  ActiveSheet.Shapes("Mm").Visible = False
  End If
  
  Application.DisplayAlerts = True
  End Sub

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