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

• #23287 bteebi veterán Delila_1 #23286

  Új Válasz 2014-09-16 13:29:04 #23287

  Ú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

  

  bteebi

  veterán

  válasz Delila_1 #23286 üzenetére

  Na, így már működik - vagyis egyszer lefut, jól. Azt hogy lehetne megoldani, hogy mindig legyen új inputbox, amíg cancel-t nem nyomok? Úgy a makró újraindítása nélkül több szót is le lehetne cserélni egymás után.

  Sub csere()
  Dim ws As Worksheet, cserelni As String
  On Error Resume Next
  Application.DisplayAlerts = False
  cserelni = Application.InputBox(Prompt:="Írja be a cserélendő szót.", _
  Title:="Csere", Type:=2)
  On Error GoTo 0
  Application.DisplayAlerts = True
  For Each ws In ActiveWorkbook.Worksheets
  ws.Cells.Replace What:=cserelni, Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows
  Next
  End Sub

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