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

• lacipapi csendes tag

  #14549

  #14547 Delila_1

  2012-08-03 12:01:45

  Új Válasz

  Ú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

  

  lacipapi

  csendes tag

  #14547 Delila_1

  #14547 Delila_1

  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

  Hogyan kell egy szövegdoboznak nevet adni? Csináltam két szövegdobozt ami egyenlőre ott virít a táblázaton de a makrót lefuttatva hibával leáll mert nem találja a kérdéses dobozokat.

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