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

• #26324 Oly őstag Delila_1 #26315

  Új Válasz 2015-03-31 12:52:56 #26324

  Ú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

  

  Oly

  őstag

  válasz Delila_1 #26315 üzenetére

  Akkor én valamit nagyon elszúrtam.
  Az xlsm-ben cseréli, de a többiben nem:

  Private Sub CommandButton1_Click()
  Dim utvonal As String, FN As String
  Application.DisplayAlerts = False
  utvonal = "Z:\tmp\csere\"
  FN = Dir(utvonal & "*.xlsx")

  Do While FN <> ""
  Workbooks.Open utvonal & FN
  Sheets(1).Select
  Cells.Replace What:="körte", Replacement:="banán", LookAt:=xlPart, _
  SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
  ReplaceFormat:=False
  ActiveWorkbook.Save
  ActiveWorkbook.Close
  FN = Dir()
  Loop

  Application.DisplayAlerts = True
  End Sub

  MEGOLDVA!!!!

  Ez volt a gond:

  ActiveWorkbook.Sheets(1).Cells.Replace What:="szilva", Replacement:="ananász", LookAt:=xlPart, _

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