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

• #23285 bteebi veterán bteebi #23281

  Új Válasz 2014-09-16 12:50:15 #23285

  Ú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 bteebi #23281 üzenetére

  És azt hogy lehetne megcsinálni, hogy egy input box-ba beírt értéket cseréljen le (mindig ugyanarra, ""-re)? Beírnám az értéket, lecseréli, és addig menne, amíg cancel-t nem nyomok.

  Mások kódjai alapján egyelőre eddig jutottam, minden bizonnyal több hiba is van benne.
  Először is: le se fut , "Object required" hibát ír ki. Meg minden bizonnyal a ws.Cells.Replace What rész se stimmel. Meg tudnátok mondani, hogy hol hibáztam?

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

  [ Szerkesztve ]

  Cancel all my meetings. Someone is wrong on the Internet.

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